Ouverture d'un fichier via macro dont le chemin varie

[Imperium]

Bonjour,

J'utilise actuellement une macro qui m'ouvre un fichier word selon son nom dans une cellule :

'Ouvrir un nouveau contrat en fonction de la combinaison en I4
Set oWdDoc = oWdApp.Documents.Open("C:\CONTRAT\" & [I4] & ".doc")

Le problème, c'est le chemin avant qui me gène "C:\CONTRAT\" car il est suceptible de changer selon l'endroit ou sera enregistré mon fichier excel.

Ce que j'aimerai, je ne sais pas si c'est possible, c'est que la macro ouvre le fichier word en fonction de la racine du fichier excel.
Car le fichier word et le fichier excel resteront toujours ensemble dans un fichier.

Je m'explique.
L'utilisateur télécharge un dossier, avec dedans 1 fichier excel et 10 fichiers word.
Selon ce qu'il saisit en I4 (le nom d'un des 10 fichiers word), le fichier word correspondant s'ouvre.

J'aimerai donc que la macro fasse en fonction de la racine du fichier excel.

Si l'utilisateur enregistre son dossier sur D:\... que la macro fasse D:\ etc...
Si c'est sur C, que ce soir C:\ tout ça en se bassant bien sûr sur le chemin du fichier excel.

J'espère avoir été clair

Merci beaucoup !

 

[Pierrot93]

Re : Ouverture d'un fichier via macro dont le chemin varie

Bonsoir,

regarde si cela peut t'aider :

Set oWdDoc = oWdApp.Documents.Open(ThisWorkbook.Path & "\" & [I4] & ".doc")

bonne soirée
@+

 

[Imperium]

Re : Ouverture d'un fichier via macro dont le chemin varie

Et ça marche !!! Merci beaucoup Pierrot !