Word & Excel

[Fred]

Word & Excel

Bonjour à tout le forum !

J'aimerais ouvrir un fichier word déterminé à partir d'une commande éxecutée sous Excel (macro)

Malheureusement ce que l'on m'a déjà donné ne fonctionne pas !

Auriez-vous la solution ?

Merci à tous !

Fred

 

[michel]

Re: Word & Excel

bonsoir Fred

il faut rester sur le meme fil Lien supprimé< , meme si la reponse ne te convient pas sinon on va avoir du mal à te suivre

qu'est ce qui ne fonctionne pas ?

Sub ouvrirDocWordExistant()
Dim Wrd As Object
Dim appWord As Object
Set Wrd = createObject("Word.Application")
Wrd.Visible = True
Set appWord = Wrd.Documents._ Open("C:\mes documents\XLD.doc", readOnly:=True)
End Sub

bonne soiree
michel

 

[michel]

Re: Word & Excel

rebonsoir

oouuppss , désolé ...une petite erreur de synthaxe

Sub ouvrirDocWordExistant()
Dim Wrd As Object
Dim appWord As Object
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = True
Set appWord = Wrd.Documents. _
Open("C:\mes documents\XLD.doc", ReadOnly:=True)
End Sub


bonne soiree
michel

 

[wally]

Re: Word & Excel

Bonsoir Fred et le forum,

Une autre possibilité :

ThisWorkbook.FollowHyperlink "C:\MonChemin\MonDocument.doc"


Slts

wally