VBA - Recherche valeur format Date [Résolu/Fermé]

Signaler
-
 PleaseCallMe -
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

2 réponses

Réponse 1 / 2

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!
Réponse 2 / 2

J'ai trouvé par moi-même

Dim StrDate As String
StrDate = "Lundi " + P + " "
Set rge = Range("B7:B27").Find(StrDate)

=)
Posez votre question