Powerpoint Save

TKT -  
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   -
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 54087 Date d'inscription   Statut Modérateur Dernière intervention   7 345
 
0
yg_be Messages postés 23541 Date d'inscription   Statut Contributeur Dernière intervention   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 23541 Date d'inscription   Statut Contributeur Dernière intervention   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