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.

 

Option Explicit

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

Statistiques

Aujourd'hui1921
Hier2553
Cette semaine11943
Ce mois30484
Total depuis 200410706171

19
visiteurs actuellement en ligne