Fonction Replace:=wdReplaceAll depuis Excel dans Word

[zephir94]

Bonjour à tous,

Je voudrais écrire depuis Excel dans un fichier Word en repérant une balise.
j'utilise donc dans mon Code ceci :

leDoc.Content.Find.Execute findtext:="<BALISE40>", ReplaceWith:=ad & vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & dc & vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & "-" & " " & ComboBox11.Value, Replace:=wdReplaceAll

J'écris sur trois lignes donc à la place de la BALISE40 ad sur la première ligne ,dc sur la deuxième ligne et la valeur de la Combobox sur le troisième ligne .
Cela marche très bien.

Mon soucis est que je voudrais aussi écrire sur 4 lignes en utilisant qu'une balise, donc j'ai écris :

leDoc.Content.Find.Execute findtext:="<BALISE40>", ReplaceWith:=ad & vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & dc & vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & "-" & " " & ComboBox12.Value & vbCrLf & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & Chr(32) & "-" & " " & ComboBox13.Value, Replace:=wdReplaceAll

Mais ça ne marche pas !

Merci par avance si vous avez une idée à me soumettre