Bonjour,
J'ai trouvé une macro qui me permet de créer un power point à partir d'une feuille excel mais la macro ne tient pas compte d'éventuelle ligne ou section que je pourrais ajouter avant de l'exécuter. Est-ce qu'il y aurait un bout de code qu'on pourrait ajouter à cette macro pour régler le tout sans qu'a chaque fois je change manuellement la plage de prise de données?
J'ai un tableau de base qui occupe B7:C40 mais des sections peuvent s'ajouter pour agrandir le tableau jusqu'à C63
Dim ApplPPT As PowerPoint.Application
Dim objPres As PowerPoint.Presentation
Dim objSld As PowerPoint.Slide
Dim objSheet As Worksheet
Set ApplPPT = CreateObject("Powerpoint.Application")
Set objPres = ApplPPT.Presentations.Add
Set objSld = objPres.Slides.Add(1, ppLayoutBlank)
Set objSheet = ActiveSheet
objSheet.Range("B7:C40").Copy
objSld.Shapes.PasteSpecial ppPasteOLEObject, link:=msoFalse
ApplPPT.Visible = True
End Sub
Merci encore de votre aide!