msgbox en fonction de la date

[rem$]

bonjour à tous

je voudrais que mon msgbox placé dans le worbook ne s'ouvre plus, à l'ouverture du fichier, si la date du jour est dépassée de 30 jours...

d'avance merci

Rem$

 

[Gérard Dezamis]

Bonjour Rem$

Ce code placé dans Thisworkbook
Affiche l'userform1 si la date que tu places dans une cellule nommée "Madate" est plus "vieillle que maintenant (NOW)

Private Sub Workbook_Open()
If Now - Range("Madate").Value < 30 Then
UserForm1.Show
End If
End Sub
A toi de voir maintenant ....
@+
GD

 

[Jef]

salut rem$, gerard

si tu veut comparer la date du jour a la date d'enregistrement de ton fichier tu peut essayer la macro suivante :

Sub VerifDate()

Dim fs, f, MaDate
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(ThisWorkbook.Name)
MaDate = f.DateLastModified 'ou f.DateCreated

If (Now - MaDate) < 30 Then
UserForm1.Show
End If
End Sub

@+
Jef

 

[rem$]

RE

merci GD pour la soluce
JEF je garde le code sous le coude car il pourrait me servir....

merci à tous les 2

@+
Rem$