T
Thierry28
Guest
Bonjour à tout le forum
Quand j'appel mon USF, j'ai une erreure 91 ds certain cas.
voici le code simpliste qui appel le USF:
Sub mot()
UserForm30.Show
Exit Sub
End Sub
le code de début du USF30 est:
Private Sub Userform_initialize()
If Application.UserName = 'AB' Then
MsgBox 'mon message', vbCritical, 'Attention'
Unload Me
End If
End Sub
Si Application.UserName n'est pas 'AB' tout va bien, sinon j'ai une erreur 91 variable objet ou variable de bloc with non défini; et me surligne UserForm30.Show en jaune ????
Pourriez vous m'aider a dissoudre ce grain de sable.
merci
Quand j'appel mon USF, j'ai une erreure 91 ds certain cas.
voici le code simpliste qui appel le USF:
Sub mot()
UserForm30.Show
Exit Sub
End Sub
le code de début du USF30 est:
Private Sub Userform_initialize()
If Application.UserName = 'AB' Then
MsgBox 'mon message', vbCritical, 'Attention'
Unload Me
End If
End Sub
Si Application.UserName n'est pas 'AB' tout va bien, sinon j'ai une erreur 91 variable objet ou variable de bloc with non défini; et me surligne UserForm30.Show en jaune ????
Pourriez vous m'aider a dissoudre ce grain de sable.
merci