Discussion :

[Ginipio]

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

[Invité]

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 :

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
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 :

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

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

[Ginipio]

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 :

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

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.

[Ginipio]

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

Merci beaucoup !!

[Ginipio]

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 :



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.

[clementmarcotte]

Bonjour,

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

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.

[Ginipio]

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.

[Ginipio]

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 :

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

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.