Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Changer un message d'erreur 400

cheyenne63

XLDnaute Occasionnel
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
 

Pièces jointes

  • Erreur400.JPG
    13 KB · Affichages: 42

pierrejean

XLDnaute Barbatruc
Re : Changer un message d'erreur 400

Bonjour cheyenne

A tester:
Code:
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…