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 74,0% France
Canada 6,0% Canada
Belgique 3,8% Belgique

Total:

146

Pays
018403998
Aujourd'hui: 35
Hier: 435
Cette semaine: 2.572
Semaine dernière: 2.700
Ce mois: 10.199