Discussion :

[Jonathan_06]

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

[78chris]

Bonjour

Si on lance bien au préalable le nommage des diapos, ton code fonctionne.

[Jonathan_06]

Bonjour 78chris,

Merci de ton retour.

Qu'entends tu par "si on lance au préalable" ?
Il faut que cette macro se lance automatiquement avant que je clique sur le bouton "Conserver les slides sélectionner ?"

Je suppose que je dois mal faire quelque chose, mais merci d'avoir confirmé mon code.

A bientôt

Jonathan

[78chris]

Bonjour

Si tes diapos sont déjà nommées la macro de nommage n'a pas à être lancée avant le clic sur le bouton.

Sinon il faut la lancer au moins une fois et sauvegarder le fichier PPT pour que les noms soient bien enregistrés dans le PPT.