Bonjour
J'utilise ce code dans un fichier excel :
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
 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...)