msg d'erreur

[dam3117]

bonjour au forum,

pour éviter de fermer mon userform avec la croix j'ai mis la commande suivante:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'Cancel = True
End Sub

et maintenant je veux l'enlever et il m'envois le msg suivant:

-2147418106 (80010006) La connexion s'est terminée ou se trouve dans un état d'erreur
et ne peut plus être utilisée. Les autres connexions
sont toujours valides.

auriez une solution pour ne pour avoir ce message.

merci
damien

 

[skoobi]

Re : msg d'erreur

Bonjour dam3117,

avant d'écrire

Cancel = True

Test avec cette condition:

[B][COLOR=blue]If CloseMode = vbFormControlMenu Then[/COLOR][/B] Cancel = True

Sans garantie.