H
Hady
Guest
Salut à tous,
J'ai crée un userform pour imprimer. Ce userform contient plusieurs pages. Je voudrais qu'il s'ouvre toujours sur la même page!! C'est basique mais je n'y arrive pas!!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If (Imprimer.Visible = False) Then
Retour = MsgBox('Cliquez sur Ok pour utiliser l'interface d'impression ou sur annuler pour utiliser l'interface traditionnelle Excel', vbOKCancel, 'Imprimer')
If (Retour = vbOK And Imprimer.Visible = False) Then
Cancel = True
Imprimer.Show
Imprimer.Multipage1.pages=0
End If
End If
End Sub
J'ai aussi essayé avec Setfocus et Multipages.Value mais ça marche pas...
:sick:
J'ai crée un userform pour imprimer. Ce userform contient plusieurs pages. Je voudrais qu'il s'ouvre toujours sur la même page!! C'est basique mais je n'y arrive pas!!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If (Imprimer.Visible = False) Then
Retour = MsgBox('Cliquez sur Ok pour utiliser l'interface d'impression ou sur annuler pour utiliser l'interface traditionnelle Excel', vbOKCancel, 'Imprimer')
If (Retour = vbOK And Imprimer.Visible = False) Then
Cancel = True
Imprimer.Show
Imprimer.Multipage1.pages=0
End If
End If
End Sub
J'ai aussi essayé avec Setfocus et Multipages.Value mais ça marche pas...
:sick: