ajout d'une nouvelle slide sur PPT

[nicolasa]

Bonjour à tous,

je me prends la tête depuis pas mal de temps sur un macro.

Cette macro doit ouvrir un document Ppt, ajouter une nouvelle slide avec le layout normal.

Je sais que cette question à déjà été traitée mais aucune des solutions proposées ne convient. Je ne suis pas expert alors j'ai du mal aussi à adapter les bouts de codes...

Sub Macro10()

Dim AppPwrpt As PowerPoint.Application
Dim DocPwrpt As PowerPoint.Presentation
Dim AppExcel As Excel.Application
Dim DocExcel As Excel.Sheets
Dim NbShpe As Byte

'creation session PowerPoint
Set PPT = CreateObject("Powerpoint.Application")
    PPT.Visible = True
    
'ouverture fichier ppt
    
Set PptDoc = PPT.Presentations.Open("\\FRPA-FPS01\nartzimovitch$\SFE\Ville\Rapports DUO\template rapport duo.ppt")

With DocPwrpt.Application.ActivePresentation.Slides.Add(Index = 1, ppLayoutTitleAndText) = True
End With



End Sub

Le code se déroule bien jusqu'a 'ajout d'une nouvelle slide...

merci de votre aide!!
Nicolas

 

[nicolasa]

Re : ajout d'une nouvelle slide sur PPT

Bonjour à tous,

je me permets de faire remonter ce message.... je bloque toujours sur le code qui doit ajouter une nouvelle slide ppt....!

Merci de votre aide!!!!

 

[tototiti2008]

Re : ajout d'une nouvelle slide sur PPT

Bonjour

à tester :

Sub Macro10()

Dim AppPwrpt As PowerPoint.Application
Dim DocPwrpt As PowerPoint.Presentation
Dim AppExcel As Excel.Application
Dim DocExcel As Excel.Sheets
Dim NbShpe As Byte

'creation session PowerPoint
Set PPT = CreateObject("Powerpoint.Application")
    PPT.Visible = True
    
'ouverture fichier ppt
    
Set DocPwrpt = PPT.Presentations.Open("\\FRPA-FPS01\nartzimovitch$\SFE\Ville\Rapports DUO\template rapport duo.ppt")

DocPwrpt.Slides.Add 1, 1


End Sub

 

[nicolasa]

Re : ajout d'une nouvelle slide sur PPT

Super Merci beaucoup!!!

ca y est j'ai enfin fais le pas qu'il me manquait..!

merci le forum et tototiti!