Sujet Précédent Sujet Suivant

Vab

Résolu/Fermé
Dandy_danbe Messages postés 108 Date d'inscription mardi 18 mars 2014 Statut Membre Dernière intervention 11 avril 2022 - 24 févr. 2016 à 06:55
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 25 févr. 2016 à 11:06
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
Modifié par cs_Le Pivert le 24/02/2016 à 11:47
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 mardi 18 mars 2014 Statut Membre Dernière intervention 11 avril 2022
25 févr. 2016 à 08:09
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 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
25 févr. 2016 à 11:06
Voilà un exemple:

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