Code de controle a l'ouverture d'un fichier Excel
Bonjour à tous,
Je veux écrire un code en VBA qui permet de faire un contrôle à l'ouverture d'un fichier Excel.
Le contrôle devra se faire de la façon suivante:
1. On récupère le nom de l'ordinateur sur lequel est exécuté le fichier et on le stocke dans une variable;
2. On vérifie le contenu d'une cellule dans une des feuille du classeur (A1 de la feuille 1 par exemple);
2.a. Si la cellule est vide, on enregistre le nom de l'ordinateur dans la cellule;
2.b. Si non si elle n'est pas vide, on compare le nom de l'ordinateur avec le contenu de la cellule;
2b1. Si le contenu de la cellule est égale au nom de l'ordinateur on affiche un message de bienvenu et on ouvre le classeur;
2b2 . si non si différent, on envoie un message d'erreur et on ferme le fichier.
Merci de me donner des pistes.
Merci
private sub workbook_open()
x = Environ("Username")
If Sheets("Feuil1").range("A1") = "" then
Sheets("Feuil1").range("A1") = x
else
if Sheets("Feuil1").range("A1") = x then
msgbox("Bienvenue " & x & " Bon travail")
else
msgbox("byebye")
thisworkbook.close
end if
end if
End SubWaou! quelle rapidité! merci je vais l'exécuter pour voir
merci
J'ai exécuté le code. ça marche! merci
Le seul souci c'est qu'il faut activer l'exécution des macro pour que ça fonctionne. Donc si on choisi de ne pas d'activer ca ne fonctionne pas.
Merci
Question claire, réponse précise. Bonne journée.