Remplissage signet word via excel

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
 

desmonts

XLDnaute Occasionnel
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 :(
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 782
Membres
101 817
dernier inscrit
carvajal