Discussion :

[Lady Maria]

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.

[Pierre Fauconnier]

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 :

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

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.

[Lady Maria]

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é

Thank you!

[Pierre Fauconnier]

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