fichier word et excel

Question

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&#224; mon code si qql &#224; plus d'id&#233;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!

Ricks27 · Answer

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

Fichier word et excel

1 réponse

Discussions similaires