Bonjour Cavare, le forum,
Essaie avec l'enregistreur de macro. Il fonctionne aussi avec PPT.
Un rapide essai me donne ça :
Sub Macro1()
ActiveWindow.ViewType = ppViewSlideSorter
ActivePresentation.Slides.Range(Array(6, 5, 3, 2)).Select
With ActivePresentation.PrintOptions
.RangeType = ppPrintSelection
.NumberOfCopies = 1
.Collate = msoTrue
.OutputType = ppPrintOutputNotesPages
.PrintHiddenSlides = msoTrue
.PrintColorType = ppPrintBlackAndWhite
.FitToPage = msoFalse
.FrameSlides = msoFalse
.HandoutOrder = ppPrintHandoutHorizontalFirst
.ActivePrinter = "\\FF_GEMENOS\Copieur N&B RdC"
End With
ActivePresentation.PrintOut
End Sub
Imprime les diapo 2, 3, 5 et 6 sélectionnées en mode "Trieuse de diapositives".
Je n'ai pas creusé et je n'en ai pas le temps pour le moment mais on doit pouvoir remplacer ça par des variables.
En espérant que cela te dépanne.
Abel.