S
sams96
Guest
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
là
à 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 modification par un modérateur: