Ouvrir un fichier Word [VBA]

Ctesias Messages postés 724 Date d'inscription   Statut Membre Dernière intervention   -  
gourouza Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
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

4 réponses

Réponse 1 / 4
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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"
0
Réponse 2 / 4
Ctesias Messages postés 724 Date d'inscription   Statut Membre Dernière intervention   36
 
Bonjour,

Ok, merci, je vais essayer.

P.S: Pardon de la lenteur de ma réponse, mais je n'etai pas dispo du WE.
0
Réponse 3 / 4
Ctesias Messages postés 724 Date d'inscription   Statut Membre Dernière intervention   36
 
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...
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,
Je viens de tester à nouveau, ton code fonctionne parfaitement chez moi...
0
Ctesias Messages postés 724 Date d'inscription   Statut Membre Dernière intervention   36
 
Et bien, je ne comprend pas trop la...
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
As tu essayé d'ouvrir un autre fichier word?
Enregistre un .doc vite fait, avec un nom tout simple, un chemin d'accès encore plus simple (par ex : C:/toto.doc) et tente l'expérience à nouveau...
0
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
Bonjour les 2

avec excel 2000
activer Microsoft Word 9.0 object library
et Microsoft Visual Basic For Applications Extensibility
0
Ctesias Messages postés 724 Date d'inscription   Statut Membre Dernière intervention   36
 
Hello Michel_m.

J'ai bien activé ce que tu me dit, seulement, toujorus la meme erreur: impoissible de trouver le fichier. Or, l'emplacement est le bon, j'en suis sur...
0
Réponse 4 / 4
gourouza Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0