Plages excel vers modèle Power point

Y compris Power BI, Power Query et toute autre question en lien avec Excel
f
floflo50100
Membre fidèle
Membre fidèle
Messages : 197
Inscrit le : 12 mars 2015
Version d'Excel : 2010 FR

Message par floflo50100 » 26 janvier 2017, 10:52

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
:)
Analyse des risques reporting.pptx
(37.32 Kio) Téléchargé 20 fois
Analyse des risques test.xlsm
(378.77 Kio) Téléchargé 20 fois
f
floflo50100
Membre fidèle
Membre fidèle
Messages : 197
Inscrit le : 12 mars 2015
Version d'Excel : 2010 FR

Message par floflo50100 » 26 janvier 2017, 11:52

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message