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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.