Erreur 402

[foster_1883]

Bonjour à tous,
à l'ouverture de mon fichier, j'ai la suite suivante :

Private Sub Workbook_Open()
'PERMET D'OUVRIR SHEET
        Sheets("GRIS").Select

'PERMET D'OUVRIR USERFORM3       
        UserForm3.Show

End Sub

Ensuite, je complete mon formulaire et je clique sur valider. Mes infos s'affichent dans les bonnes cellules, mais par le suite j'aimerait passer à une autre sheet automatiquement, soit "ouverture", mais impossible. J'ai ça :



Quand je clique sur "fin" je passe quand même à ma sheet, mais le message est un peu désagréable.
Voici le code de mon boutons valider:

Private Sub CommandButton1_Click()
        Sheets("X").Range("D5") = UserForm3.TextBox1
        Sheets("X").Range("D6") = UserForm3.ComboBox1

'PERMET DOUVRIR SHEET
        Sheets("OUVETURE").Select

'PERMET DE QUITER LE FORMULAIRE ACTIF
        UserForm4.Hide

End Sub

 

[st007]

Re : Erreur 402

Il fait quoi le userform4 ?

 

[foster_1883]

Re : Erreur 402

Choisis ton nom, avec une combo box, et une date avec un textbox, qui vont apparaître sur le rapport.
quand on clique sur Ok, on passe a l'ongle suivant, lui avec contenant le rapport à remplir.

 

[st007]

Re : Erreur 402

Si tu veux,

bon je lis :

Private Sub Workbook_Open()
'PERMET D'OUVRIR SHEET
        Sheets("GRIS").Select

'PERMET D'OUVRIR USERFORM3       ' on a bien écris 3
        UserForm3.Show

End Sub

Private Sub CommandButton1_Click()
        Sheets("X").Range("D5") = UserForm3.TextBox1
        Sheets("X").Range("D6") = UserForm3.ComboBox1

'PERMET DOUVRIR SHEET
        Sheets("OUVETURE").Select

'PERMET DE QUITER LE FORMULAIRE ACTIF
        UserForm4.Hide                 ' maintenant 4

End Sub

Private Sub CommandButton1_Click()
        Sheets("X").Range("D5") = UserForm3.TextBox1
        Sheets("X").Range("D6") = UserForm3.ComboBox1
        UserForm4.Hide                  'si tu tiens au 4
        Sheets("OUVETURE").Select

 

[Dranreb]

Re : Erreur 402

Bonsoir.
Dans la fenêtre de propriété, mettez pareil les propriétés ShowModal des tous les UserForm.

 

[foster_1883]

Re : Erreur 402

ST007
FONCTIONNE TOUJOURS PAS..

Private Sub CommandButton1_Click()
        Sheets("X").Range("D5") = UserForm3.TextBox1
        Sheets("X").Range("D6") = UserForm3.ComboBox1
        UserForm3.Hide
        Sheets("OUVETURE").Select


End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()

Me.TextBox1 = Sheets("x").Range("D5")
Me.ComboBox1 = Sheets("x").Range("D6")

'NOM DES EMPLOYÉ(ES)
Me.ComboBox1.AddItem "Marie-Emmanuelle Dufour Gagné"
Me.ComboBox1.AddItem "Michel Gagné"
Me.ComboBox1.AddItem "Denys Foster"
Me.ComboBox1.AddItem "Helenne"
End Sub

Private Sub Worksheet_Activate()
UserForm3.Show
End Sub

DRANRED
ILS SONT TOUS A TRUE

 

[Dranreb]

Re : Erreur 402

Alors essayez de les mettre tous à False.
Vous ne pouvez pas masquer un autre UserForm modal dont l'exécution est bloquée sur un Show.

 

[foster_1883]

Re : Erreur 402

J'AI REUSSI !
MERCI À VOUS !