Extraire jour du mois
Résolu
lafelouque
Messages postés
6
Statut
Membre
-
lafelouque Messages postés 6 Statut Membre -
lafelouque Messages postés 6 Statut Membre -
Bonjour,
je cherche a extraire le jour du mois pour pouvoir l'intégrer dans une macro qui va chercher la colonne correspondante a cette date afin d'y copier ou prelever des données
J'ai essayé
=AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());1;0)-151 qui fonctionne tres bien dans le tableau mais pas pas dans la macro ou on me dit
Sub vins_boissons()
' vins_boissons Macro
Dim iJour As Integer
iJour =AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());1;0)
End Sub
erreur de syntaxe
merci pour votre aide
je cherche a extraire le jour du mois pour pouvoir l'intégrer dans une macro qui va chercher la colonne correspondante a cette date afin d'y copier ou prelever des données
J'ai essayé
=AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());1;0)-151 qui fonctionne tres bien dans le tableau mais pas pas dans la macro ou on me dit
Sub vins_boissons()
' vins_boissons Macro
Dim iJour As Integer
iJour =AUJOURDHUI()-DATE(ANNEE(AUJOURDHUI());1;0)
End Sub
erreur de syntaxe
merci pour votre aide
4 réponses
-
Bonjour,
iJour = Day(Now())
bonne suite -
Bonjour
En VBA les codes sont en anglais
AUJOURDHUI c'est DATE, ANNEE c'est YEAR, MOIS c'est MONTH etc
Essaie cette formule :
=DatePart("y", Date(), vbMonday, vbFirstFourDays)
Cdlmnt -
je me doutais que c'était simple et pourtant ..j'ai passé pas mal de temps sur la toile à chercher
merci
vous m'avez retiré une belle épine du pied -
Bonjour
tu peux faire aussi comme ca
VarJour = Format(Now, "dd")
VarMois = Format(Now, "mm")
VarAn = Format(Range("A6"), "yyyy")
A+
Maurice
