Discussion :

[tazamorte]

Bonjour

J'ai un document word contenant des objets feuilles de calculs j'aimerai accéder aux feuilles de calculs.
J'arrive a récupérer les objets grâce à ce code mais je n'arrive pas à la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim ins
 For Each ins In ActiveDocument.InlineShapes
   If ins.OLEFormat.ProgID Like "Excel.Sheet*" Then
        ins.OLEFormat.object 'ne marche pas
 
    End If
 Next

[tazamorte]

Voila ma réponse apres tant d'heure de recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
For Each ws In ActiveDocument.InlineShapes
With ws
   If .Type = wdInlineShapeEmbeddedOLEObject Then
      .OLEFormat.DoVerb wdOLEVerbPrimary
      .OLEFormat.Object.ActiveSheet.Cells(2, 4).Value = "About"
      .OLEFormat.Object.ActiveSheet.Cells(2, 5).Value = "Visual"
      .OLEFormat.Object.ActiveSheet.Cells(2, 6).Value = "Basic"
   End If
End With
Next ws