Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème suppression signet dans word après macro excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

lacocotte2002

XLDnaute Nouveau
Bonjour à tous,

Voici mon problème.

Mon but est d'incrémenter un fichier word à partir de données provenant d'excel.

pour cela je crée des signets sur word afin de définir l'emplacement des données venues d'excel.

Mon problème est qu'à la fin de la macro, les signets sont supprimés sur word et il est donc impossible de le refaire.

Le code utilisé est le suivant :


Sub Macro()
'
'
Dim wordApp As Word.Application
Dim wordDoc As Word.document

Set wordApp = CreateObject("word.application")
Set wordDoc = wordApp.Documents.Open("D:\Dossier\FichierWord.doc", ReadOnly:=False)

wordApp.Visible = False

Sheets(2).Range("B32:E37").Copy
wordDoc.Bookmarks("signet1").Range.PasteSpecial DataType:=wdPasteEnhancedMetafile, Link:=False, Placement:=wdInLine, DisplayAsIcon:=False
Application.CutCopyMode = False

wordDoc.Bookmarks("signet2").Range.Text = Cells(9, 2)

wordDoc.Close True


MsgBox ("It's done !")
'
End Sub


Merci de venir à mon aide, parceque là je ne vois pas.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
706
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…