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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
 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