Discussion :

[destronic]

Bonjour à tout le monde,

Je rencontre un problème pour la création d'un document Word fait sous Excel. Avec le code VBA ci-dessous, lorsque je le lance, il me met à la suite ce qu'il y a d'inscrit dans les cellules A1 à A3.
Or, dans mon Word, je fais en sorte d'inscrire les "Signets" (Insérer Signet : Signet1) aux endroits que je veux, mais ça ne fait pas ce que je désir.

J'ai activé l'ensemble des référence (dans Word et Excel), mais rien n'y fait...

Je vous fais parvenir mes deux fichiers tests, si quelqu'un pourrait m'aider à comprendre la raison du pourquoi... Je ne saurais comment le remercier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub exportDonneesDansSignetsWord()
'nécéssite d'activer la référence Microsoft Word xx.x Object Library
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
 
Set WordApp = CreateObject("word.application") 'ouvre session word
Set WordDoc = WordApp.Documents.Open("G:\Téléchargements\CNAM\monFichier.docx") 'ouvre document Word
WordApp.Visible = False 'word masqué pendant l'operation
For i = 1 To 3
'les signets du document Word sont nommés Signet1 , Signet2 , Signet3
WordDoc.Bookmarks.Add("Signet" & i).Range.Text = Cells(i, 1)
Next i
 
WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'imprimer
 
'WordDoc.Close True 'ferme le document word en sauvegardant les données
'WordApp.Quit 'ferme la session Word
End Sub