benjamin67VBA
Messages postés8Date d'inscriptionmardi 30 juin 2015StatutMembreDernière intervention21 avril 2017
-
29 juil. 2016 à 12:28
Bonjour le forum,
Est ce que quelque arriverai à rendre cet extrait de code :
Dim WordDoc As Word.Document
Set WordDoc = WordApp.Documents.Open(chemin & "\" & fichier)
WordApp.Visible = True
WordApp.Selection.Goto What:=wdGoToBookmark, Name:="S1"
WordApp.Selection.Paste
avec celui ci :
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application") 'ouvre une session Word
If Cells(17, 2).Value = "CHS" Then
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open("\\xxxx\CHS.docx") 'ouvre le document Word
MsgBox "Le document est prêt"
WordDoc.Bookmarks("S1").Range.Text = Cells(5, 2).Value
WordDoc.Bookmarks("S2").Range.Text = Cells(5, 2).Value
WordDoc.Bookmarks("S3").Range.Text = Cells(5, 2).Value
WordDoc.Bookmarks("S20").Range.Text = Cells(5, 2).Value
WordDoc.Bookmarks("S4").Range.Text = Cells(8, 2).Value 'CP
WordDoc.Bookmarks("S5").Range.Text = Cells(8, 2).Value
etc etc etc etc
J'ai essayé pas mal de choses, rien de concluant, je galère un peu là..