bonjour,
je cherche de l'aide car j'essaie de copier une cellule excel 07 dans un signet word 07 grâce à une macro et cela ne fonctionne pas:
voila le code VBA que j'utilise:
Le doc word existe sur mon bureau, il s'ouvre mais les deux signet que j'ai défini dans word ( Monsignet et Monsignet1 ) ne change pas en utilisant ce qu'il y a dans les cellule A1 et B1 du doc excel ouvert
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 Sub export_donnees() Dim WordObj As Object On Error Resume Next Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\Bureau\Lettre") 'ouvre document Word WordApp.Visible = False 'word masqué pendant l'operation 'dans le document word, il faut avoir placé des signets aux endroits qu'on veut remplir 'à l'endroit de chaque signet qui se trouve dans le fichier word on va inscrire le contenu des cellules WordDoc.Bookmarks("Monsignet").Range.Text = Range(A1) WordDoc.Bookmarks("Monsignet2").Range.Text = Range(b1) WordApp.Visible = True 'affiche le document Word End Sub
merci bcp pour votre aide
Partager