[XL-2016] Demande aide extraction données de champs "image" de formulaire Word dans Excel VBA

bonjour,

Avez-vous un début de code à montrer ?

Pour prendre l'image dans un contrôle de contenu image vous pouvez faire ça.
Pour ensuite intégrer l'image dans votre Excel je vous laisse voir :-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub CopieImg()
 
   Dim oDoc As Document
   Dim cc As ContentControl
   Dim inSh As InlineShape
   Set oDoc = ActiveDocument
 
   For Each cc In oDoc.ContentControls
      If cc.Type = wdContentControlPicture Then
         If cc.Range.InlineShapes.Count = 1 Then
            Set inSh = cc.Range.InlineShapes(1)
            inSh.Range.CopyAsPicture 'L'image est copiée dans le presse papier
 
            'Ajouter procédure pour la coller dans Excel
 
         End If
      End If
   Next
 
End Sub

Cordialement