Ouvrir un fichier Word [VBA]

Question

Bonjour, 

Alors voila, j'ai fait des recherches sur le net pour l'ouverture d'un fichier Word en VBA, pis la copie de lignes vers ce fichier word.

Ceci donne cela:
Private Sub CommandButton1_Click()
Dim plan As String
Dim WordApp As New Word.Application


plan = "C:\Documents and Settings\faf3\Bureau\Programmes Excel\PLAN PREVENTION.doc"

WordApp.Documents.Open plan
Range("B1:F3").Select
Selection.Copy
WordApp.Visible = True
ActiveSheet.Paste

End Sub
Mais, un erreur apparait au lancement: "Erreur de ocmpilation: Type définie par l'utilisateur non défini". et me surligne "Dim WordApp As New Word.Application".

Alors est-ce parce que Excel 2000 ne supporte pas cela, ou est-ce parce que j'ai fait un erreur dans mon code?

Merci d'avance pour vos réponses,

Ctesias

Configuration: Windows XP / Internet Explorer 8.0

pijaku · Answer

Bonjout,
Sous VBE, Outils/Référence cocher "Microsoft Word xx.0 Object library"
xx est un numéro qui dépends de votre version d'excel...
Sur mon 2003 :  "Microsoft Word 11.0 Object library"

Ctesias · Answer

Bonjour, 

Ok, merci, je vais essayer.

P.S: Pardon de la lenteur de ma réponse, mais je n'etai pas dispo du WE.

Ctesias · Answer

Bon, j'ai essayé, il me met juste une erreur sur :

"WordApp.Documents.Open plan"

Comme quoi, il trouve pas le fichier, or, le chemin est bon, j'ai vérifié la casse...

gourouza · Answer

LANCE la fenetre module de ACCESS, clic sur OUtil ensuite Références et coher Microsoft word 14.0
ensuite efface Range("B1:F3").Select
Selection.Copy
dans ton code

Ouvrir un fichier Word [VBA]

4 réponses

Votre réponse

Newsletters