Mes signets ne fonctionnent pas
J'invoque les lumières de la communauté.
J'essaie de compléter un fichier word à l'aide d'informations provenant d'un tableau Excel.
J'ai créé quatre signets correspondant à quatre informations différentes dans le fichier word et j'ai pompé une macro d'un tuto Youtube, qui donne ça:
Sub creation_profoffre()
Dim wordapp As Word.Application
Dim worddoc As Word.Document
Set wordapp = CreateObject("word.Application")
Set worddoc = wordapp.Documents.Open("C:\vba excel\profoffre.docx")
worddoc.Bookmarks("signet1").Range.Text = Range("'template offre'!B5").Value
worddoc.Bookmarks("signet2").Range.Text = Range("'template offre'!B6").Value
worddoc.Bookmarks("signet3").Range.Text = Range("'template offre'!B7").Value
worddoc.Bookmarks("signet4").Range.Text = Range("'template offre'!B8").Value
End Sub
Au final, les signets ont disparu du fichier Word, mais seul le texte du dernier signet apparaît.
Pourriez-vous m'indiquer ce qui manque ?
Merci par avance !
Bonjour Jipi10 et
Une petite présentation ICI serait la bienvenue
Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum.
Concernant votre demande, le code me semble bon, mais je l'ai quelque peut modifié, à tester
Sub Creation_profoffre()
Dim sPath As String, sFic As String
Dim WordApp As Object
Dim WordDoc As Object
'sPath = ThisWorkbook.Path & "\" : sFic = "doc1.docx"
sPath = "C:\vba excel\" : sFic = "profoffre.docx"
Set WordApp = CreateObject("word.Application")
Set WordDoc = WordApp.Documents.Open(sPath & sFic)
WordApp.Visible = True
WordDoc.Bookmarks("signet1").Range.Text = Range("B5").Value & Chr(10)
WordDoc.Bookmarks("signet2").Range.Text = Range("B6").Value & Chr(10)
WordDoc.Bookmarks("signet3").Range.Text = Range("B7").Value & Chr(10)
WordDoc.Bookmarks("signet4").Range.Text = Range("B8").Value & Chr(10)
End SubMerci de votre participation
Cordialement
Voici me fichiers test
Bonjour Bruno.
Présentation NF.
Merci infiniment pour ta réponse rapide et documentée. Malheureusement ça ne fonctionne toujours pas.
Pour info, les infos Excel d'origine ressemblent à ça, je ne sais pas si ça a de l'importance.
Oui, les fichiers fonctionnent parfaitement... C'est d'autant plus étonnant.
Re.
En fait, je pense qu'on est tout près de la solution.
Quand je vois le truc fonctionner, les signets s'affichent bien, mais chacun d'entre eux efface le précédent...
Si tu as encore une idée lumineuse...
Re,
C'est pour cela que j'ai mis "& Chr(10)" à la fin de la ligne, cela évite l'écrasement du signet
A+