Je n'arrive pas à ouvrir un document Word à partir d'une macro Excel.
Voici le code que j'utilise:
Sub ouvreWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Chemin_prog = ActiveWorkbook.Path & "\"
AppWord.ShowMe
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open(Chemin_prog & "tableau.doc",
ReadOnly:=True)
end sub
Le message d'erreur suivant apparaît:
"Erreur de compilation
Type défini par l'utilisateur non défini"
????
Qqu'un peut-il m'aider à corriger le code
D'avance merci
cordialement
andré
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pegaze
Bonjour,
une petite question Dans les references (outils -reference) as tu selectionne "Microsoft word xx.x objet library" ou xx.xx represente ta version je suis en 2003 et j'utilise "Microsoft word 10.0 objet library" et sa marche
Sub ouvreWord() Dim DocWord As Word.Document Dim AppWord As Word.Application Set AppWord = New Word.Application Chemin_prog = ActiveWorkbook.Path & "" AppWord.ShowMe AppWord.Visible = True
Set DocWord = AppWord.Documents.Open(Chemin_prog & "tableau.doc", ReadOnly:=True)
End Sub
Bonjour,
une petite question
Dans les references (outils -reference) as tu selectionne
"Microsoft word xx.x objet library"
ou xx.xx represente ta version
je suis en 2003 et j'utilise "Microsoft word 10.0 objet library" et sa
marche
Sub ouvreWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
Chemin_prog = ActiveWorkbook.Path & ""
AppWord.ShowMe
AppWord.Visible = True
Set DocWord = AppWord.Documents.Open(Chemin_prog & "tableau.doc",
ReadOnly:=True)
une petite question Dans les references (outils -reference) as tu selectionne "Microsoft word xx.x objet library" ou xx.xx represente ta version je suis en 2003 et j'utilise "Microsoft word 10.0 objet library" et sa marche
Sub ouvreWord() Dim DocWord As Word.Document Dim AppWord As Word.Application Set AppWord = New Word.Application Chemin_prog = ActiveWorkbook.Path & "" AppWord.ShowMe AppWord.Visible = True
Set DocWord = AppWord.Documents.Open(Chemin_prog & "tableau.doc", ReadOnly:=True)
