Macro qui recherche une cellule et ouvre une feuille
v
Bonjour,
J'ai créer un classeur avec un onglet par jour,
Je voulais savoir s'il est possible de créer une macro qui permette à l'ouverture du document d'afficher la fueille contenant une cellule avec la date du jour ?
Merci d'avance
bonsoir
essayer ca
Private Sub Workbook_Open()
Dim i
For i = 1 To Sheets.Count
If Format(Sheets(i).Name, "d mmmm") = Format(Date, "d mmmm") Then
Sheets(i).Activate
End If
Next
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Select Case Sh.Name
Case "Données Fichier"
ActiveSheet.Name = Range("A1").Value
' Case "..............."
'...............
Case Else
Sh.Name = Format([D4].Value, "d mmmm")
End Select
End Sub