supprimer un tableau powerpoint / condition "Existe"

Version imprimable

Bonjour
J'utilise ce code dans un fichier excel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ActiveSheet.Range("A2:H" & a).Copy PptDoc.Slides(2).Shapes("dbtableau").Delete .Slides(2).Shapes.PasteSpecial ppPasteEnhancedMetafile With .Slides(2).Shapes(.Slides(2).Shapes.Count) .Name = "dbTableau" .LockAspectRatio = msoFalse .Width = 360 .Height = 350 .Left = 90 .Top = 130 End With
en général dbtableau existe au moment de lancer la macro, mais pas tout le temps.
Et lorsque il existe pas, çà me met un message d'erreur..
Comment effectuer la condition "Si dbtableau existe, alors "?
c'est la condition "existe" que je ne sais pas traduire en VBA...
Voila
Merci par avance de votre réponse

Autre question sur le même programme
y a t il moyen de supprimer toutes les Shapes d'une slides sans spécifier leur nom?(parce que justement, dans le cas ou dbtableau n existe pas, j'arrive pas à les supprimer automatiquement...)

04/04/2008, 16h48
nawake
Salut, je n'ai jamais touché aux objets powerpoint par contre je pense que tu devrait utiliser :

Code:

PptDoc.Slides(2).Shapes.Count

S'il y a toujours qu'une seule Shape dans cette diapo alors tu auras soit 1(y est) soit 0 (y est pas)

Pour tout supprimer :
Code:

1 2 3 For each Mes_shapes in PptDoc.Slides(2).Shapes 'traitement Next
++ :)

J'ai écrit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
ActiveSheet.Range("C11:J16").Copy
For Each Shape In PptDoc.Slides(2).Shapes
   PptDoc.Slides(2).Shapes.Delete
 
.Slides(2).Shapes.PasteSpecial ppPasteEnhancedMetafile
 
 
    With .Slides(2).Shapes(.Slides(2).Shapes.Count)
        .Name = "dbTableau"
        .LockAspectRatio = msoFalse
        .Width = 360
        .Height = 350
        .Left = 90
        .Top = 130
 
    End With
    .Save
End With
 
PptDoc.Close
PptApp.Quit
fin:

Mais ca me met une erreur : "compil error" method or data member not found"...