1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| ElseIf Format(extention, ">") = "POT" Then
'### Constante à adapter ###
Const CHEMIN_MODELE As String = "U:\PPI\Macro_power point\TEST1.pot"
'###########################
Dim PP As Object 'PowerPoint.Application
Dim PRES As Object 'PowerPoint.Presentation
Set PP = CreateObject("Powerpoint.Application")
Set PRES = PP.Presentations.Add
PRES.Slides.InsertFromFile "U:\PPI\Macro_power point\TEST1.pot", Index4, 1, 4
PRES.ApplyTemplate Filename:=CHEMIN_MODELE
PP.Visible = True
Set PRES = Nothing
Set PP = Nothing
Exit Sub |
Partager