[VBA-W]Retrouvez des objets dans son document [Résolu]

[tazamorte]

J'aimerai savoir comment peut on lister des objets (dans mon cas des feuilles de calcul excel) dans un document word

J'ai regardé dans ActiveDocument mais je ne vois pas qu'elle collection me donnera accès à ses feuilles (ne connaissant pas leur nom)

ce que je voudrais c'est avec une boucle for parcourir toutes mes feuilles

Merci d'avance

[ouskel'n'or]

Code :

1
2
3
4
5
6
Sub CompterlesObjets()
For Each LObjet In ActiveDocument.Shapes
      MsgBox LObjet.Name
      i = i + 1
Next
End Sub

A+

[tazamorte]

Cela ne marche pas il semblerait que les feuilles de calculs qui sont des objets ne font pas partie de la collection Shape

[bbil]

essai la collection inlineShapes..

[tazamorte]

Il semblerait que InlineShapes soit mieux car quand je fais

ActiveDocument.InlineShapes.Count

il me sort le bon nombre d'objet mais le soucis c'est que

ActiveDocument.InlineShapes

ne renvoit pas d'objet ni même

ActiveDocument.InlineShapes.Item

qui renvoi des InlineShapes et donc pas de propriété Name

[tazamorte]

je me fous de les compter je souligner juste que Inlineshape pourrait etre la bonne collection car le count correspond au nombre d'objet mais non ce que je veux c recupérer les objets afin de naviguer de dedans et de récupérer des plages.

Je rappel que je suis dans Word avec des objets feuille de calcul insérer
Merci d'avance

[bbil]

tiens essai :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Sub BoucleTableauxExcel()
 Dim inS As InlineShape
 Dim wk
 For Each inS In ActiveDocument.InlineShapes
    If TypeName(inS.OLEFormat.Object) = "Workbook" Then
        Set wk = inS.OLEFormat.Object
        wk.sheets(1).Range("A1") = " Et la c'est bon ..?"
    End If
 
 
 
 Next
End Sub

[tazamorte]

Je me sens bête mais cela ne marche pas non plus voici les messages d'erreur
et la fenetre de deboggage

[bbil]

c'est quoi la version de Word et d'excel... ?...

au lieu d'utiliser typeName.. essai d'utiliser

inS.OLEFormat.Object.classType =...

[tazamorte]

j'ai une version de Word 2003 et un version de word 2007 sur la machine et il faudrait que le code soit compatible sur les 2 version mais la version finale sera WORD 2007 mais il y aura une période de transistion

Ne marche pas avec

If inS.OLEFormat.Object.ClassType = "Excel.Sheet.8" Then
Set wk = inS.OLEFormat.Object

meme message d'erreur '430'

voici une capture des références que j'ai mise

[bbil]

bon à priori d'aprés un exemple de l'aide en ligne il faudrai activer l'objet...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Sub BoucleTableauxExcel()
 Dim inS As InlineShape
 Dim wk
 For Each inS In ActiveDocument.InlineShapes
   If inS.OLEFormat.ProgID Like "Excel.Sheet*" Then
        inS.OLEFormat.Activate
        Set wk = inS.OLEFormat.Object
        wk.sheets(1).Range("A1") = " Et la c'est bon ..?" & Now
    End If
 Next
End Sub

[tazamorte]

ouskel'n'or:
Ta méthode ne marche pas j'ai un message d'erreur sur

LeTableau.ConvertToShape

ou il me dit que la méthode converttoshape a échoué sur l'objet inlineshape

Bravo BBIL

ta méthode marche

Sub BoucleTableauxExcel()
Dim inS As InlineShape
Dim wk
For Each inS In ActiveDocument.InlineShapes
If inS.OLEFormat.ProgID Like "Excel.Sheet*" Then
inS.OLEFormat.Activate
Set wk = inS.OLEFormat.Object
wk.sheets(1).Range("A1") = " Et la c'est bon ..?" & Now
End If
Next
End Sub

je flague en résolu merci à tous les 2 bonne journée et a bientot