Discussion :

[DevJunior59]

Bonjour à tous,
Travaillant actuellement sur un projet de macro transférant des données d'un Excel ( tableau et son graphique) vers un PowerPoint, actuellement j'ai fais un macro permettant de crée une nouvelle slide, d'y ajouter un tableau et un graphique.
le problème étant que pur faire ça, je suis obligé d'avoir le nom du tableau , puis le code se répète encore et encore...

je pense qu'il faudrait faire une boucle for each qui dis que pour chaque tableau et son graphique du fichier excel, il crée une nouvelle slide dans le pptx mais je ne sais pas trop comment m'y prendre .
il y a-t-il un objet qui désigne " chaque tableau", en gros que mon code VBA comprennent qu'il s'agit des tableaux et non d'autre type de données, par exemple pour les graphique je sais que c'est ChartObjects()...

Je suis preneur de toutes pistes

Merci à vous !

[joe.levrai]

Bonjour,

les tableaux structurés sont des objets qui, en VBA, se nomment des ListObject
Ils appartiennent à la collection ListObjects sur laquelle tu peux faire une boucle pour les recenser/manipuler

[DevJunior59]

bonjour,
Merci à toi je vais voir de ce côté alors !

merci bien, je reviens faire part de la suite, qu'elle soit positive ou non .

[DevJunior59]

est-ce possible de l'utiliser de cette façon ?

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
 
For Each tableau In ListObjects
 
    tableau.Copy
    Pres.Slides(3).Shapes.PasteSpecial (ppPasteBitmap)
    nbshpe = Pres.Slides(3).Shapes.Count
    With Pres.Slides(3).Shapes(nbshpe)
        .Left = 50
        .Top = 100
        .Width = 150
        .Height = 100
 
     End With
 
Next tableau

car avec ça, mon debogueur me renvoie direct sur ma ligne

Code :

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

For Each tableau In ListObjects

[joe.levrai]

Le parent de cet objet est la feuille de calcul

pour parcourir l'ensemble des tableaux d'un classeur, il faut au préalable boucler sur chaque feuille

Code :

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

1
2
3
4
5
6
7
8
9
Sub toto()
Dim MonTableau As ListObject
Dim Sh As Worksheet
    For Each Sh In ThisWorkbook.Worksheets
        For Each MonTableau In Sh.ListObjects
            MsgBox MonTableau.Name
        Next MonTableau
    Next Sh
End Sub

dans ton code partiel, tu vas copier tous tes tableaux sur la diapo 3, je le souligne mais c'est peut-être le comportement souhaité

[DevJunior59]

Oui effectivement merci de souligner, il s'agit d'une erreur de ma part.

Je vais donc recréer une slide à chaque fois et utiliser ton bout de code pour boucler,
ou peut-être devrais-je plutôt faire un incrément pour dire que sur chaque bouclage on copie dans la slide suivante...