Ouverture fichier word via macro XL

Bonjour,

Je cherche à ouvrir un document Word à partir de application.getopenfilename
Disons que j'ai trouvé le bon chemin via Chdir et que la boîte de dialogue habituelle s'ouvre.
Or, à ce stade, si l'utilisateur clique sur un fichier Word, un message d'erreur apparaît (incompatibilité de type) et le fichier ne s'ouvre pas.
Normal, puisque getopenfilename, contrairement à findfile, permet seulement d'ouvrir la boîte de dialogue ; pas d'interaction avec le fichier choisi donc.

Oui, mais voilà, il faut que l'utilisateur ouvre ce fichier, et interagisse avec comme il le souhaite.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub FindFile()   Dim filetoopen As Variant Dim path As String Dim worddoc As String   path = "C:\Users\T\Documents\Divers\Writings" worddoc = Dir("*.doc") ChDir path   Application.Dialogs(xlDialogOpen).Show   Set filetoopen = Application.GetOpenFilename("Word files (*.doc), *.doc")   End Sub

---

Vous seriez bien aimable de m'indiquer les erreurs éventuelles de ce code, et de m'aiguiller sur des rails un peu plus prometteurs. Je craque. Il y aurait bien application.findfile mais cela n'a rien donné de mieux.

Merci.

Bonjour

Il n'est pas nécessaire d'utiliser Application.Dialogs puisque tu utilises GetOpenFileName.

Le Set devant FileToOpen n'est pas nécessaire non plus, ta variable n'étant pas une variable objet. C'est un Variant qui va recevoir soit le nom du fichier en cas de sélection d'un fichier, soit False en cas d'annulation.

Tu dois après cela utiliser le nom du fichier récupéré pour ouvrir Word en lui passant le nom du fichier en paramètre.

Note que le nom du fichier pouvant contenir des espaces, il faut l'encadrer de guillemets.

Voici un code qui permet cela

Code:

---

1 2 3 4 5 6 7 8 9

Sub FindFile() Dim FileToOpen As Variant Dim Path As String   Path = "C:\Users\T\Documents\Divers\Writings" ChDir Path FileToOpen = Application.GetOpenFilename("Word files (*.doc), *.doc") If Not FileToOpen = False Then Shell "winword """ & FileToOpen & """" End Sub

---

Note que, pour faciliter le débogage de ton code, il est préférable de déclarer tes variables avec une majuscule, puis, dans ton code, de saisir tout en minuscules. le VBE reconnaît ce que tu as déclaré et remet lui-même les majuscules => si erreur de code, tu regardes ce qui est resté en minuscules.

Merci infiniment. Le code marche, bien sûr, même si je ne comprends pas bien la syntaxe de "shell" et "winword". Je devrais me pencher plus avant sur la question, le but ultime étant la création d'un userform, avec différents répertoires et la possibilité d'ouvrir n'importe quel fichier word à l'intérieur. Je reviendrai au prochain obstacle rédhibitoire rencontré :oops:

Thank you! :ccool:

WinWord est le "nom de code" de l'application MSWord.exe. Cela évite de devoir préciser le répertoire où le fichier est installé.

Shell fonctionne comme si tu lançais l'appli via la ligne de commande. Il faut donc passer le nom du fichier en chaine de caractères, d'où le doublement des quotes qui encadrent le nom du fichier...

Bon dimanche