Dans une macro obtenir le jour d'une date

Résolu/Fermé

moneyshop Messages postés 8 Date d'inscription mercredi 1 septembre 2010 Statut Membre Dernière intervention 31 août 2018 - 30 août 2018 à 14:23
Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 - 30 août 2018 à 16:38

bonjour
voici le formule qui fonctionne dans une cellule excel

=CHOISIR(JOURSEM(AUJOURDHUI());"dimanche";"lundi";"mardi";"mercredi";"jeudi";"vendredi";"samedi")
je veux l’intégrer dans une macro journalière et la valider chaque jour.
je n'arrive pas avec la formule
ActiveCell.FormulaR1C1 = "=CHOISIR(JOURSEM(AUJOURDHUI());"dimanche";"lundi";"mardi";"mercredi";"jeudi";"vendredi";"samedi")"
quelqu'un pour me dire ce qu'il faut ajouter?
merci a tous

A voir également:

Dans une macro obtenir le jour d'une date
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro word - Guide
Mise a jour chrome - Accueil - Applications & Logiciels
Mettre à jour ses pilotes - Guide

3 réponses

Réponse 1 / 3

Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
Modifié le 30 août 2018 à 14:38

Bonjour,

regarde comme cela
ActiveCell.FormulaR1C1 = _
"=CHOOSE(WEEKDAY(TODAY()),""dimanche"",""lundi"",""mardi"",""mercredi"",""jeudi"",""vendredi"",""samedi"")"

et pourquoi passes tu par créer une formule alors que tu pourrais directement afficher le jour avec
ActiveCell = Choose(Weekday(Date), "dimanche", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi")

Réponse 2 / 3

moneyshop Messages postés 8 Date d'inscription mercredi 1 septembre 2010 Statut Membre Dernière intervention 31 août 2018
30 août 2018 à 14:42

merci mike-31
j'avais essayé la double "" mais j'oublie toujours qu'il faut parfois utiliser l'anglais "today"
bonne journée

Réponse 3 / 3

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 310
30 août 2018 à 15:02

Bonjour

Salut Mike, ça faisait longtemps que l'on s’était pas croisé :! ;o)

pourquoi utiliser "choose" ?

en excel
=TEXTE(JOURSEM(AUJOURDHUI());"jjjj")
avec vba
ActiveCell = Format(Weekday(Date), "dddd")

moneyshop Messages postés 8 Date d'inscription mercredi 1 septembre 2010 Statut Membre Dernière intervention 31 août 2018
30 août 2018 à 15:27

bonjour michel
en effet c'est plus simple et plus propre je vais voir si c'est valable sous excel 97
c'est vrai ca date un peu mais j'ai beaucoup de macro qui marchent et je ne voudrai pas tout refaire

moneyshop Messages postés 8 Date d'inscription mercredi 1 septembre 2010 Statut Membre Dernière intervention 31 août 2018
30 août 2018 à 15:38

et ca marche je n'avais pas besoin de réinventer la roue lol
merci

Mike-31 Messages postés 18346 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 novembre 2024 5 104
30 août 2018 à 16:38

Salut Michel,

Oui je me fait plus discret sur le forum et pour revenir à la formule j'ai simplement actualisé la formule du demandeur et avancé qu'on pouvait sélectionné directement le jour sans aller plus loin mais ta proposition est plus propre.
Bonne fin de journée à toi

Discussions similaires

Que peut faire 3fois/j un homme, mais qu'1fois/j une femme

je cherche la date et le lieu de naissance d une personne

Prélèvement JM Jacquie et Michel date.

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

Formule calcul d'un total conditionnel