VB Coller donnees Excel sur doc Word existant a emplacement precis

[zop]

Bonjour!
Je souhaite réaliser une macro sur excel qui me permette de copier des tableaux et de les coller sur un document word mais à un emplacement bien précis. J'arrive à faire cela avec les signets.
Seulement quand j'ai deux tableaux qui se suivent dans word, le signet est je pense écrasé et je n'y arrive pas.. Pensez vous pouvoir m'aider?... 😕😕 merci beaucoup!!

voici un resume de l'endroit ou je bloque completement...
Dim wdApp As Word.Application, wdDoc As Word.Document, ws As Worksheet
Application.ScreenUpdating = False
Application.StatusBar = "Creating new document..."
Set wdApp = New Word.Application
Set wdDoc = wdApp.Documents.Open("C:\...")

Sheet2.Activate
Range(Cells(5, 1), Cells(5, 2)).Select
Selection.Copy
Excel.Application.StatusBar = "Copying data from " & "Résultats 0-2..."
wdDoc.Bookmarks.Item("Check1").Range.Paste
Application.CutCopyMode = False

Range(Cells(19, 21), Cells(25, 23)).Select
Selection.Copy
Excel.Application.StatusBar = "Copying data from " & "Résultats 0-2..."

et là je ne sais pas comment faire pour coller à la suite du précédent, sachant que je suis au milieu de mon document...

 

[zop]

Re : VB Coller donnees Excel sur doc Word existant a emplacement precis

🙁(( ca ne peut pas etre un cas desespere... il doit bien y avoir un moyen, mais je ne m'y connais pas beaucoup... si vous avez la reponse ca serait vraiment super!! encore merci

 

[tototiti2008]

Re : VB Coller donnees Excel sur doc Word existant a emplacement precis

Bonjour zop,

un truc que j'avais vu dans une macro qui faisait quelque chose de ressemblant :
après chaque collage,

éventuellement : tu simules l'utilisation de la flèche droite (enregistre une macro sous Word, je ne sais plus comment ça s'écrit)

tu réinsères ton signet :
wdDoc.Bookmarks.Add ("nomSignet")

 

[zop]

Re : VB Coller donnees Excel sur doc Word existant a emplacement precis

Merci bcp!!
je n'aurai plus internet dans 10min 🙂 donc je vais essayer ce soir, je donne le résultat demain matin!
Bonne soirée!