Identifier des slides

Bonjour à tous,
J'ai tout d'abord fait le tour des autres discussions et je n'ai pas trouvé la réponse à mes questions.
Voici le sujet : j'ai un PowerPoint d'une trentaine de slides. Certaines slides ne sont pas applicables à tous les cas de figure. À l'ouverture du PowerPoint l'utilisateur est invité à répondre à plusieurs questions par Oui ou par Non. Lorsque la réponse est oui (exemple question 1 se réfère à la slide 12) alors il faut conserver la slide, si la réponse est non alors il faut la supprimer.

J'ai codé toutes les routines et toutes les questions en utilisant le numéro de la slide. Petit problème qui m'est apparu à la fin : si je supprime la slide 12, la slide 13 devient la slide 12 et cela vient casser mon code.
Existe t il un moyen de pouvoir identifier au préalable (à l'ouverture de la macro) chaque slide concernée d'une manière unique ?

NB : l'utilisateur va travailler sur la présentation, l'option de masquer les slides n'est pas envisageable cela créerait trop de confusion.

Par avance merci beaucoup pour votre aide.
Bonne journée,
Gauthier

Bonjour

Ce que tu peux faire c'est donner un nom à chaque slide et donc les appeler par leurs noms :

Exemple :

Je crées un Powerpoint avec 4 slides et je lance cette routine que je mets dans un module :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Public Sub t()     Dim objSlide As PowerPoint.Slide Dim i As Integer   i = 1   For Each objSlide In ActivePresentation.Slides objSlide.Name = "Page" & i i = i + 1 Next objSlide       End Sub

---

Cela va donner un nom à chaque slide : Page1, Page2, Page3 et Page4

Si je supprime la deuxième, (donc Page2) et que je lance la routine suivante :

Code:

---

1 2 3 4 5 6 7 8 9

Public Sub tt()   Dim objSlide As PowerPoint.Slide   For Each objSlide In ActivePresentation.Slides MsgBox objSlide.Name Next objSlide   End Sub

---

Je n'aurais plus que Page1, Page3 et Page4

Donc pour t'expliquer qu'il faut donner un nom à tes slides et les appeler par ce nom qui sera toujours valable, et donc modifier ton code en conséquence.

Philippe

Bonjour Philippe,

tout d'abord merci beaucoup pour votre message.
J'ai intégré le premier code à ma macro. Cependant, elle ce que cela va s'appliquer à tous les User Forms qui vont suivre ? (une dizaine).

En effet, je n'arrive pas à trouver la formule adéquat.

La formule précédente était :

Code:

---

1 2 3 4 5 6 7

Private Sub PasFraudes_Click()   Unload Me ActivePresentation.Slides(12).Delete Question4.Show   End Sub

---

Je ne sais pas par quoi remplacer la partie ActivePresentation.Slides(12).Delete
ActivePresentation.Page10.Delete ne fonctionne pas tout comme ActivePresentation.Slides(Page10).Delete.

Pourriez-vous m'aiguiller s'il vous plaît ?
Par avance merci beaucoup,
GAuthier.

C'est tout bon, il suffisait de mettre Slides("PageXX").Delete... sacrés guillemets...

Merci beaucoup !!

Bonjour,

je reviens vers vous car j'ai fait recetté la macro à un autre utilisateur afin de vérifier son fonctionnement.
Il a eu le message d'erreur suivant :

Pièce jointe 309166

En gros, une autre slide a déjà ce nom. Du coup j'ai l'impression qu'on ne peut faire tourner cette macro qu'une seule fois. Or son but est d'être mise en ligne puis utilisée par une centaine de personnes... :)

Pourriez-vous m'aider à trouver soit une manière de lancer la routine différemment ? (j'ai déjà testé en ne mettant pas "ActivePresentation" mais directement Presentations("Nom du diapo.pptm") ça ne fonctionne pas).
Soit, si cela est possible, de commencer la routine par un code qui permet de supprimer le nom des slides qui commencent par "Page"+i ?

Par avance merci beaucoup pour votre précieuse aide.
Bonne fin de journée.

Bonjour,

Citation:

---

Envoyé par Ginipio

Bonjour,

Or son but est d'être mise en ligne puis utilisée par une centaine de personnes... :)

---

Gros problème là. Un macro PowerPoint ne peut être utilisée que dans sa propre présentation/son propre modèle sauf pour un complément/une macro complémentaire

Citation:

---

Pourriez-vous m'aider à trouver soit une manière de lancer la routine différemment ? Soit, si cela est possible, de commencer la routine par un code qui permet de supprimer le nom des slides qui commencent par "Page"+i ?

---

Personnellement, sans avoir testé, je dirais de te faire un modèle avec toutes tes diapositives, et de te faire une nouvelle présentation avec juste les diapositives dont tu as besoin.

Bonjour,
la macro sera à télécharger par chaque utilisateur et utilisée sur le dur du PC pas directement en ligne.
Pour moi cela ne devrait pas poser de problème, j'avais envoyé un premier jet à un utilisateur et ça avait fonctionné (mais c'était avant de nommer les slides).

Pour ce qui est de faire deux jeux de diapositives, c'est impossible, il y a 9 questions en tout et donc potentiellement 9 slides en moins (ou 8, ou 7, etc.)

Je pense qu'il y a possibilité de remettre à zéro à chaque fois le nom des slides mais je ne sais pas comment...

Merci à vous,
Bonne journée.

Bonjour à tous,

j'ai réfléchi à une parade : si je demande à l'utilisateur d'entrer par exemple le nom de son client et que j'indique dans ma macro le code suivant :

Code:

---

1 2 3 4

For Each objSlide In ActivePresentation.Slides objSlide.Name = "Réponseutilisateur" & i i = i + 1 Next objslide

---

Est-ce que vous pensez que cela peut fonctionner ?
Comment puis-je coder l'UserForm pour pouvoir utiliser la réponse de l'utilisateur ? Est-ce un integer ?

Merci beaucoup pour votre aide,
bonne journée.