VBA - Recherche valeur format Date
Résolu
Bonjour,
J'aimerais créer une macro qui me permet de retrouver cette date dans un classeur "X" Feuille "Juillet".
Sub Recherche()
'Lundi affiche le Lundi de la semaine dernière!
Dim Lundi As Date
Lundi = Date - Weekday(Date, vbUseSystemDayOfWeek) - 6
Application.Workbooks.Open "C:\X.xls"
ActiveWorkbook.Sheets("Juillet").Activate
End Sub
Je précise que dans ma feuille Juillet, les dates sont bien sous la forme dd/mm/yyyy
J'aimerais créer une macro qui me permet de retrouver cette date dans un classeur "X" Feuille "Juillet".
Sub Recherche()
'Lundi affiche le Lundi de la semaine dernière!
Dim Lundi As Date
Lundi = Date - Weekday(Date, vbUseSystemDayOfWeek) - 6
Application.Workbooks.Open "C:\X.xls"
ActiveWorkbook.Sheets("Juillet").Activate
End Sub
Je précise que dans ma feuille Juillet, les dates sont bien sous la forme dd/mm/yyyy
Configuration: Windows XP Internet Explorer 6.0
2 réponses
-
J'ai trouvé par moi-même
Dim StrDate As String
StrDate = "Lundi " + P + " "
Set rge = Range("B7:B27").Find(StrDate)
=) -
J'ai trouvé ca :
Dim rge As Range
Set rge = Range("B7:B27").Find("Valeur")
MsgBox rge.Row
Mais lorsque je rentre une variable du type : Find(" &P ")
Il me renvoie une erreur!
Si quelqu'un peut m'expliquer!
