1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
| Dim ppApp As PowerPoint.Application
Dim ppShp As PowerPoint.Shape
Dim ppPres As PowerPoint.Presentation
Dim ppSlide As PowerPoint.Slide
Dim excel_origine, chemin_acces, pptexport As String
Dim pptmaquette, chemin_acces_maquette As String
Dim Slide, nb_ligne As Integer
Dim Type_generation, Nom_shape, Cells As String
Sub Generation()
'------ Paramétrage des variables ------'
'Stockage du nom de ce fichier
excel_origine = ThisWorkbook.Name
'Stockage du chemin d'accès de ce fichier
chemin_acces = ThisWorkbook.Path
'Stockage du chemin d'accès des maquettes qui sont dans un sous dossier nommé "Template"
chemin_acces_maquette = ThisWorkbook.Path & "\Template\"
'Ouverture de la maquette powerpoint
Set ppApp = New PowerPoint.Application
Set ppPres = ppApp.Presentations.Open(chemin_acces_maquette & pptmaquette)
'Enresgitrement de la maquette powerpoint sous son nom de MarketView
ppPres.SaveAs chemin_acces & "\" & pptexport, ppSaveAsOpenXMLPresentation |
Partager