[#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???

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

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.

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?

Affirmatif. Il faut au minimum annuler la redirection de l'erreur par un 'On Error Goto 0'.