Discussion :

[tactic6]

Bonjour
Dans mon fichier excel j'ai en A1 l'année du fichier utilisée et dans la barre de formule il y a:=Sommaire!A1
je voudrais qu'excel a l'ouverture contole que l'année en court correspond bien à l'année affichée en A1
cad si A1 =2021 ou autre un message d'erreur s'affiche en me demandant si je veux continuer ou pas.
Merci pour votre aide

[Philippe Tulliez]

Bonjour,
En supposant que la cellule A1 de la feuille nommée Sommaire a comme valeur une année (par exemple 2021) et que nous sommes en 2022, la procédure ci-dessous a placer dans le module ThisWorkbook affichera un message et fermera le classeur si l'utilisateur clique sur le bouton Non

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Workbook_Open()
 With Me
  If Year(Date) <> Worksheets("Sommaire").Range("A1").Value Then
    If MsgBox("Voulez-vous continuer ?", vbYesNo + vbInformation) = vbNo Then
    .Close
    End If
  End If
 End With
End Sub

[tactic6]

Merci c'est parfait