[VBA-E] Problème avec Application.StatusBar
Bonjour à tous !
j'ai un petit problème avec l'instruction application.StatusBar... J'ai une fonction accessible au moyen d'un menu qui permet de se connecter à une base de données. Lorsqu'on se connecte, dans la barre d'état s'affiche un message, en plus de la barre par défaut :
Code:
1 2 3 4 5 6 7 8
|
Sub Connexion()
[i] Instructions de connexion...[/i]
OldStatusBar=Application.StatusBar 'déclarée Public
Application.StatusBar=OldStatusBar & "Connecté !"
End Sub |
Ca ca marche parfaitement, et pareil pour la fonction déconnexion :
...
Code:
Application.StatusBar=OldStatusBar & "Deconnecté"
Maintenant, lorsque je relance la fonction Connexion(), la valeur de la chaine OldStatusBar a par défaut la chaine "Deconnecté" à la fin ! Et là, c'est le drame !
Merci pour votre aide, en espérant avoir été clair dans mon problème
laloune