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
 

Fichiers joints

pierrejean

XLDnaute Barbatruc
Re : Probleme lors de l'ouverture d'un fichier Word avec fenetre explorer

bonjour lcoulon

A tester

remplacer

Code:
FichPerso$ = [COLOR=red]"[/COLOR]FileToOpen[COLOR=red]"[/COLOR]
par

Code:
FichPerso$ = FileToOpen
 

BrunoM45

XLDnaute Barbatruc
Re : Probleme lors de l'ouverture d'un fichier Word avec fenetre explorer

Salut Pierrejean,

Bien vu ;)
 

lcoulon

XLDnaute Occasionnel
Re : Probleme lors de l'ouverture d'un fichier Word avec fenetre explorer

Merci Pierre Jean , ça fonctionne bien à présent .

Je suis bien content.
 

Discussions similaires


Haut Bas