Changer un message d'erreur 400

[cheyenne63]

Bonjour,
Sur une feuille excel, j'ai un bouton qui appelle une macro simple pour ouvrir un autre classeur.
Si la personne a les droits d'accès sur ce nouveau classeur, tout fonctionne à merveille.
Par contre, si le collègue n'a pas les droits pour le répertoire où se trouve le classeur à ouvrir, le message ci-joint s'ouvre.
Cette possibilité d'ouverture ou non du classeur est volontaire.
Le problème n'est pas là : ce que j'aimerai c'est changer le message par un plus sympa du style "Vous n'avez pas les droits d'accès à ce document"
Voici la macro actuelle :
Sub Macro1()
Application.Workbooks.Open "... chemin d'accès .... .xls"
Range("A1").Select
End Sub
Merci d'avance et bonne journée

 

[pierrejean]

Re : Changer un message d'erreur 400

Bonjour cheyenne

A tester:

Sub Macro1()
On error resume next
Application.Workbooks.Open "... chemin d'accès .... .xls"
If err.Number<>0 then
  msgbox("Vous n'avez pas les droits d'acces à ce document ")
end if
on error goto 0
Range("A1").Select
End Sub

 

[cheyenne63]

Re : Changer un message d'erreur 400

Bonjour Pierrejean,
Ça marche impeccable.
Avec tous mes remerciements.
P.S : Il y a possibilité de marquer ce fil comme "résolu" ? Je ne trouve pas
@+

 

[pierrejean]

Re : Changer un message d'erreur 400

Re

Il faut modifier le titre du fil (mais ce n'est pas necessaire !!)