TotalPages Dim As LongStartPage Dim As Long
Dim page As Integer
StartPage = InputBox ("Entrez le numéro de page de départ")
TotalPages = Application.ExecuteExcel4Macro ("GET.DOCUMENT (50)")
Si StartPage gt; 0 Et StartPage lt; = TotalPages Puis
Pour la page = StartPage Pour TotalPages Etape 2
ActiveSheet.PrintOut De: = page, Pour: = page, _
Copies: = 1, Assembler: = true
Suivant
End If