user_mobilelogo
Etoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactives
 

 

Public Sub images()
Dim nom As String
MsgBox "vous allez choisir le dossier où enregistrer les fichiers"
Application.FileDialog(msoFileDialogFolderPicker).Show
dossier = Application.FileDialog(msoFileDialogFolderPicker).InitialFileName
nom = dossier & ActivePresentation.Name
ActivePresentation.SaveAs FileName:=nom, FileFormat:=ppSaveAsJPG
End Sub

Statistiques

Aujourd'hui966
Hier820
Cette semaine966
Ce mois45698
Total depuis 200411028458

12
visiteurs actuellement en ligne