Private Sub Worksheet_Activate()
On Error Resume Next
Set a = Worksheets("calendrier").Range("A1:AV32").Find(Date)
a.Select
End Sub
dim a as worksheet
Up pour ce problème de message d'erreur.
@+
Private Sub Workbook_Open()
'Dim DAT As Date
'DAT = Date
Workbooks(ThisWorkbook.Name).Sheets("Calendrier").Select
Workbooks(ThisWorkbook.Name).Sheets("Calendrier").Cells.Find(Date).Select
End Sub
Private Sub Workbook_Open()
'Feuil1 contient le calendrier de la Bonne Année en cours
Application.Goto Feuil1.Cells.Find(Date)(1, 3)
'seulement pour voir
ActiveCell.Interior.ColorIndex = 8
End Sub