Extraire jour du mois
Résolu
lafelouque
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
lafelouque Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
lafelouque Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Extraire jour du mois
- Extraire une video youtube - Guide
- Extraire le son d'une vidéo - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
- Extraire image pdf - Guide
4 réponses
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
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
mais j'ai un Pb avec month(now())
qui ne trouve pas la page d'une feuille intitulée Mois(6)
avec
iMois= Month(now())
sheets ("Mois(iMois)").select
ou est l'erreur
bon dimanche
il suffisait de concaténer
Sheets("Mois(" & iMois & ")").Activate
Si cela peut aider !!