Probleme excel-word

[davidstras]

Bonjour a tous,

Je suis en train de programmer une macro avec excel 2003 :

Sub TravauxWord1()
Dim docword As Word.Document
Dim Appword As Word.Application
Set Appword = New Word.Application
With Appword
Set docword = Appword.Documents.Open("C:\Users\David\Desktop\Rapport2008.doc", ReadOnly:=True)
Appword.ShowMe
Appword.Visible = True
Appword.Application.WindowState = wdWindowStateMaximize
With .Selection
'-- Page 1 : date
docword.Bookmarks("date1").Select
.TypeText Text:=Dateval
'-- Page 1 : Date du projet
docword.Bookmarks("date2").Select
.TypeText Text:=Date
'-- Page 7 : Nom de la société
docword.Bookmarks("date3").Select
.Font.Name = "erasItcTDem"
.Font.ColorIndex = wdBlue
.TypeText Text:=NumContrat
docword.Bookmarks("date4").Select
.Font.Name = "erasItcTDem"
.Font.ColorIndex = wdBlue
.TypeText Text:=NumContrat
docword.Bookmarks("date5").Select
.Font.Name = "erasItcTDem"
.Font.ColorIndex = wdBlue
.TypeText Text:=NumContrat
'-- Page 6 : Nom de la société
Appword.Application.WindowState = wdWindowStateMinimize
End With
End With
End Sub

ensuite quand je compil il ya un message d erreur ki dis :
erreur de compilation :
Type defini par l'utilisateur non defini
en soulignant Dim docword As Word.Document

Peut etre es ce un probleme de librairie ? j ai meme telecharger VBrun60:!!
Pouvez vous m aider !!

Merci d'avance

 

[RENAUDER]

Re : Probleme excel-word

Bonjour,
Il te faut ajouter la référence
Microsoft Word 11 Object Library