Modification de signets Word avec Excel

Version imprimable

26/08/2019, 00h33
alpharender

Modification de signets Word avec Excel

Bonjour a tous.

étant débutant dans le VBA , je viens solliciter votre aide.
je cherche a faire ce qui suit :

dans un doc word (model) j'ai 13 signets que je souhaite remplacer avec excel.
le texte de remplacement des signets se trouve sur la même ligne ( de B5 à N5 )

je souhaite qu'avec un bouton + macro, excel remplace les signets word et enregistre le nouveau fichier "Doc_modifié.docx" sans toucher le Doc Model.

j’espère que c'est claire pour une éventuelle aide de votre part.
Cordialement
26/08/2019, 01h08
clementmarcotte

Cela a été répondu des dizaines de folis

https://cse.google.fr/cse?cx=partner...&sa=Rechercher
26/08/2019, 01h36
alpharender

Merci pour la réponse votre sens de la repartie.
juste pour information, j'ai déjà cherché sur le net et j'ai parcouru les sujets de ce forum qui traitent de problématique similaire.
cela dit aucun n'est assez documenté ou commenté suffisamment pour un débutant comme moi.
de plus je n'ai pas trouvé un sujet similaire qui traite l'enregistrement du fichier Doc sans toucher le fichier-modèle.
je regrette juste le temps perdu pour répondre à mon sujet sans apporter quoi que ce soit.
Très cordialement
26/08/2019, 05h47
Invité

Citation:

Envoyé par alpharender

Bonjour,

Regardez si cette discussion peut vous intéresser : importer-tableau-d-excel-sous-word-sous-format-image-partir-word

Sinon, pour l'utilisation d'un modèle, regardez l'aide en ligne Word au mot Template, vous avez un exemple.
26/08/2019, 08h33
Menhir

Citation:

Envoyé par alpharender

je souhaite qu'avec un bouton + macro, excel remplace les signets word et enregistre le nouveau fichier "Doc_modifié.docx" sans toucher le Doc Model.

Comme l'a dit clementmarcotte ( :coucou:), il a déjà été répondu plusieurs fois à ce type de demande.
https://www.developpez.net/forums/d1...r-ficher-word/
https://www.developpez.net/forums/d1...ts-mise-forme/
https://www.developpez.net/forums/d1...tegrant-infos/
https://www.developpez.net/forums/d1...c-word-precis/
https://www.developpez.net/forums/d1...cel-vers-word/

Citation:

Envoyé par alpharender

l'enregistrement du fichier Doc sans toucher le fichier-modèle.

Utilise la méthode SaveAs2 sur l'objet Document de ton texte.
Lire ça : https://docs.microsoft.com/fr-fr/off...i/word.saveas2

Bonsoir a tous.
déjà 1000 excuses pour l'ambiance dans ce poste.

je partage Ici la solution a mon problème,
le code modifie les signets word et enregistre un nouveau DOC, sans la modification du fichier model.

Bonne continuation a tous (sans exception clementmarcotte ):P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub EcritVersSignet()
Dim LaLettre As String
Dim LeMontant
Dim LeTexte2
Dim ObjWord As Word.Application
Dim LeDocWord As Word.Document
 
On Error Resume Next
 
LaLettre = ThisWorkbook.Path & "\lettre.doc"
Set ObjWord = CreateObject("Word.Application")
ObjWord.Visible = True
Set LeDocWord = ObjWord.Documents.Open(LaLettre)
LeMontant = [A1]
LeTexte2 = [A2]
With LeDocWord
'Le nom du signet dans le document word est ici "Monsignet"
.Bookmarks("Monsignet").Range.Text = LeMontant
'Le nom du signet dans le document word est ici "Monsignet2"
.Bookmarks("Monsignet2").Range.Text = LeTexte2
End With
 
'Pour enregistrer le document et quitter Word
'LeDocWord.Save
'ObjWord.Quit
 
Set ObjWord = Nothing
End Sub

28/08/2019, 09h01
Menhir

Citation:

Envoyé par alpharender

enregistre un nouveau DOC, sans la modification du fichier model.

Il n'y a rien dans ton code qui sauvegarde le document sous un autre nom.
28/08/2019, 09h06
alpharender
Citation:

Envoyé par Menhir

Il n'y a rien dans ton code qui sauvegarde le document sous un autre nom.

voila le code d'enregistrement.
Code:

1 2 3 LeDocWord.SaveAs Filename:="C:\.......\excel2word\" & "affaire_" & [B5].Value & ".docx" ObjWord.Quit
Ps : je met mon fichier model est en lecture seul.

merci pour ton retour.