Discussion :

[matinho]

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

[pgz]

Bonjour.

C'est plutôt une question pour le forum WORD, je pense.

Tu peux faire

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
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
 
'copier les données Excel
ThisWorkbook.Worksheets(1).Range("A1:C4").Copy
 
'les signet du document Word est nommé Tableau_personne
WordDoc.Bookmarks("Tableau_personne").Range.PasteSpecial , False, wdInLine, False, wdPasteOLEObject
 
WordApp.Visible = True 'affiche le document Word
 
End Sub

En adaptant le nom de feuille, la plage, ...

Cordialement,

PGZ