Modifier un controle de contenu

Bonjour,

Je recherche un moyen de mettre à jours des documents Word depuis un fichier Excel.

Pour cela j'ai créer dans les documents Word des contrôles de contenu avec des balises, mais je n'arrive pas à les modifier !

si quelqu'un peu m'aider ?

merci d'avance...

tout simple.

Un petit exemple qui va écrire la cellule A1 du sheet "lenomdusheet" dans le bookmark "toto" du fichier mondoc.docx qui se trouve dans le même folder que l'excel mâitre

Sub toto()
dim wapp as word.application
dim wdoc as word.document
set wapp=createobject("Word.application")
wapp.visible = true
set wdoc = wapp.documents.open(thisworkbook.path & "/" & "mondoc.docx")
wdoc.bookmarks("toto").range.select
with wapp.selection
.typeParagraph
.font.bold= true
.font.name = "Calibri"
.typetext (sheets("lenomdusheet").cells(1,1)
end with
end sub

Bonjour,

Bookmarks marche avec une balise de signet mais je n'arrive pas à le faire fonctionner avec la balise d'un contrôle de contenu ?!

merci d'avance

Youpi ! j'y suis enfin arrivé !

mais il me reste un petit détail j'ai une erreur 462 une fois sur 2, il faut remettre à jour un truc mais je ne sais pas quoi ni comment !

j'utilise le code suivant :

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim cc As ContentControl

    Set WordApp = CreateObject("word.application")    'ouvre une session Word
    Set WordDoc = WordApp.Documents.Open("C:\Users\a.faurie\Desktop\essais.docx")    'ouvre le document Word
    WordApp.Visible = True   'Word est masqué pendant l'opération

    ' mise à jour du controle de contenu par la balise
    Set docCCs = ActiveDocument.SelectContentControlsByTag("titre_affaire")
     If docCCs.Count <> 0 Then
        For Each cc In docCCs
            cc.Range.Text = "je suis trop fort"
        Next
    End If

    ' mise à jour du controle de contenu par la balise
    Set docCCs = ActiveDocument.SelectContentControlsByTag("Phase")
     If docCCs.Count <> 0 Then
        For Each cc In docCCs
            cc.Range.Text = "je suis vraiment trop fort"
        Next
    End If

si pouvez m'aider, merci d'avance

' déclaration diverses
        Dim WordApp As Word.Application
        Dim WordDoc As Word.Document
        Dim cc As ContentControl

    ' bloqué l'affichage de word
        WordApp.Visible = False

    ' mise à jour du controle de contenu par la balise
        Set docCCs = ActiveDocument.SelectContentControlsByTag("phase")
        If docCCs.Count <> 0 Then
        For Each cc In docCCs
        cc.Range.Text = phase
        Next
        End If

et finir par End si non erreur 426 une fois sur 2 !