Powerpoint Save

TKT -  
yg_be Messages postés 24281 Statut Contributeur -
Bonjour,
J ai une macro pour enregistrer mon ppt en pdf mais maintenant je veux enregistrer seulement différent slides

voila ma macro :

Sub toPDF()
Dim opres As Presentation
Set opres = ActivePresentation
Dim strName As String
strName = Left(opres.Name, InStrRev(opres.Name, ".") - 1)
opres.SaveCopyAs FileName:=opres.Path & "\" & strName & Format(Date, "dd-mm-yyyy"), FileFormat:=ppSaveAsPDF
MsgBox "Saved as :" & opres.Path & "\" & strName & ".PDF"
End Sub
A voir également:

2 réponses

Chris 94 Messages postés 58330 Statut Modérateur 7 347
 
0
yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584
 
bonjour, moi je supprimerais les slides que tu ne veux pas sauver, avant de faire le sauvetage.
0
TKT
 
Bonjour,

En fait je veux garder tout mes slides , et créer plusieurs type d'enregistrement.
Merci
0
yg_be Messages postés 24281 Statut Contributeur 1 584 > TKT
 
eh bien, tu peux repartir chaque fois de ton document original, avec tous les slides.
Ou bien créer une copie avant sauvetage vers PDF, supprimer des slides dans cette copie, sauver cette copie comme PDF, et recommencer ensuite.
Je pense que tu peux aussi "imprimer vers PDF", cela te permettra peut-être mieux de choisir les slides.
0