Discussion :

[YannOss]

Bonjour,
Je vous explique mon sujet:
Je dois récupérer des informations dans un fichier Excel et les insérer à l'intérieur d'un Word existant et qui sera systématiquement présent dans le même dossier que le fichier Excel dans lequel le VBA sera implémenté.

Mon problème vient de la proximité des fichiers. Je sais ouvrir un fichier en utilisant son chemin absolu mais pas son chemin relatif.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim strFichier As String
Dim objWord As New Word.Application
 
strFichier = "C:\Users\chemin_absolu\DOC_a_OUVRIR.doc"
' ouvrir un document Word
objWord.Documents.Open strFichier
' rendre Word visible
objWord.Visible = True

Jusque là j'arrive à bien ouvrir mon document mais ça ne marchera que pour mon ordinateur et pas pour l'ordinateur de mon demandeur, j'aimerai que mon demandeur puisse copier/coller le dossier parent sur l'ordinateur de son stagiaire sans que cela n'engendre d'erreur.

Pourriez-vous s'il vous plaît éclairer ma lanterne?

[tedo01]

Bonjour,
Le chemin où se trouve l'Excel est donné par ActiveWorkbook.Path.
Il suffit donc de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strFichier = "C:\Users\chemin_absolu\DOC_a_OUVRIR.doc"

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strFichier = ActiveWorkbook.Path & "\DOC_a_OUVRIR.doc"

pour ouvrir le document Word dans le même répertoire.

[YannOss]

Super merci, ça fonctionne!!