F
fostier
Guest
bonjour
j'ai découvert cette macro, j'ai plusieurs onglets a imprimer qui ont 12 pages chacun correspondant aux mois de l'année comment puis je définir les mois a imprimer sans avoir les 12 pages
ci joint un modèle
Sub imprim1() 'une partie du code écrit pas Dull
Dim P As Byte
P = MsgBox(Range("fostier!A1"), vbYesNo + vbDefaultButton1)
If P = vbNo Then Exit Sub
Application.Dialogs(xlDialogPrint).Show
With UserForm1
.Zoom = 90
End With
UserForm1.PrintForm
With UserForm1
.Zoom = 100
End With
Unload UserForm1
End Sub
merci de votre aide
j'ai découvert cette macro, j'ai plusieurs onglets a imprimer qui ont 12 pages chacun correspondant aux mois de l'année comment puis je définir les mois a imprimer sans avoir les 12 pages
ci joint un modèle
Sub imprim1() 'une partie du code écrit pas Dull
Dim P As Byte
P = MsgBox(Range("fostier!A1"), vbYesNo + vbDefaultButton1)
If P = vbNo Then Exit Sub
Application.Dialogs(xlDialogPrint).Show
With UserForm1
.Zoom = 90
End With
UserForm1.PrintForm
With UserForm1
.Zoom = 100
End With
Unload UserForm1
End Sub
merci de votre aide