pouvoir ouvrir un fichier world

M

michel

Guest

• 9 Décembre 2003

• #2

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

 

Vote positif 0 Vote négatif

M

michel

Guest

• 9 Décembre 2003

• #3

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

 

Vote positif 0 Vote négatif

S

sylsyl

Guest

• 9 Décembre 2003

• #4

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.

 

Vote positif 0 Vote négatif