Extraire jour du mois

Résolu/Fermé

lafelouque Messages postés 5 Date d'inscription samedi 29 juin 2013 Statut Membre Dernière intervention 17 juillet 2013 - 29 juin 2013 à 16:30
lafelouque Messages postés 5 Date d'inscription samedi 29 juin 2013 Statut Membre Dernière intervention 17 juillet 2013 - 1 juil. 2013 à 07:05

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

A voir également:

4 réponses

Réponse 1 / 4

f894009 Messages postés 17191 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mai 2024 1 707
29 juin 2013 à 18:02

Bonjour,

iJour = Day(Now())

bonne suite

lafelouque Messages postés 5 Date d'inscription samedi 29 juin 2013 Statut Membre Dernière intervention 17 juillet 2013
30 juin 2013 à 19:11

encore merci pour day()
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

lafelouque Messages postés 5 Date d'inscription samedi 29 juin 2013 Statut Membre Dernière intervention 17 juillet 2013
1 juil. 2013 à 07:05

j'ai trouvé et a priori le pb est récurent sur la toile
il suffisait de concaténer
Sheets("Mois(" & iMois & ")").Activate

Si cela peut aider !!

Réponse 2 / 4

via55 Messages postés 14417 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 25 mai 2024 2 707
29 juin 2013 à 18:16

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

Réponse 3 / 4

lafelouque Messages postés 5 Date d'inscription samedi 29 juin 2013 Statut Membre Dernière intervention 17 juillet 2013
29 juin 2013 à 18:16

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

Réponse 4 / 4

foo
29 juin 2013 à 18:20

Bonjour
tu peux faire aussi comme ca

VarJour = Format(Now, "dd")
VarMois = Format(Now, "mm")
VarAn = Format(Range("A6"), "yyyy")

A+

Maurice

Discussions similaires

Formule Excel pour afficher les mois (chiffres) en lettre

Table des matières dont les titres n'apparaissent pas..

Extraire le contenu de plusieurs fichiers

mise à jour boitier X96 mini

Discussions similaires

Newsletters