ActiveCell et Text(Today) incompatibles
Résolu
touroul
Messages postés
526
Date d'inscription
Statut
Membre
Dernière intervention
-
touroul Messages postés 526 Date d'inscription Statut Membre Dernière intervention -
touroul Messages postés 526 Date d'inscription Statut Membre Dernière intervention -
Bonjour le forum !
Je n'arrive pas à comprendre pourquoi Excel m'insulte par "Sub ou fonction non définie" avec ma formule concaténée :
Alors que les deux formules utilisées séparément fonctionnent ...
Une idée de mon erreur ?
Merci par avance !
Je n'arrive pas à comprendre pourquoi Excel m'insulte par "Sub ou fonction non définie" avec ma formule concaténée :
ActiveCell.FormulaR1C1 = ActiveCell.Offset(0, 2) & "_" & Text(TODAY(), mmmm) & "_" & Year(TODAY())
Alors que les deux formules utilisées séparément fonctionnent ...
Une idée de mon erreur ?
Merci par avance !
3 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, Excel réagit ainsi parce que tu l'insultes en lui fournissant un code totalement erroné.
peux-tu montrer ton code VBA fonctionnant bien avec les deux formules séparées?
merci d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code -
Bonjour yg_be
J'ai fini par m'en sortir (à l'instant !) en remplaçant le 2ème membre par :& Format(Date, "yyyy")
Soit :ActiveCell.FormulaR1C1 = ActiveCell.Offset(0, 2) & Format(Date, "yyyy")
Reste que je n'ai pas saisi pourquoi le premier code était rejeté.
En séparé ça donnait :ActiveCell.FormulaR1C1 = ActiveCell.Offset(0, 2)& "_"
Text(TODAY(), mmmm) & "_" & Year(TODAY())
Merci ! -
C'est fait.
Bonne journée ! Merci !
