Discussion :

[GeekAlf]

Bonjour,

j'ai en sortie de progiciel, un document word d'environ 800 salariés.
Celui-ci contient des cartes individuelles
Dans un cadre de ce document, j'ai un chemin pointant vers la photo du salarié
par exemple


Je souhaite remplacer le chemin par la photo dans le fichier.
Je précise bien évidemment que je n'ai pas accès à la source de données ni la possibilité de refaire une fusion publipostage

J'ignore si c'est faisable.

Merci par avance

[E KERGRESSE]

Bonjour,

Essayez ce code :

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
Sub InsererUneImageDansUneShape()
 
Dim I As Integer
Dim ShapeImage As Shape
Dim NomImage As String
Dim WdDoc As Document
 
    Set WdDoc = ActiveDocument
    With WdDoc
         For I = 1 To .Shapes.Count
             With .Shapes(I)
                  If .TextFrame.HasText Then
                     NomImage = Mid(.TextFrame.TextRange.Text, 1, Len(.TextFrame.TextRange.Text) - 1)
                     If PresenceImage(NomImage) Then
                        Set ShapeImage = WdDoc.Shapes(I)
                        With ShapeImage
                             .Fill.UserPicture NomImage
                             .TextFrame.TextRange.Font.Fill.Visible = False
                        End With
                        Set ShapeImage = Nothing
                     End If
                  End If
             End With
         Next I
    End With
    Set WdDoc = Nothing
 
End Sub
 
 
Function PresenceImage(ByVal CheminImage As String) As Boolean
 
Dim Fso As Object
 
    PresenceImage = False
    Set Fso = CreateObject("Scripting.FileSystemObject")
    PresenceImage = Fso.FileExists(CheminImage)
    Set Fso = Nothing
 
End Function