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

[lcoulon]

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,

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

 

[pierrejean]

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

bonjour lcoulon

A tester

remplacer

FichPerso$ = [COLOR=red]"[/COLOR]FileToOpen[COLOR=red]"[/COLOR]

par

FichPerso$ = FileToOpen

 

[Compte Supprimé 979]

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

Salut Pierrejean,

Bien vu

 

[lcoulon]

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.