word

[varsan]

comment ouvrir un fichier word avec excel, en code vba merci

 

[Heurvy]

Sub ouvertureword()

chemin = "c:\ ....."

Dim Shell, fso, f1

Set Shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

Set f1 = fso.GetFile(Chemin)



Shell.Run f1.ShortPath



End Sub

 

[sousou]

Bonjour

Tu peux auusi utiliser l'instruction shell

MyAppID = Shell("C:\WORD\WINWORD.EXE", 1)

 

[Diego]

y aussi :

il faut activer les références correctes si ça marche pas.

aide standard :

CreateObject ou GetObject afin de renvoyer un objet Application Word. L'exemple suivant montre comment démarrer Word (si ce n'est déjà fait) et ouvrir un document existant.

Set wrd = GetObject(, "Word.Application")
wrd.Visible = True
wrd.Documents.Open "chemin"
Set wrd = Nothing