Fichier word et excel

mell01 Messages postés 72 Date d'inscription lundi 6 juin 2005 Statut Membre Dernière intervention 15 mai 2006 - 19 juil. 2005 à 09:42
Ricks27 Messages postés 79 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 29 juillet 2005 - 19 juil. 2005 à 12:27
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

Ricks27 Messages postés 79 Date d'inscription mardi 4 juin 2002 Statut Membre Dernière intervention 29 juillet 2005
19 juil. 2005 à 12:27
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
0