J'ai beaucoup de fichiers diaporama au format ancien *.PPS. Ces fichiers sont très gourmands en place. Comment les convertir tous en *.PPTX sans le faire un par un ?
Voici une macro qui va faire le travail et qui va supprimer les fichiers pps. Si vous avez beaucoup de fichiers, cela peut mettre un certain temps car PowerPoint va ouvrir chaque fichier, l'enregistrer et le fermer.
Public Sub conversion_pptx()
'macro écrite par m@rina
'convertit des fichiers pps en fichiers pptx
'et supprime les fichiers pps
Dim vFichier As Variant
Dim NbFichOK As Integer
Dim Nom As String
' Sélection des fichiers
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = True
.Title = "Sélectionner les fichiers à traiter"
.Filters.Add "Diaporamas 2003", "*.pps"
If .Show <> -1 Then Exit Sub
If MsgBox(.SelectedItems.Count & " fichiers à traiter ", vbOKCancel, _<br> "continuer ?") = vbCancel Then Exit Sub
End With
' ouverture du fichier
For Each vFichier In fd.SelectedItems
On Error GoTo Suivant
Application.Presentations.Open vFichier
On Error GoTo Fermer
NbFichOK = NbFichOK + 1
'nouveau nom
Nom = Left(vFichier, Len(vFichier) - 4) & ".pptx"
'enregistre au format pptx et ferme
Presentations(vFichier).SaveAs FileName:=Nom
Presentations(Nom).Close
Fermer:
On Error GoTo Suivant
Suivant:
On Error GoTo 0
Kill vFichier
Next vFichier
'fin
MsgBox ("Fichiers convertis : " & NbFichOK & " Fichiers")
Set fd = Nothing
End Sub
NB : si vous préférez les enregistrer au format PPSX (diaporama), remplacez simplement ".pptx" par "ppsx"
NB2 : Si vous ne souhaitez pas supprimer les fichiers PPS, supprimez simplement la ligne de code Kill vFichier