Bonjour,
A l'ouverture d'un classeur Excel, je souhaite qu'une macro s'exécute uniquement si la date présente dans la cellule B1 est inférieure à la date du jour.
Hors, la macro s'exécute à chaque ouverture.
- Soit la syntaxe de ma condition n'est pas bonne;
- Soit le format de la date dans le code n'est pas correct.
Dans la cas où la macro s'exécute, la valeur de la cellule B1 est remplacée par une date récupérée dans un autre fichier qui est au format now (exemple : 10/12/2020 6:07:19). Fatalement, si je compare cette date avec celle de maintenant (10/12/2020 09:14:08), elle sera inférieure. Je ne souhaite prendre en compte que le jour, le mois et l'année (10/12/2020).
Merci d'avance pour votre aide.
A l'ouverture d'un classeur Excel, je souhaite qu'une macro s'exécute uniquement si la date présente dans la cellule B1 est inférieure à la date du jour.
Hors, la macro s'exécute à chaque ouverture.
- Soit la syntaxe de ma condition n'est pas bonne;
- Soit le format de la date dans le code n'est pas correct.
Dans la cas où la macro s'exécute, la valeur de la cellule B1 est remplacée par une date récupérée dans un autre fichier qui est au format now (exemple : 10/12/2020 6:07:19). Fatalement, si je compare cette date avec celle de maintenant (10/12/2020 09:14:08), elle sera inférieure. Je ne souhaite prendre en compte que le jour, le mois et l'année (10/12/2020).
Merci d'avance pour votre aide.
VB:
Public Sub MàJ()
Application.ScreenUpdating = False
Set wk = ThisWorkbook
wk.Unprotect ("xxxxxx")
dat5 = wk.Worksheets("Total").Range("B1").Value
If CDate(dat5) < CDate(Now) Then
' si la date de la cellule B1 est inférieure à la date du jour, exécuter la macro
Else
'sinon, reverrouiller la feuille et le classeur et quitter la macro
With Worksheets("Total")
.EnableAutoFilter = True
.EnableOutlining = True
.Protect Contents:=True, Password:="xxxx", AllowUsingPivotTables:=True, DrawingObjects:=False, Scenarios:=False
End With
wk.Protect ("xxxxxx")
Exit Sub
End If
'suite de la macro:
With wk.Worksheets("Total")
.Unprotect "xxxx"
End With
'Etc
End sub
Dernière édition: