Discussion :

[alpharender]

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

[clementmarcotte]

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

https://cse.google.fr/cse?cx=partner...&sa=Rechercher

[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

[Menhir]

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 ( ), 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/

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

[alpharender]

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 )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[alpharender]

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

voila le code d'enregistrement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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.