Extraction d'une plage Excel vers Word
Bonjour,
Je voudrais voir avec vous pour mon problème d'extraction de données d'un fichier Excel vers Word.
Alors actuellement j'utilise un tableau Excel, voici son contenu :
http://img11.hostingpics.net/pics/209159Capture.png
Dans mon VBA, voici le code pour l'extraction vers Word :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
Sub Liste_Bmks()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
' - le fichier Word est déjà ouvert
Set WordApp = GetObject(, "Word.Application") 'Word déjà ouvert
Set WordDoc = WordApp.ActiveDocument
WordApp.Visible = False 'word masqué pendant l'operation
'les signet du document Word est nommé Tableau_personne
WordDoc.Bookmarks("Tableau_personne").Range.Text
WordApp.Visible = True 'affiche le document Word
End Sub |
J'ai placé sur Signet sur Word : Tableau_personne
Cependant, j'ai une erreur lors de son exécution : Erreur de compilation, Utilisation incorrecte de la propriété.
Dans le code, je ne vois pas quoi mettre à la fin pour que cela fonctionne WordDoc.Bookmarks("Tableau_personne").Range.Text ............
Merci de votre aide et en espérant que mon code est potable :lol:
