Ouvrir un fichier Word [VBA]

Ctesias Messages postés 786 Statut Membre -  
gourouza Messages postés 4 Statut Membre -
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

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    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
  2. Ctesias Messages postés 786 Statut Membre 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
  3. Ctesias Messages postés 786 Statut Membre 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
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      Bonjour,
      Je viens de tester à nouveau, ton code fonctionne parfaitement chez moi...
      0
    2. Ctesias Messages postés 786 Statut Membre 36
       
      Et bien, je ne comprend pas trop la...
      0
    3. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      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
    4. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
       
      Bonjour les 2

      avec excel 2000
      activer Microsoft Word 9.0 object library
      et Microsoft Visual Basic For Applications Extensibility
      0
    5. Ctesias Messages postés 786 Statut Membre 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
  4. gourouza Messages postés 4 Statut Membre 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