Bonjour,
j'utilise le code suivant pour modifier des textes dans word depuis un fichier excel y marche au top :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
    ' déclaration des valeur à mettre à jour
        Dim nom_complet_fichier As String 
        Dim titre_documentAs String
        Dim phase As String
 
    ' indexation des valeurs
        nom_complet_fichier = ActiveCell.Offset(0, 40).Value 'nom complet du fichier à mettre à jour
        titre_document = ActiveCell.Value 'nom du fichier à mettre à jour
        phase = ActiveCell.Offset(0, -8)
 
     ' vérification que le fichier existe
        If dir(nom_complet_fichier) = "" Then
 
    ' si non on lancement la création_document
        MsgBox "le fichier à mettre à jour n'a pas été retrouvé"
        Exit Sub
            End If
 
    ' déclaration diverses
        Dim WordApp As Word.Application
        Dim WordDoc As Word.Document
        Dim cc As ContentControl
 
         On Error Resume Next
        ActiveWorkbook.FollowHyperlink Address:=ActiveCell.Offset(0, 40), NewWindow:=True
 
    ' Si une erreur est renvoyée, c'est que le fichier n'a pa pu être ouvert
        If err.Number <> 0 Then
        MsgBox "un problème est survenu lors de l'ouverture ce fichier est peu-être déjà ouvert par quelqu'un d'autre"
        Exit Sub
        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 = phase
        Next
        End If
 
    ' mise à jour du controle de contenu par la balise
        Set docCCs = ActiveDocument.SelectContentControlsByTag("titre_document")
        If docCCs.Count <> 0 Then
        For Each cc In docCCs
        cc.Range.Text = titre_document
        Next
        End If
 
    End
    End Sub
Comment puis-je faire la même chose pour une image qui serait dans un contrôle de contenu image possédant une balise "photo" par exemple ?
merci par avance