Vab

Résolu
Dandy_danbe -  
Bonjour,
est il possible de crée une macro pour ouvrir un fichier power point et de lance directement une diapositive?

3 réponses

  1.  cs_Le Pivert Contributeur
    Voilà un exemple:

    http://www.cjoint.com/c/FBzkfMks1eQ
    0
    1. Dandy_danbe Auteur
      Bonjour; merci pour la réponce
      comme je n'ai jamais utilise user form pourriez vous
      m'aider encore un peut svp.
      j'ai trouver u f et mis le bouton comme explique,
      mais je ne sais pas ou et comment incère le fichier
      nom du fichier "BINGO BINGO BINGO.ppts"
      cordialement
      Dandy_dan
      0
      1. cs_Le Pivert Contributeur
        Bonjour,

        En vba faire Alt f11 pour accéder à l'éditeur. Inserer une UserForm, dans cette UF, mettre un bouton et double cliquez dessus.

        pour choisir la présentation, mettre ceci dans le bouton: 

        Option Explicit
Dim Fichier As variant
Private Sub CommandButton1_Click()
'On cherche le chemin
  Fichier = Application.GetOpenFileName( _
    "Fichiers Présentation (*.ppt;*.pps),*.ppt;*.pps")
    If Fichier = False Then Exit Sub
  Test
End sub


        'nécéssite d'activer la reference Microsoft Powerpoint 10.0 Object Library, allez dans Outils, références
Sub Test()
Dim ppt As PowerPoint.Application
  Dim Pres As PowerPoint.Presentation
'On ouvre la présentation
  Set ppt = CreateObject("PowerPoint.Application")
  ppt.Visible = True ' Indispensable, sinon il ne peut pas ouvrir de fichier (Erreur)
Set Pres = ppt.Presentations.Open(Filename:=Fichier)
End Sub


        @+ Le Pivert
        0