Convertir fichier powerpoint en pdf

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

Bonjour,

A priori ... si tes variables sont correctement définies ...

tu n'as qu'à ajouter l'extension ".pdf" dans ton instruction ExportAsFixedFormat ...

En espèrant que cela t'aide

J'ai déja essayer de rajouter ".pdf" mais ça marche toujours pas

Re,

Commentez une macro en disant

ça ne marche pas....

ne permet pas de déterminer l'éventuel problème ...

A quelle ligne précisément as-tu un bug ...???

C'est au niveai de ces 2 lignes là que j ai un problème ,

Set ppPres = ppAPP.Presentations.Open(fo & fichier)

ppPres.ExportAsFixedFormat foldest & chemin, FixedFormatType:=ppFixedFormatTypePDF

Quand la macro tourne , elle commence à bloquer sur ces 2 lignes

Bonjour,

Ton dernier messages est assez surprenant ... !!!

Tu as simultanément DEUX instructions qui se mettent en mode ' bug ' ...!!!

Oui quand je lance la macro , parfois ça bug sur la première ligne , et parfois sur la deuxième lignes

Re,

Du coup ... tu dois t'assurer que tes variables sont correctement définies

Tu peux placer des debug print ... ou des MsgBox pour voir ce que contiennent fo & fichier

Fais attention à un oubli fréquent : "\"

En espèrant que cela t'aide

Rechercher des sujets similaires à "convertir fichier powerpoint pdf"