Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic ovrir un diaporama a partir d'excel

ovrir un diaporama a partir d'excel

2 réponses
Avatar
un nul
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True
ppt.Presentations.Open "c:\animaux\mammiferes.pps"


With ActiveWindow
.RunAutoMacros xlAutoClose
.Close
End With
End Sub
voici ma macro el probleme je veux ouvrir a partir de la diapo 2
merci pour votre aide
--
MR NUL
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacques93
Bonjour,
un nul a écrit :
Set ppt = CreateObject("PowerPoint.Application")
ppt.Visible = True
ppt.Presentations.Open "c:animauxmammiferes.pps"


With ActiveWindow
.RunAutoMacros xlAutoClose
.Close
End With
End Sub
voici ma macro el probleme je veux ouvrir a partir de la diapo 2
merci pour votre aide



Extrait de l'aide (semble ne fonctionner qu'avec l'extension .ppt) :

Dim s As Slide

Set ppt = New PowerPoint.Application
ppt.Visible = True
ppt.Presentations.Open "c:animauxmammiferes.ppt"
For Each s In ppt.ActivePresentation.Slides
With s.SlideShowTransition
.AdvanceOnTime = True
.AdvanceTime = 2
End With
Next

With ppt.ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
.StartingSlide = 2
.EndingSlide = ppt.ActivePresentation.Slides.Count
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = True
.Run
End With

--
Cordialement,

Jacques.
Avatar
un nul
apparemment ca ne marche pas si t'as une autre methode je la prend
merci pour ta reponse
--
MR NUL


"Jacques93" a écrit :

Bonjour,
un nul a écrit :
> Set ppt = CreateObject("PowerPoint.Application")
> ppt.Visible = True
> ppt.Presentations.Open "c:animauxmammiferes.pps"
>
>
> With ActiveWindow
> .RunAutoMacros xlAutoClose
> .Close
> End With
> End Sub
> voici ma macro el probleme je veux ouvrir a partir de la diapo 2
> merci pour votre aide

Extrait de l'aide (semble ne fonctionner qu'avec l'extension .ppt) :

Dim s As Slide

Set ppt = New PowerPoint.Application
ppt.Visible = True
ppt.Presentations.Open "c:animauxmammiferes.ppt"
For Each s In ppt.ActivePresentation.Slides
With s.SlideShowTransition
.AdvanceOnTime = True
.AdvanceTime = 2
End With
Next

With ppt.ActivePresentation.SlideShowSettings
.RangeType = ppShowSlideRange
.StartingSlide = 2
.EndingSlide = ppt.ActivePresentation.Slides.Count
.AdvanceMode = ppSlideShowUseSlideTimings
.LoopUntilStopped = True
.Run
End With

--
Cordialement,

Jacques.