comment créer un chemin relatif dans un lien hypertexte Excel? (Word.Document.12) - Excel, VA, excel-vba

J'ai deux documents, l'un qui contient toutes les informations et il s'agit d'un document Word, et l'autre d'un document Excel, qui ne contient que quelques points saillants du document Word.

Je souhaite créer des liens entre du texte sélectionné dans Word et des cellules Excel. Jusqu'à présent, le passé spécial fonctionne bien et créer un lien dans ce format.

=Word.Document.12|"C:Users...xxx.docx"!"!OLE_LINK9"

Maintenant, je veux copier les deux documents dans mon usb etaprès les avoir passés dans d’autres ordinateurs, là où le problème se pose, j’aurais à refaire le passé spécial car le chemin est différent, ce que j’ai pensé comme solution, c’était de mettre le chemin du mot document dans la cellule, disons A1 et concaténer la formule ci-dessus, quelque chose comme

=Word.Document.12|A1!"!OLE_LINK9"

mais cela ne fonctionne pas, cela jette un message d'erreur, pouvez-vous m'aider s'il vous plaît?

PS: je voudrais éviter vba si possible

Réponses:

0 pour la réponse № 1

PS: je voudrais éviter vba si possible

J'ai inclus les deux façons de le faire car la question est étiquetée avec Excel-VBA ainsi que :)

Faites votre choix.

VBA Way

Est-ce ce que vous essayez?

Sub Sample()
Dim objOle As OLEObject

"~~> Change this to the respective Sheet name
With ThisWorkbook.Sheets("Sheet1")
"~~> This is your embedded word object
Set objOle = .OLEObjects("Object 1")

"~~> Cell A1 has a path like C:Temp
objOle.SourceName = "Word.Document.12|" & .Range("A1").Value & "xxx.docx!""
End With
End Sub

Manière non VBA

Créez une plage nommée et appelez-la en disant Filepath. Définissez la formule sur

="Word.Document.12|"" & Sheet1!$A$1 & "xxx.docx"!""

Où cellule A1 aura le chemin du fichier.

Next Sélectionnez votre document Word et dans la barre de formule, tapez =Filepath et vous avez terminé.

---