Discussion :

[Kaytilou]

Bonjour,
J'utilise le Module objet ThisWorkbook, pour poster un message à l'ouverture du fichier. Je souhaite que ce message s'affiche uniquement lors de la première ouverture par un utilisateur du fichier partagé et qu'ensuite non

Je souhaiterai savoir s'il est possible de créer un module pour vérifier si première exécution, si OUI afficher le message, si NON ne pas afficher le message. Et là je pèche un peu. J'ai juste commencer mon module par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_Open()
 MsgBox _
 "Je vous remercie de compléter le tableau des absences "
 
 auto_open
 
 End Sub

Je vous remercie pour votre aide et vous souhaite une très belle journée

[Philippe Tulliez]

Bonjour,

Je souhaiterai savoir s'il est possible de créer un module pour vérifier si première exécution, si OUI afficher le message, si NON ne pas afficher le message

Deux suggestions parmi d'autres

1. Tu utilises une cellule du classeur dans une feuille paramètre avec la date de la dernière utilisation du classeur et le nom de l'utilisateur mais si le fichier est partagé, ce n'est pas une très bonne idée
2. Tu utilises un fichier INI ou TXT à placer dans un répertoire quelconque du PC de l'utilisateur où tu lis et écris la dernière date de l'utilisation du classeur

On teste si la dernière date est celle du jour, cela signifie que ce n'est pas la première fois et pour le premier cas, on vérifie bien entendu le nom de l'utilisateur

[Menhir]

Tu ajoutes un onglet à ton fichier dans lequel se trouve la liste des utilisateurs (leur Login Windows).
Chaque fois que le fichier est ouvert, Workbook_Open va voir si le login actuel correspond à l'un de ceux de la liste.
Si c'est le cas, on ne fait rien.
Si ce n'est pas le cas, tu affiches le message et tu ajoutes le nouveau à la liste.