pouvoir ouvrir un fichier world

[brice]

bonjour, a tous

je cherche a ouvrir un fichier world apartir d´une macro mais je n´y arive pas merci pour votre réponce.
brice

 

[michel]

bonjour Brice

tu peux tester les exemples ci dessous

pour ouvrir un document word existant
Sub SeDeplacerDansDocWordExistant()
Dim Wrd As Object
Dim AppWord As Object
Set Wrd = CreateObject("Word.Application")
Wrd.Visible = True
Set AppWord = Wrd.Documents.Open("c:\mes documents\taches à effectuer.doc", ReadOnly:=True)
End Sub

ouvrir un nouveau document word
Sub OuvrirWord()
Dim objWord as object
Dim objDoc as object
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
End If
objWord.Visible = True
Set objDoc = objWord.Documents.Add
End Sub

bonne journée
michel

 

[michel]

rebonjour Brice

un petit soucis dans mon premier message ...

pour ouvrir un nouveau document Word utilise plutot
Sub OuvrirWord()
Dim WordObj As Object
Set WordObj = CreateObject("Word.Application.8")
WordObj.Visible = True
WordObj.Documents.Add
End Sub

bonne journée
michel

 

[sylsyl]

Salut Michel, Brice,

merci pour ta reponse Michel. Ca fait 2 semaines que j'essai d'ouvrir un doc Word avec Shell et evidemment ca marchait pas (a cause des espaces dans le "Filename").

C'est enervant comme la reponse parait evidente quand on l'a sous les yeux...

Encore Merci

A++, Sylsyl.