VBA Compatibilité entre 2 codes

Fermé
benjamin67VBA Messages postés 8 Date d'inscription mardi 30 juin 2015 Statut Membre Dernière intervention 21 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à..

Merci d'avance !
A voir également: