2 pièce(s) jointe(s)
Suppression de slide par leur nom et non leur numéro
Bonjour à tous,
Tout d'abord, je suis nouveau alors pardonnez mes éventuelles maladresses.
Je m'appelle Jonathan et je travaille au service événementiel d'un Hôtel.
Nous avons une plaquette restauration sur Powerpoint qui contient 200 slides.
Sur la première page il y a des cases à cocher par catégorie de produit qui nous permettent de sélectionner uniquement les slides que nous souhaitons envoyés au client.
Le process est :
-F5 pour afficher en plein écran
-Sélection des "catégories"
-Cliquer sur "Conserver les slides" (qui supprime en fait les slides dont nous n'avons pas besoin).
Cela a été programmé par une personne qui ne fait plus partie de l'entreprise mais qui a gentiment mis un mot de passe sur son fichier, ce qui nous empêche de le modifier (sauf si vous savez comment passer outre un mot de passe).
J'ai donc essayé avec mes restes d'école et le parcours de plusieurs forum de re-programmer un nouveau document.
Je maîtrise la partie "Suppression des slides" lorsque "j'appelle les slides par leur numéro" avec cette commande :
Code:
1 2 3 4
| Sub Conserver_Slide_Selectionner_Click()
If Canape_bout_des_doigts.Value = False Then
ActivePresentation.Slides.Range(Array(1,2,3,4)).Delete |
Mes limites se pointent quand je veux donner un nom à mes slides afin d'éviter qu'à cause de la boucle on supprime par exemple la slide 4 qui serait devenu slide 1 après un premier click.
J'utilise alors ces Macros mais j'ai un message d'erreur qui me dit qu'ils ne trouvent pas la commande :
Code:
1 2 3 4 5 6 7 8
| Sub ChangeName()
ActivePresentation.Slides(2).Name = "Accueil_canape"
ActivePresentation.Slides(3).Name = "Canape_froid"
ActivePresentation.Slides(4).Name = "Canape_chaud"
ActivePresentation.Slides(5).Name = "Canape_asiat"
ActivePresentation.Slides(6).Name = "Canape_sucre"
End Sub |
Code:
1 2 3 4
| Sub Conserver_Slide_Selectionner_Click()
If Canape_bout_des_doigts.Value = False Then
ActivePresentation.Slides.Range(Array("Accueil_canape", "Canape_froid", "Canape_chaud", "Canape_asiat", "Canape_sucre")).Delete |
Vous trouverez ci-joint une photo de la page de garde définitive et une copie du document sur lequel je travaille en version allégé (uniquement les pièces de canapés).
Je vous remercie d'avance pour votre aide et vos conseils.
Jonathan