Plages Excel vers modèle Power point
Bonjour à tous,
Dans le cadre d'un projet d'un projet en entreprise j'aurais voulu ajouter une fonction me permettant de générer un power point à partir d'un modèle de plusieurs plages excel pour faire du reporting à ma direction.
Je vous joint les fichiers en PJ (les deux fichiers sont sous le même dossier "mes documents/Analyse de risques".
Plus explicitement j'aimerai que les plage suivante sous intégrer sous forme d'image dans les pages suivantes :
Dans la feuilles excel "Plans d'actions"
A5:F17 -> Page 3
A20:F51 -> Page 4
A54:F85 -> Page 5
I5:R17 -> Page 6
I20:R32 -> Page 7
I36:R51 -> Page 8
I54:R70 -> Page 9
Si possible qu'il contrôle de format de limage afin qu'il soit centré et adapté à la taille de la diapo.
Je ne sais pas du tout si cela est réalisable, je suis que novice dans ce domaine mais avec un tel code je pourrais simplifié beaucoup d'autres de mes documents.
Bonne journée
Merci pour vos réponses
Cdlt
Rebonjour,
Pour l'instant j'ai réussi à écrire le code ci-dessous mais il me manque le codage pour pouvoir définir la taille de chaque plage.
Sub ModifierPresentationExistante()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Set PptApp = CreateObject("Powerpoint.Application")
PptApp.Visible = True
Set PptDoc = PptApp.Presentations.Open("D:\Users\Florentin.Guillemard\Documents\Analyse de risques\Analyse des risques reporting.pptx")
With PptDoc
'copie la plage de cellules dans la feuille Excel active
Sheets("Indicateurs").Select
Range("A5:F17").Select
Selection.Copy
'Effectue un collage dans la 2eme diapositive
.Slides(3).Shapes.PasteSpecial (ppPasteBitmap)
'copie la plage de cellules dans la feuille Excel active
Sheets("Indicateurs").Select
Range("A20:F51").Select
Selection.Copy
'Effectue un collage dans la 2eme diapositive
.Slides(4).Shapes.PasteSpecial (ppPasteBitmap)
'copie la plage de cellules dans la feuille Excel active
Sheets("Indicateurs").Select
Range("A54:F85").Select
Selection.Copy
'Effectue un collage dans la 2eme diapositive
.Slides(5).Shapes.PasteSpecial (ppPasteBitmap)
'copie la plage de cellules dans la feuille Excel active
Sheets("Indicateurs").Select
Range("I5:R17").Select
Selection.Copy
'Effectue un collage dans la 2eme diapositive
.Slides(6).Shapes.PasteSpecial (ppPasteBitmap)
'copie la plage de cellules dans la feuille Excel active
Sheets("Indicateurs").Select
Range("I20:R32").Select
Selection.Copy
'Effectue un collage dans la 2eme diapositive
.Slides(7).Shapes.PasteSpecial (ppPasteBitmap)
'copie la plage de cellules dans la feuille Excel active
Sheets("Indicateurs").Select
Range("I36:R51").Select
Selection.Copy
'Effectue un collage dans la 2eme diapositive
.Slides(8).Shapes.PasteSpecial (ppPasteBitmap)
'copie la plage de cellules dans la feuille Excel active
Sheets("Indicateurs").Select
Range("I54:R70").Select
Selection.Copy
'Effectue un collage dans la 2eme diapositive
.Slides(9).Shapes.PasteSpecial (ppPasteBitmap)
End With
End Sub