Vab

Résolu
Dandy_danbe Messages postés 108 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
est il possible de crée une macro pour ouvrir un fichier power point et de lance directement une diapositive?



A voir également:

3 réponses

Réponse 1 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
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
Réponse 2 / 3
Dandy_danbe Messages postés 108 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
Réponse 3 / 3
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Voilà un exemple:

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