Microsoft 365 Copier mes lignes excel dans PPT 1lignes= 1 slides ...

[azerty129]

Bonjour,

j'aimerais pouvoir copié mes lignes excel dans powerpoint avec une macro. (1 LIGNES EXCEL = 1 slides powerpoint)
J'ai tenté un code mais sans succès
merci d'avance de votre aide
Je joins mes fichier test
Cordialement
AZERTY129

 

[Eric KERGRESSE]

Bonjour,

Ce code ne correspond pas tout à fait à votre demande car il crée un ppt de toute pièce, mais vous devriez arriver à l'adapter assez facilement.

Nb : Il est plus facile de faire la mise au point le code en référençant PowerPoint (early binding), plutôt que de déclarer vos variables PowerPoint en type Object, vous bénéficierez de l'intellisens (un point derrière le nom de votre variable et vous avez accès à toutes les propriétés, événements et actions possibles avec cet objet).
Une fois le code au point vous pourrez basculer en late binding si celui-ci doit fonctionner sur différentes versions de PowerPoint.

Sub CreationPpt()

Dim Ppt As PowerPoint.Application
Dim Pptd As PowerPoint.Presentation
Dim PptS As PowerPoint.Slide
Dim PptShape As PowerPoint.Shape
Dim Chemin As String
Dim I As Long
Dim AireTexte As Range

    Chemin = ThisWorkbook.Path & "\Essai1.pptx"
    Set AireTexte = Sheets("Sheet1").Range("A1").CurrentRegion

    Set Ppt = CreateObject("Powerpoint.Application")
    Ppt.Visible = True
    Set Pptd = Ppt.Presentations.Add
    
    For I = 1 To AireTexte.Count
        Set PptS = Pptd.Slides.Add(Index:=I, Layout:=ppLayoutBlank)
        With PptS
             Set PptShape = .Shapes.AddTextbox(msoTextOrientationHorizontal, 160, 120, 450, 50)
             PptShape.TextFrame.TextRange.Text = AireTexte(I)
             Set PptShape = Nothing
        End With
        Set PptS = Nothing
    Next I

    Pptd.SaveAs Filename:=Chemin
    Pptd.Close
    Ppt.Quit
      
    Set Pptd = Nothing: Set Ppt = Nothing: Set AireTexte = Nothing


End Sub