Recherche

 

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

France 75,6% France
Canada 8,1% Canada
États-Unis d'Amérique 4,8% États-Unis d'Amérique

Total:

65

Pays
018273691
Aujourd'hui: 14
Hier: 68
Cette semaine: 14
Semaine dernière: 783
Ce mois: 1.953