Discussion :

[ouioui_cmoi]

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...)

[nawake]

Salut, je n'ai jamais touché aux objets powerpoint par contre je pense que tu devrait utiliser :

Code :

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

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 :

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

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

++

[ouioui_cmoi]

J'ai écrit :

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
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"...