1. #1
    Futur Membre du Club
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2015
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : décembre 2015
    Messages : 8
    Points : 7
    Points
    7

    Par défaut Fonction VBA OK pas à pas, KO automatique?

    Bonjour,

    Je ne comprends pas
    Je donne les exemples

    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
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    Sub Visu01(ByRef valcel As String)
     
    On Error GoTo Erreur
     
    Dim objSld As Slide
     
      Dim oPPTapp As PowerPoint.Application
      Dim MaPresentation As PowerPoint.Presentation
             Set oPPTapp = CreateObject("PowerPoint.Application")
             oPPTapp.Visible = True
             Set MaPresentation = oPPTapp.Presentations.Open(FileName:="C:\Users\SERGE\Desktop\VBA\PwpVBA.pptm")
              'Sélectionne la diapo paramètrée
     
        MaPresentation.Slides(valcel).Select
     
            Affichage valcel
     
        MaPresentation.Close
        oPPTapp.Quit
       Set MaPresentation = Nothing
        Set oPPTapp = Nothing
     
    Erreur:
     
    ' Diapo non trouvée
    'MaPresentation.Slides("PRESENTATION").Select
    'msg1 = valcel
    'msg2 = "Diapo non trouvée"
    'MsgBox msg1 & " " & msg2
     
     
      ' MaPresentation.Close
      ' oPPTapp.Quit
      ' Set MaPresentation = Nothing
      ' Set oPPTapp = Nothing
     
     
    End Sub

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub Affichage(ByRef valcel As String)
     
    MsgBox "POWER POINT Valcel value = " & valcel
     
    End Sub

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Sub Essais()
    Visu01 "JAUNE"
     
    End Sub
    ___________________________________________

    MACRO Essais

    exécution pas à pas
    OK affichage diapo "JAUNE"

    exécution normale
    KO affichage de la 1ère diapo



    Merci de m'éclairer

  2. #2
    Futur Membre du Club
    Homme Profil pro
    Ingénieur après-vente
    Inscrit en
    décembre 2015
    Messages
    5
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur après-vente
    Secteur : Santé

    Informations forums :
    Inscription : décembre 2015
    Messages : 5
    Points : 7
    Points
    7

    Par défaut

    Bonsoir

    J'ai essayé ta macro et tout semble marcher chez moi.

    Quel est ton problème ?

    Après avoir testé ta macro, j'ai vu que la discussion est résolue !!

    Comment ?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [XL-2010] Fonction Vlookup en VBA ne marche pas: erreur execution 9
    Par jgresse1025 dans le forum Macros et VBA Excel
    Réponses: 89
    Dernier message: 02/04/2015, 14h10
  2. VBA fonction IsEven ne fonctionne pas
    Par sambrelin dans le forum Macros et VBA Excel
    Réponses: 11
    Dernier message: 14/02/2014, 22h05
  3. Fonction éxecuter que en pas à pas
    Par djams9 dans le forum VB.NET
    Réponses: 53
    Dernier message: 11/04/2011, 09h26
  4. [VBA] Ma fonction ne se lance pas quand je clique sur mon bouton
    Par MeHo_ dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 18/03/2008, 16h28
  5. Fonction mail() ne marche pas chez OVH ?
    Par quanou dans le forum Forum
    Réponses: 8
    Dernier message: 08/11/2005, 13h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo