Focus du multipage

[Hady]

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:

 

[PascalXLD]

Bonjour

essaies

Imprimer.MultiPage1.Value = 0

Bonne soirée

 

[Hady]

Oui ça marche merci! J'avais essayé en fait mais ça marchait pas car il fallait que j'inverse le show et le multipage.value!
Avec l'inversion ça marche.

Merci