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!

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