ImputBox par rapport a une date

[Bricoltou]

Bonjour le Fil

J'ai un probléme pour faire apparaitre une imputbox mais je ne trouve pas la solution .😱
Je m'explique :

J'ai un tableau excel que je souhaite archivé chaque 1er du mois sans avoir besoin de faire référence au Mois .
Exemple :
Dans une cellule excel du fichier j'ai une date 01\11\2009 alors je souhaite avoir un message " Vous devez Archiver votre Dossier " et ce qui me bloque c'est que je ne tient pas compte du mois ,je veux juste fair référence au 01.

Pouvez vous m'aider ?😎

Merci d'avance pour vos réponses

@+

Bricoltou

 

[Bebere]

Re : ImputBox par rapport a une date

bonjour

if month(01/10/2009)=1 then msgbox "Archiver votre dossier,svp"

à bientôt

 

[Staple1600]

Re : ImputBox par rapport a une date

Bonjour

Pour test (donc sur un classeur vierge)

Sub check_date()
Dim cejour As Long
[A1] = Date: [A1].Select
cejour = Day(ActiveCell)
Select Case cejour
Case 1
MsgBox "Nous sommes le premier jour du mois de : " & MonthName(Month(Date)) & Chr(13) & "Vous devez archivez votre dossier."
Case Else
MsgBox "Nous sommes le : " & Date, vbInformation, "BIENVENUE"
End Select
End Sub

 

[Bricoltou]

Re : ImputBox par rapport a une date

Bonsoir le Fil ,Bebere et Staple 1600

Merci à vous deux pour votre réponse 🙂

J'ai essaye les deux codes :

Staple peut on uniquement avoir le rappel uniquement le 1 jour de chaque mois sans avoir le message de bienvenu chaque jour

Bebere dois je associé une cellulle avec la date car le code fonctionne pas

Désolé mais je débute en VBA et j'ai un peu de mal 😕
D'ailleurs heureusement que j'ai ce forum 😀

@+

Bricoltou

 

[Bebere]

Re : ImputBox par rapport a une date

bonjour
oups j'ai mis month,sorry
tu fais comme staple
si la date est en range("a1"),tu écris day(range("a1")) à la place de la date
tu mets en commentaire ou supprime case else et la ligne qui suit
à bientôt

 

[Staple1600]

Re : ImputBox par rapport a une date

Re

Il suffit de supprimer ou commenter la ligne

Sub check_date()
Dim cejour As Long
[A1] = Date: [A1].Select
cejour = Day(ActiveCell)
Select Case cejour
Case 1
MsgBox "Nous sommes le premier jour du mois de : " & MonthName(Month(Date)) & Chr(13) & "Vous devez archivez votre dossier."
Case Else
'MsgBox "Nous sommes le : " & Date, vbInformation, "BIENVENUE"
End Select
End Sub

 

[Bricoltou]

Re : ImputBox par rapport a une date

Bebere,Staple1600

Merci pour votre patience , voila ce que j'ai fait .

J'ai mis AUJOURDHUI() dans la case L1 puis voici mon code
Sub check_date()
Dim cejour As Long
[L1] = Date: [L1].Select
cejour = Day(Range("L1"))
Select Case cejour
Case 1
MsgBox "Nous sommes le premier jour du mois de : " & MonthName(Month(Date)) & Chr(13) & "Vous devez archivez votre Fichier Absence."
'Case Else
'MsgBox "Nous sommes le : " & Date, vbInformation, "BIENVENUE"
End Select
End Sub

Pouvez vous me dire si cela va fonctionné le 1er de chaque mois sans exception

Merci d'avance

Bricoltou

 

[Staple1600]

Re : ImputBox par rapport a une date

Re


Pour tester , essaie cette macro

Sub check_date()
Dim cejour As Long, test As Long
[COLOR=Red]' juste ici pour test
Randomize
test = InputBox("Saisir le chiffre d'un mois" & Chr(13) & " (ou laisser la valeur aléatoire par défaut) ", "TEST", Int(Rnd() * 12) + 1)
test = DateSerial(Year(Date), test, 1)
MsgBox StrConv(Format(test, "dddd dd mmmm yyyy"), 3)
[L1] = test
' fin code de test ( a supprimer après test )[/COLOR]
' [L1]=Date ' à remettre en usage
cejour = Day(Range("L1"))
Select Case cejour
Case 1
MsgBox "Nous sommes le premier jour du mois de : " & MonthName(Month(Date)) & Chr(13) & "Vous devez archivez votre Fichier Absence."
Case Else
End Select
End Sub

 

[Bricoltou]

Re : ImputBox par rapport a une date

Bonsoir Le Fil ,Staple1600

Merci a toi Staple1600 , ce code Fonctionne 😀

@+

Bricoltou