Vab

Résolu
Dandy_danbe Messages postés 109 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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 Messages postés 8437 Statut Contributeur 730
     
    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
  2. Dandy_danbe Messages postés 109 Date d'inscription   Statut Membre Dernière intervention  
     
    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
  3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Voilà un exemple:

    http://www.cjoint.com/c/FBzkfMks1eQ
    0