Bonjour à tous ,
Mon objectif est de créer une macro qui va permettre de convertir tous les fichiers powerpoint dont le noms inclu "EN" en fichier pdf .
Ces fichiers powerpoint ce trouvent à l interieur des sous-dossiers de mon dossier <resu>
une fois tous ces fichiers converti , je veux les placer dans un dossier appelé <en>
La macro que j ai réalisé est la suivante , malheuresement elle marche pas , est ce qu il serait possible de corriger mes erreurs .
Dim fso As Object
Dim folder As Object
Dim fo As String
Dim SubFolders As Object
Dim CurrFile As Object
Dim foldest As String
Dim chemin As String
Dim fichier As String
Dim MyPdfFileActualName As String
Dim x As String
Dim tabe() As Variant
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")
AppActivate Application.Caption
foldest = "C:\Users\samiess\Desktop\resu\EN\"
For Each SubFolders In SubFolders
Set CurrFile = SubFolders.Files
For Each CurrFile In CurrFile
If CurrFile Like "*EN*" Then
chemin = CurrFile
fichier = Dir(chemin)
End If
Next
Do While Len(fichier) > 0
Set ppPres = ppAPP.Presentations.Open(fo & fichier)
ppPres.ExportAsFixedFormat foldest & chemin, FixedFormatType:=ppFixedFormatTypePDF
ppPres.Close
fichier = Dir()
Loop
Next