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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager