user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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'hui220
Hier2369
Cette semaine2589
Ce mois45249
Total depuis 200413076176

3
visiteurs actuellement en ligne

22 juin 2021