macro excel sur power point

[rainbow69006]

Bonjour

J'aurais aimer inserer cette macro sur power point.

le problme c'est qu'il n'y a pas de "thisworkbook" sur power point est ce qu'il y a une solution?

merci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:= _
"P:\Pierre\save\" & ThisWorkbook.Name & " " & Environ("UserName") & ".PPT"
Application.DisplayAlerts = True
Application.Quit
End Sub

 

[phlaurent55]

Re : macro excel sur power point

Salut rainbow69006

en utilisant l'enregistreur de macro, tu aurais eu ceci

Sub Macro1()
'
' Macro enregistrée le 20/02/2008 par .........
'

    ActivePresentation.SaveAs FileName:="C:\Documents and Settings\none\Mes documents\Présentation1.ppt"
End Sub