PowerPoint to pdf

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