Atteindre la feuille et la cellule contenant la date du jour
l
Bonjour à tous,
J'ai un classeur contenant 12 feuilles (1 par mois) appelées jan, fev, mar,....
Sur la ligne 1 de chaque feuille, les dates du mois.
Je voudrais qu'à l'ouverture du classeur, excel ouvre automatiquement la feuille du mois en cours et sélectionne la date du jour sur cette feuille.
Merci pour votre aide
Lasolue
N
Bonjour,
Mets cette macro en VBA (ALT+F11 pour y accéder) dans THISWORKBOOK puis enregistre ton fichier avant de le fermer.
Option Explicit
Private Sub Workbook_Open()
'Macro par Dan pour Lasolue le 05/06/2007
Dim moiscourant As String, var As Date, myvalue As Variant
moiscourant = VBA.MonthName(Month(Date))
var = Format(Now(), "d/mm")
On Error Resume Next
Set myvalue = ThisWorkbook.Worksheets(moiscourant)
If myvalue = True Then
myvalue.Select
Cells.Find(What:=(var)).Activate
Else: MsgBox "la feuille n'existe pas ou est mal orthographiée"
End If
End SubNB : Cela suppose que tes dates sont enregistrées au format comme ceci -> 5/06
A te lire
Dan
l
Super génial et en plus d'une clarté et d'une concision remarquables
Un grand merci
La solue