Bonjour à tous,
Les fonctions Then GoTo Else et End if me triturent l'esprit, le tout étant de les placer au bon endroit.
Sujet: Comparaison de la date du jour "Aujourd'hui()" avec une date prédéterminée dans la macro.
Si la date du jour est supérieure à la date prédéterminée, il faut effacer le contenu du fichier excel.XLS
en cours de traitement et afficher une boîte de dialogue " DATE DÉPASSÉE"
Dans le cas contraire continuer à traiter le fichier excel.XLS.
'Si aujourd'hui > au 01/01/2017, alors aller à "depassee"
If Date > Date Sérial (2017,1,1) Then
GoTo depassee
Else
'Si la date n'est pas dépassé on continu le traitement normal
End If
depassee
'Sélectionne toutes les cellules de la feuille de calcul et les supprime
Cells.Select
Selection.Delete Shift:=xlUp
Application.ScreenUpdating = True
'affichage de la boîte de dialogue
MsgBox " DATE DÉPASSÉE !! ", vbInformation, " MISE EN GARDE "
End Sub
Merci pour vos propositions.
Joël
Les fonctions Then GoTo Else et End if me triturent l'esprit, le tout étant de les placer au bon endroit.
Sujet: Comparaison de la date du jour "Aujourd'hui()" avec une date prédéterminée dans la macro.
Si la date du jour est supérieure à la date prédéterminée, il faut effacer le contenu du fichier excel.XLS
en cours de traitement et afficher une boîte de dialogue " DATE DÉPASSÉE"
Dans le cas contraire continuer à traiter le fichier excel.XLS.
'Si aujourd'hui > au 01/01/2017, alors aller à "depassee"
If Date > Date Sérial (2017,1,1) Then
GoTo depassee
Else
'Si la date n'est pas dépassé on continu le traitement normal
End If
depassee
'Sélectionne toutes les cellules de la feuille de calcul et les supprime
Cells.Select
Selection.Delete Shift:=xlUp
Application.ScreenUpdating = True
'affichage de la boîte de dialogue
MsgBox " DATE DÉPASSÉE !! ", vbInformation, " MISE EN GARDE "
End Sub
Merci pour vos propositions.
Joël