Public AppXL As Excel.Application
Sub RécupérerDansExcel()
Dim text1, Nom As String
Dim x As Integer
Set AppXL = CreateObject("Excel.Application")
AppXL.Visible = True
AppXL.Workbooks.Open "V1_0.xlsm"
x = 1
For Each shapeLoop In ActiveDocument.InlineShapes
Nom = shapeLoop.OLEFormat.Object.Name
If Len(Nom) = 3 Then
x = Right(Nom, 1)
End If
If Len(Nom) = 4 Then
x = Right(Nom, 2)
End If
'x = x + 1
text1 = AppXL.Range("Memory!J" & x).Value
If text1 = "True" Then
shapeLoop.OLEFormat.Object.Value = True
End If
Next
End Sub