Probleme lors de l'ouverture d'un fichier Word avec fenetre explorer

lcoulon

XLDnaute Occasionnel
Bonjour

J'utilise ce code macro pour ouvrir une fenêtre explorer pour pointer un fichier Word, ensuite Excel sauvegarde les classeurs ouverts et lance Word avec le fichier pointé.

Bizarrement cela ne fonctionne pas et je ne sais pas pourquoi ...
Auriez vous une idée du problème ?

Word affiche le message ci-joint indiquant que le fichier n'a pas pu etre ouvert ...

Pourtant le fichier peut facilement s'ouvrir manuellement avec double clic.


Merci de votre aide,



Code:
Sub locate_word_file()

Dim FileToOpen As Variant
Dim w As Workbook

      FileToOpen = Application.GetOpenFilename("RTF Document [Avery Templates] (*.RTF), *.RTF,Word Document (*.doc), *.doc,")
      If FileToOpen = False Then Exit Sub
      MsgBox "Template Selected ->  " & FileToOpen
    
      
For Each w In Application.Workbooks
w.Save

Next w

FichPerso$ = "FileToOpen"
FichWord$ = "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " '! ici un espace
Appel = Shell(FichWord$ & FichPerso$, 1) ' respecter cet ordre !
    
Application.Quit   ' Quitte Excel

End Sub
 

Pièces jointes

  • erreur_word.zip
    19.8 KB · Affichages: 31