XL 2010 Convertir fichier ppt en pdf

sams96

XLDnaute Nouveau
Bonjour à tous , j essaie de créer une macro qui va me permettre de convertir tous les fichiers pdf des mes sous dossiers en ppt
à chaque fois ou je lance ma macro , les fichiers powerpoint s 'enregistre en double sur mon fichier foldest
une fois avec extension.pptx.pdf
et une deuxieme fois avec . pptx

est ce qu il serait possible de m'aider à résoudre ce problème de tel manière à avoir le nom des fichiers avec une extension . pdf à la fin

est ce qu il serait possible de m'aider sur ce point
VB:
Dim fso As Object
Dim folder As Object
Dim fo As String
Dim SubFolders As Object
Dim CurrFile As Object
Dim foldest As String


Set fso = CreateObject("Scripting.FileSystemObject")
fo = "C:\Users\samiess\Desktop\resu\"
Set folder = fso.GetFolder(fo)
Set SubFolders = folder.SubFolders

Dim ppAPP As PowerPoint.Application, ppPres As PowerPoint.Presentation
Set ppAPP = CreateObject("Powerpoint.Application")



foldest = "C:\Users\samiess\Desktop\resu\EN\"


For Each SubFolders In SubFolders

     Set CurrFile = SubFolders.Files
  
              For Each CurrFile In CurrFile
      
                  If CurrFile.Name Like "*EN*" Then
          
                     Chemin = CurrFile
          
                     Debug.Print Chemin
                  
                     'MsgBox x
          
                     Fichier = Dir(Chemin)
          
                     Debug.Print Fichier
                  
                     Do While Len(Fichier) > 0
          '
                         Set ppPres = ppAPP.Presentations.Open(Chemin)
   '
    '                ppPres.ExportAsFixedFormat foldest & Fichier & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
     '
      '              ppPres.Close
                  
                  'Fichier = Dir()
    
                Loop
                  
                End If
          Next
   Next


ErrHandler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True


End Sub
 
Dernière édition:

Discussions similaires