PowerPoint to pdf

[Gary29]

Hello tout le monde,

j'ai installer pdfmaker sur mon poste. J'ai fait une macro qui ouvre tout les powerpoint d'un dossier. J'utilise la commande "AdobePDFMakerA.PDFMakerPrint", mais je ne peut pas renseigner de manière automatique ni le dossier dans lequel je veux enregistrer mon pdf, ni le nom de mon pdf.
Est ce qu'il existe une fonction similaire sous powerpoint qui permet de rentrer de manière automatique ces paramètres.

Merci d'avance

 

[michel]

bonsoir Gary

si j'ai bien compris ta demande , tu souhaites automatiser la conversion de tous les fichiers Powerpoint d'un répertoire , au format PDF .
Dans ce cas Open Office ( la suite bureautique libre) est un outil très efficace pour effectuer cette opération ( mais cela n'a plus grand chose à voir avec Excel ...)


par exemple , la macro ci dessous ouvre une boite de dialogue pour selectionner un repertoire cible . ensuite tous les fichiers powerpoint sont identifiés et convertis au format PDF

option explicit
sub ConvertirPPTversPDF
'testé avec Open Office 1.1.0(Calc) et WinXP
Dim NextFile as String ,chemin as string,x as string,NomFichier as string
dim doc as object, odesktop as object
dim args() as new com.sun.star.beans.PropertyValue
Dim PDFArgs(1) as new com.sun.star.beans.PropertyValue
Dim oFolderDialog as Object, oUcb as Object
Dim iAccept as Integer


oFolderDialog = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker")
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oFolderDialog.SetDisplayDirectory("C:\Documents and Settings")'adapter le chemin par défaut

iAccept = oFolderDialog.Execute()
If iAccept = 1 Then chemin=ConvertFromUrl(oFolderDialog.getDirectory())


oDesktop=createUnoService("com.sun.star.frame.Desktop")
NextFile=Dir(chemin & "\*.ppt",0)

Do While Len(NextFile) >0

doc=oDesktop.loadComponentFromURL(ConvertToURL(chemin & "\" & NextFile),"_blank",0,args())

PDFArgs(0).Name = "FilterName"
PDFArgs(0).Value = "impress_pdf_Export"
PDFArgs(1).Name = "CompressMode"
PDFArgs(1).Value = 1

NomFichier=left(NextFile,Len(NextFile)-4)
x=chemin & "\" & NomFichier & ".pdf"
doc.storeToURL(ConvertToURL(x),PDFArgs())
doc.dispose()

NextFile=Dir()
Loop

End Sub


bonne soiree
michel