Remplissage signet word via 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 !

desmonts

XLDnaute Occasionnel
Bonjour à toutes et tous


J’ai trouvé un petit code qui permet via un fichier excel de remplir des signets dans un document word.

Cela fonctionne très bien quand le document word est fermé sur mon disque dur.

Ligne B4 va au signet 1, ligne B5 va au signet 2 etc…

Sub Publicontract()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim i As Byte
Set WordApp = CreateObject("word.application")
Set WordDoc = WordApp.Documents.Open("C:\essaie1.docx")
WordApp.Visible = True
For i = 4 To 7
Set monSignet = WordDoc.Bookmarks("Signet" & i).Range
monSignet.Text = Cells(i, 2)
WordDoc.Bookmarks.Add "Signet" & i, monSignet
Next i
End Sub

Par contre je souhaiterai faire la même chose mais avec le document word déjà ouvert. Avez une idée de ce que je dois modifier ? la ligne en gras italique certainement ?Par avance merci de votre aide.

cordialement
 
Merci pour ton retour Pierre, mais je n'ai pas tout compris, mon fichier word sera déjà ouvert avant de lancer la macro. Non pas depuis mon PC mais depuis un serveur central de mon entreprise donc la variable ndf je peux la nomé par exemple essaie 1 mais je peux pas lui indiqué de chemin. Donc mon besaoin serait d'exécuter la macro excel en allant juste dans le word déjà ouvert sur mon PC nomé essaie1 pour l'exemple mais qui n'est pas enregistré dessus. Je sais pas si je suis très clair 🙁
 
- 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
2
Affichages
371
Réponses
5
Affichages
594
Réponses
0
Affichages
590
Retour