Création des slides PPT qui sont alimentés à partir d'Excel

Bonjour,

SVP, comment peut on faire une boucle qui crée un des slides (PowerPoint) et qui prend une ligne d'un tableau Excel

Merci.

Bonjour,

Voici un début de piste à partir de PowerPoint :

Option Explicit

Sub Test()
   ' Ajouter la référence à Exel (Outils/Références)
   Dim Wbk As Excel.Workbook, l As Long, DiapoVide As CustomLayout, NewSlide As Slide, TxB As Shape
   Set Wbk = Workbooks.Open ("D:\Temp\Test.xlsx")
   Presentations.Add
   ' Slide vide dans la liste des modèles
   Set DiapoVide = ActivePresentation.SlideMaster.CustomLayouts(7)

   For l = 10 To Wbk.Worksheets(1).UsedRange.Rows.Count
      Set NewSlide = ActivePresentation.Slides.AddSlide(ActivePresentation.Slides.Count + 1, DiapoVide)
      Set TxB = NewSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, 430, 650, 100)
      With TxB.TextFrame.TextRange
         .ParagraphFormat.Alignment = ppAlignCenter
         .Text = Wbk.Worksheets(1).Cells(l, "A").Text
         .Font.Name = "Comic sans MS"
         .Font.Bold = msoFalse
         .Font.Italic = msoFalse
         .Font.Size = 10
         .Font.Underline = msoFalse
      End With
   Next l
   Wbk.Close
End Sub

A adapter en fonction de ton besoin.