Macro : exporte graphique vers PPT

[EXCELIOR]

bonjour,

j'ai crée des graphiques dans un fichier excel et j'ai introduis un macro :

Sub Export_Ppt()
'necessite d'activer la reference Microsoft Powerpoint Object Library
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True 'l'application sera visible
Set PptDoc = PPT.Presentations.Open(ThisWorkbook.Path & "/Présentation1.ppt") 'ouverture fichier ppt
Dim Feuille As Worksheet, I As Integer, J As Integer, NbreGraphiques As Integer
I = 2
For Each Feuille In ThisWorkbook.Worksheets
NbreGraphiques = Feuille.Shapes.Count
For J = 1 To NbreGraphiques
If Feuille.Shapes(J).Name <> "CommandButton1" Then
PptDoc.Slides.Add I, ppLayoutBlank
Feuille.Shapes(J).Copy
PptDoc.Slides(I).Shapes.Paste
I = I + 1
End If
Next J
Next
PptDoc.Save 'sauvegarder les modifications
PptDoc.Close 'fermer le document ppt
PPT.Quit 'fermer l'application powerPoint
End Sub

===> le problème est que excel affiche un message d'erreur : COMPILE ERROR: USER DEFINED TYPE NOT DEFINED (mon pc est en anglais mais je vous ai joins les fichiers et vous constaterai en appuyant sur le bouton : vers ppt)

je vous joins les deux fichiers (EXCEL et ppt : à placer dans un meme dossier) !


merci à vous pour votre coup de main !

 

[chris]

Re : Macro : exporte graphique vers PPT

Bonjour

Comme indiqué dans le code il faut activer la reference Microsoft Powerpoint Object Library.
Par ailleurs le nom du fichier n'a pas d'accent et l'extension est différente : adapter en conséquence.

 

[EXCELIOR]

Re : Macro : exporte graphique vers PPT

merci beaucoup ! mais comment activer la reference Microsoft Powerpoint Objetc Library ?

 

[EXCELIOR]

Re : Macro : exporte graphique vers PPT

merci j'ai trouvé sur google !

bonne journée à toi !