Cacher la barre eurovalue au lancement - VB/VBA/VBS - Programmation
Marsh Posté le 08-06-2004 à 14:11:48
Il faut gérer l'erreur.
On Error Goto Gest_Err
' Ici le code à erreur
On Error Goto 0 ' Annule la capture d'erreur
Sortie:
Exit Sub
Gest_Err:
Select Case Err.Number
Case xxx ' No erreur connu
Resume Next ' Saute à la ligne suivant l'erreur
Case Else ' Erreur imprévue
MsgBox Err.Number & VbCrLf & Err.Description ' Affiche l'erreur
Resume Sortie ' Sort de la procédure
End Select
End Sub
Marsh Posté le 08-06-2004 à 14:40:30
Salut,
merci pour la réponse, ça m'a guider pour trouver ça :
On Error Resume Next
Application.CommandBars("EuroValue" ).Visible = False
Et ça marche nikel.
Merci encore, à une autre fois peut-être.
Marsh Posté le 08-06-2004 à 14:44:12
Oui mais bon, c'est un peu bourrin. A la prochaine erreur, tu vas droit dans le mur !!!!
Marsh Posté le 08-06-2004 à 15:19:08
JihemAir a écrit : Oui mais bon, c'est un peu bourrin. A la prochaine erreur, tu vas droit dans le mur !!!! |
Parce que c'est une config générale? ça veut dire qu'à chaque fois qu'il y aura une erreur, n'importe quand il passera outre?
Marsh Posté le 08-06-2004 à 15:22:47
Affirmatif. Il faut au minimum annuler la redirection de l'erreur par un 'On Error Goto 0'.
Marsh Posté le 08-06-2004 à 14:04:29
[#0000ff]Bonjour à tous!
Je finalise une petite application vba sous Excel, et sur certain poste la barre eurovalue gache le résultat. Pour la virer au démarage j'ai mis ce bout de code :
pplication.CommandBars("EuroValue" ).Visible = False
dans la partie this wokbook du projet pour que ce soit exécuté au lancement.
Le problème, c'est que lorsque je lance mon fichier sur un poste ne disposant pas de l'eurovalue il se produit un arret (normal puisque je lui dis de rendre invisible un truc qui n'existe pas).
Quelqu'un aurait-il une solution à ma proposer???
---------------
Austin Mini, Mini Moke et autres dérivés.