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

Messages postés
4
Date d'inscription
jeudi 3 avril 2014
Statut
Membre
Dernière intervention
21 juillet 2014
- - Dernière réponse : cs_Le Pivert
Messages postés
6297
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 octobre 2019
- 14 mai 2014 à 18:21
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.
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
6297
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 octobre 2019
403
4
Merci
Bonjour,

Voici un code qui crée une présentation ppt, qui insère un slide et dans ce slide une zone de texte. A adapter suivant les besoins:

'Allez dans outils-références et cochez Microsoft PowerPoint 11.0 Object Library
Sub Inserer_texte()
Dim PptDoc As PowerPoint.Presentation
Dim Sh As PowerPoint.Shape
Dim PptApp As Variant
Set PptApp = CreateObject("Powerpoint.Application")
Set PptDoc = PptApp.Presentations.Add
With PptDoc
'--- Ajoute un Slide
.Slides.Add Index:=1, Layout:=ppLayoutBlank
'Crée une zone de texte (AddLabel)
Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
Left:=100, Top:=100, Width:=150, Height:=60)
'insère la valeur de la Cellule A1 dans une zone de texte
Sh.TextFrame.TextRange.Text = Range("A1")
'Modifie la couleur du texte
Sh.TextFrame.TextRange.Font.Color = RGB(255, 100, 255)
'Sauvegarde la présentation
'dans le meme répertoire que le classeur excel contenant la macro.
PptDoc.SaveAs FileName:=ThisWorkbook.Path & "\" & "NouvellePresentation_texte.ppt"
'ferme la presentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit
MsgBox "Opération terminée."
End With
End Sub



Dire « Merci » 4

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 65065 internautes nous ont dit merci ce mois-ci

Messages postés
4
Date d'inscription
jeudi 3 avril 2014
Statut
Membre
Dernière intervention
21 juillet 2014
0
Merci
Bonjour,

Merci pour la réponse en fait j'ai un fichier Excel avec un bouton pour exporter des lignes d'un fichier Excel dans une présentation PPT spécifique qui existe au même lieu que le fichier Excel par exemple dans l'emplacement (C:\Users\xx\Desktop\MonFichierExcel.xlsm) même chose pour le fichier PPT (C:\Users\xx\Desktop\Maprésentation.xlsm)
et lorsque je clique sur le bouton pour exporter les données à partir Excel vers la présentation, je veux qu'une fenêtre (avec le bouton Parcourir) apparait pour choisir le fichier PPT, et voila c tout...
Messages postés
6297
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
22 octobre 2019
403
0
Merci
Voilà une macro pour rechercher tous les fichiers. Cela retourne le chemin du fichier, il suffit de le mettre dans une variable:

Option Explicit
Dim fichier As Variant
Private Sub CommandButton1_Click()
fichier = Application.GetOpenFilename("All Files (*.*), *.*")
If fichier = "" Then Exit Sub
MsgBox fichier 'remplacer par une variable
End Sub