excel vers word [Résolu]

[pilounet54]

bonjour a tous j'ai ce code dans la feuil1 d'excel et il bug sur le message suivant erreur de compilation instruction incorrecte à l'exterieur d'une procedure il s'arrete le premier mot set le code et le suivant " pas de moi"
'Nécessite d 'activer la référence "Microsoft Word xx.x Object Library" :


'L 'exemple ci-dessous permet d'exporter les valeurs des cellules A1 à A3 vers des signets d'un document Word nommé "monfichier.doc"
'Les signets positionnés aux endroits de votre choix doivent être nommés "Signet1 , Signet2 et Signet3

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim WordApp As Word.Application
Dim WordDoc As Word.document
Dim i As Byte
 
  Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("Doc3.doc")    'ouvre le document Word
 
 
    WordApp.Visible = False    'Word est masqué pendant l'opération
 
    For i = 1 To 3
        'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
        WordDoc.Bookmarks("Signet" & i).Range.Text = Cells(i, 1)
    Next i
 
    WordApp.Visible = True    'affiche le document Word
    'WordDoc.PrintOut 'Pour imprimer le doc obtenu
 
    'WordDoc.Close True 'ferme le document word en sauvegardant les données
    'WordApp.Quit 'ferme la session Word

pouvez vous m'aider merci bonne journée à tous

[Heureux-oli]

Tu n'as pas déclaré la bibliothèque Word dans ton projet Excel.

Outils
Références
Microsoft Word dans la liste.

[Jannus]

Envoyé par pilounet54

j'ai trouver la premiere erreur je n'avais pas l'instrution sub & end sub
pour la deuxieme erreur il me dit type defini par l'utilisateur non defini et il s'arrete sur
Dim WordApp As Word.Application merci de votre aide +