word

varsan · 6 Juillet 2004

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

Heurvy · 6 Juillet 2004

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 · 6 Juillet 2004

Bonjour

Tu peux auusi utiliser l'instruction shell

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

Diego · 7 Juillet 2004

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

word

varsan

Guest

Heurvy

Guest

sousou

Guest

Diego

Guest

Discussions similaires

word

varsan

Guest

Heurvy

Guest

sousou

Guest

Diego

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency