Probleme avec macro qui ouvre un fichier Word

[lcoulon]

Bonjour,

J'utilise de code suivant qui permet de demander a Excel d'ouvrir un fichier Word.

' Ouvrir un document Word à partir d'Excel

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("E:\L7160-2.rtf")
wrdApp.Visible = True
    
Application.Quit   ' Quitte Excel

End Sub

Cependant, il s'agit d'un fichier faisant appel a des fusions publipostage,

Habituellement si le fichier est ouvert manuellement ( double clic ) , Word pose la question dès l'ouverture du fichier si les données de fusions doivent etre mis a jour ou non.

Avec ce code macro , automatisant l'ouverture de ce fichier Word, l'ouverture du fichier se fait bien mais la question de mise a jour des fusions n'est pas posée et le fichier est alors ouvert mais SANS mise à jour des données.

Savez vous ce qu'il ajouter à la macro pour que la fusion soit automatiquement acceptée lors de l'ouverture ?

Merci a vous

[Roland_M]

bonjour

as-tu essayé avec la méthode Shell !?
Appel = Shell("chemin........\Winword.exe Chemin\NomDeTonFichier,1"

Roland

[lcoulon]

C'est etrange

j'ai un message comme quoi le fichier n'est pas trouvé, cependant le chemin est correct :

Peut etre que les espaces ne sont pas acceptés ?

Appel = Shell("C:Program Files\Microsoft Office\OFFICE11\WINWORD.EXE")

[Roland_M]

re, il manque le slash "C:\ et il faut mettre en bout ,1) pour word visible !

Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE", 1)

roland

[lcoulon]

oui tu avais raison en effet.

A present Word se lance mais indique que le fichier de destination ne peut pas etre ouvert ...

il parle d'enventuel probleme de permission ou de location
mais le fichier n'est pas restreint , je peux l'ouvrir manuellement sans pb en cliquant 2 fois dessus

As tu une idée ?
Merci beaucoup,

Appel = Shell("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE E:\L7160-2.rtf,1")

[Roland_M]

re

effectivement j'ai le même problème !?
j'y regarde et dès que c'est ok je te répond

Roland

[Roland_M]

re, alors voila l'explication...
le problème vient des espaces dans le nom du fichier !?
exemple NomFichier = "Test.Doc" ça marche !
exemple NomFichier = "Test x.Doc" ça marche pas !?
il faut mettre tous les espaces dans le nom avec le signe(?)
soit NomFichier = "Test?x.Doc" avec un espace
ou NomFichier = "Test??x.Doc" si deux espaces
...

Sub Essai()
FichPerso$ = "C:\Fich?x.doc"
FichWord$ = "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " '! ici un espace
Appel = Shell(FichWord$ & FichPerso$, 1) ' respecter cet ordre !
End Sub

Roland

[lcoulon]

Ca fonctionne à merveille, merci beaucoup Roland.