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!

cs_dan80 · Answer

a mon avis tu dois &#233;galement d&#233;clar&#233; ton document:

dim doc as word.document
dim app as word.application
set app=createobject("Word.application")
...
app.open(chemin)

teste ca tu verra bien

mell01 · Answer

encore un &#233;chec...merci qd m

j'ai une erreur "user-defined  type net defined" sur 
dim doc as word.document
peut &#234;tre qu'il faut ajouter une r&#233;f&#233;rence que je n'est pas?

cs_dan80 · Answer

as tu ajout&#233; la reference a word dans tes references ?

Fichier word et excel

3 réponses

Discussions similaires