Discussion :

[guidec23]

Bonjour,

J'ai actuellement un Excel qui ouvre des fichiers Word à partir d'un VBA et cela fonctionne très bien. cependant, le code donne à la macro l'emplacement du fichier Word dans l'ordinateur et va donc le chercher. Evidemment, lorsque l'on envoie le fichier sur un autre ordinateur, le chemin n'est plus le même et cela ne fonctionne plus. Auriez-vous une solution pour appeler ces documents Word avec un chemin qui varie svp ?

Merci par avance

[patricktoulon]

re
bonjour
c'est pas tres clair ta demande
tu veux:

1. d'un pc ouvrir un fichier word partagé d'un autre pc
2. les fichiers word sont presents sur chaque pc et tu veux un chemin commun dans la macro

pour la 2 si tes fichier sont dans le meme dossier que le fichier de la macro c'est

Code :

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

chemin=thisworkbook.path &"\"

apres tu peux mettre une boite de dialogue pour chercher et selectionner le fichier

Code :

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

1
2
3
4
5
6
7
8
Sub ouverture
fichier= Application _
    .GetOpenFilename("Word Files (*.docx), *.docx")
If fichier<> False Then
    MsgBox fichier
' ouverture de ton fichier 
End If
End Sub

[guidec23]

Non en fait il y a trois documents Word qui sont appelés en fonction du besoin. Lorsque j'envoie mon fichier Excel j'envoie les 3 documents Word avec et lorsque la personne les télécharge elle met tout ça dans le même fichier. Votre 1er code est donc intéressant cependant je ne sais pas comment l'appliquer à mon code.
A l'heure actuelle mon code pour appeler un des 3 Word est celui-là. Comment pourrais-je faire ?

Code :

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

Set WordDoc = WordApp.Documents.Open("C:\Users\3000\Desktop\classification.docx")

Merci par avance.

[patricktoulon]

re

la personne les télécharge elle met tout ça dans le même fichier.

heu.... plutot Dossier tu veux dire c'est important de faire la différence c'est de ca qu'il est question justement

Code :

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

Set WordDoc = WordApp.Documents.Open(thisworkbook.path &" \classification.docx")

[guidec23]

Oui désolé, c'est ce que je voulais dire en effet
Merci beaucoup cela a fonctionné !!