Discussion :

[Jarmagnac]

Bonjour à tous,

Je dispose d’une base de données Excel (plusieurs types : adresses, coordonnées, etc..). Mon objectif est de générer un fichier PowerPoint à partir de ce tableur Excel où chaque slide correspond à une ligne. Toutes ces slides sont sur le meme template avec plusieurs champs (adressés, coordonnées, etc... ) vides à remplir en fonction du tableur Excel.

La macro qui effectue cette opération s’executerait sur un sharepoint Microsoft où est stocké le fichier Excel et le PowerPoint créé.

Pensez vous que cela soit faisable ?

Un grand merci d’avance pour vos avis/conseils !
Les stations autolib’ vous remercient aussi !

[EricDgn]

Bonjour,

Oui, c'est faisable. Un petit exemple en attaché, les 2 fichiers devant être placés dans le même dossier. Le fichier .potx est le "modèle" de présentation PowerPoint.
Le code dans Excel:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
30
Option Explicit
 
'--- utilise la référence: Microsoft PowerPoint Object Library
 
Sub PPT_Test()
   Dim PPT As PowerPoint.Application
   Dim Pres As PowerPoint.Presentation
   Dim kR As Long
   '---
   Set PPT = CreateObject("PowerPoint.Application")
   PPT.Visible = True
   Set Pres = PPT.Presentations.Open(ThisWorkbook.Path & "\Essai PowerPoint.potx", , msoCTrue)
   kR = 2
   Do
      With Pres.Slides(kR - 1)
         .Shapes("ZoneTexte 1").TextFrame.TextRange.Text = Cells(kR, 1)
         .Shapes("ZoneTexte 2").TextFrame.TextRange.Text = Cells(kR, 2)
      End With
      kR = kR + 1
      If Cells(kR, 1) <> "" Then
         Pres.Slides(kR - 2).Duplicate '--- copie/ajoute une diapo
      Else
         Exit Do
      End If
   Loop
   '--- sauve (écrase sans avertissement version précédente ayant ce même nom)
   Pres.SaveAs ThisWorkbook.Path & "\Essai PowerPoint.pptx"
   'Pres.Close
   'PPT.Quit
End Sub

Bonne continuation.