Exemples Excel VBA : exemples dévénements dintroduction

La fenêtre Code devrait ressembler à ceci.

Cette procédure de gestionnaire d'événements est exécutée lorsque le classeur est ouvert.

Workbook_Open est exécuté automatiquement à chaque ouverture du classeur. Il utilise la fonction WeekDay de VBA pour déterminer le jour de la semaine. Si c'est vendredi (jour 6), une boîte de message rappelle à l'utilisateur de soumettre un rapport. Si ce n'est pas vendredi, il ne se passe rien.

Si aujourd'hui n'est pas vendredi, vous pourriez avoir du mal à tester cette procédure. Vous pouvez simplement changer le 6 pour qu'il corresponde au numéro du jour actuel.

Et bien sûr, vous pouvez modifier cette procédure comme bon vous semble. Par exemple, la version suivante affiche un message à chaque ouverture du classeur. Cela devient agaçant au bout d'un moment.

Une procédure Workbook_Open peut presque tout faire. Ces gestionnaires d'événements sont souvent utilisés pour les éléments suivants :

• Affichage des messages de bienvenue (comme dans le classeur cool de Frank)
• Ouvrir d'autres classeurs
• Activation d'une feuille de calcul particulière dans le classeur
• Configuration de menus contextuels personnalisés

Voici un dernier exemple Excel VBA d'une procédure Workbook_Open qui utilise les fonctions GetSetting et SaveSetting pour garder une trace du nombre d'ouvertures du classeur. La fonction SaveSetting écrit une valeur dans le registre Windows et la fonction GetSetting récupère cette valeur (voir le système d'aide pour plus de détails). L'exemple Excel VBA suivant récupère le nombre du Registre, l'incrémente, puis le réenregistre dans le Registre. Il indique également à l'utilisateur la valeur de Cnt qui correspond au nombre de fois que le classeur a été ouvert.

Sous-classeur privé_Open()
  Dim Cnt As Long
  Cnt = GetSetting("MonApp", "Paramètres", "Ouvrir", 0)
  Cnt = Cnt + 1
  SaveSetting "MyApp", "Paramètres", "Ouvrir", Cnt
  MsgBox "Ce classeur a été ouvert " & Cnt & " fois."
Fin du sous-marin

Private Sub Workbook_BeforeClose (Annuler en tant que booléen)
  Dim Msg en tant que chaîne
  Dim Ans aussi longtemps
  Dim FName en tant que chaîne
  Msg = "Voulez-vous faire une sauvegarde de ce fichier ?"
  Rép = MsgBox(Msg, vbOuiNon)
  Si Rép = vbOui Alors
    FName = "F:\BACKUP\" & ThisWorkbook.Name
    ThisWorkbook.SaveCopyAs FName
  Fin si
Fin du sous-marin

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
  En tant que booléen, Annuler en tant que booléen)
  Dim Counter As Range
  Set Counter = Sheets("Sheet1").Range("A1")
  Compteur.Valeur = Compteur.Valeur + 1
Fin du sous-marin

Private Sub Workbook_BeforeSave(ByVal SaveAsUI _
  En tant que booléen, Annuler en tant que booléen)
  Si SaveAsUI Alors
    MsgBox "Vous ne pouvez pas enregistrer une copie de ce classeur !"
  Annuler = Vrai
  Fin si
Fin du sous-marin