L
lostgen67
Guest
Bonjour le Forum,
Je me suis mis dans le workbook une petite macro qui devrait me permettre a l'ouverture du fichier de detecter les nouveaux anniversiare a souhaiter .....ben si je suis la c'est que ca marche pas...
En fait il me detecte les mois mais se moque un peu des jours !!!! why ?
je sent que cela tourne autour du format de date......mais je ne trouve pas.... je voulais meme faire un concatener.....mais à un moment je me suis arreté de penser .....pour aller boire un biere fraiche...car y fait bien cho....:evil:
Private Sub Birthday()
For Each Cell In Sheets('data2').Range('f1:f100')
If Format(Cell.Value, 'jj/mm') = Format(Now(), 'jj/mm') Then
MsgBox Cell.Offset(0, 1).Value
End If
Next
End Sub
merci d'avance
Je me suis mis dans le workbook une petite macro qui devrait me permettre a l'ouverture du fichier de detecter les nouveaux anniversiare a souhaiter .....ben si je suis la c'est que ca marche pas...
En fait il me detecte les mois mais se moque un peu des jours !!!! why ?
je sent que cela tourne autour du format de date......mais je ne trouve pas.... je voulais meme faire un concatener.....mais à un moment je me suis arreté de penser .....pour aller boire un biere fraiche...car y fait bien cho....:evil:
Private Sub Birthday()
For Each Cell In Sheets('data2').Range('f1:f100')
If Format(Cell.Value, 'jj/mm') = Format(Now(), 'jj/mm') Then
MsgBox Cell.Offset(0, 1).Value
End If
Next
End Sub
merci d'avance