Bonjour à toutes et à tous,
j'ai besoin d'extraire (sous forme numérique) le jour, le mois et l'année de la date en cours mais ça ne marche que pour le jour. Pour mois et année, ça plante en me disant "Tableau attendu".
Pourtant, j'ai l'impression d'utiliser la bonne syntaxe (même quand je remplace now par date, ça plante).
Quelqu'un peut-il me dire où ça coince ?
Merci d'avance
Sub datum()
Dim Jour As Variant
Dim Mois As Variant
Dim Annee As Variant
Jour = Day(Now)
Mois = Month(Now)
Annee = Year(Now)
MsgBox "Le jour en cours est le " & Jour
MsgBox "Le mois en cours est " & Mois
MsgBox "L'année en cours est " & Annee
End Sub
j'ai besoin d'extraire (sous forme numérique) le jour, le mois et l'année de la date en cours mais ça ne marche que pour le jour. Pour mois et année, ça plante en me disant "Tableau attendu".
Pourtant, j'ai l'impression d'utiliser la bonne syntaxe (même quand je remplace now par date, ça plante).
Quelqu'un peut-il me dire où ça coince ?
Merci d'avance
Sub datum()
Dim Jour As Variant
Dim Mois As Variant
Dim Annee As Variant
Jour = Day(Now)
Mois = Month(Now)
Annee = Year(Now)
MsgBox "Le jour en cours est le " & Jour
MsgBox "Le mois en cours est " & Mois
MsgBox "L'année en cours est " & Annee
End Sub