Fichier word et excel

Signaler
Messages postés
72
Date d'inscription
lundi 6 juin 2005
Statut
Membre
Dernière intervention
15 mai 2006
-
Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005
-
bonjour,


je travaille actuellement avec des fichiers exel et word dans mon appli vb,je lance ces deux application et ouvre dans chacune d'elle un fichier d'extention correspondante... mais cela ne marche pas pour word(excel pa de pb),je ne comprend pas j 'ai une erreur qui dit que l'objet ne supporte pas la methode quand je passe sur mon doc.Workbooks.Open (chemin)
'fin voilà mon code si qql à plus d'idée:


If ext = "doc" Then
Set doc = CreateObject("Word.application")
doc.DisplayAlerts = False
doc.Visible = True
doc.Workbooks.Open (chemin)
With doc
MsgBox .Range("A1").Value
End With
doc.quit
Set doc = Nothing
End If

merci d'avance!

1 réponse

Messages postés
79
Date d'inscription
mardi 4 juin 2002
Statut
Membre
Dernière intervention
29 juillet 2005

Bonjour,



"Workbooks" ne marche qu'avec Excel.



Essaies ceci pour ouvrir ton document:



Dim AppWord As Word.Application

Set AppWord = CreateObject("Word.Application")

AppWord.DisplayAlerts = False

AppWord.Documents.Open "C:\MonDocumentWord.doc"

AppWord.Visible = True

Ricks27