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 :



Dans mon VBA, voici le code pour l'extraction vers Word :

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
 
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