ActiveCell et Text(Today) incompatibles

Résolu/Fermé
touroul Messages postés 472 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 19 octobre 2024 - Modifié le 4 avril 2020 à 09:36
touroul Messages postés 472 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 19 octobre 2024 - 4 avril 2020 à 11:25
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 :

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 !
A voir également:

3 réponses

yg_be Messages postés 23309 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 2 novembre 2024 Ambassadeur 1 550
4 avril 2020 à 11:15
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
0
touroul Messages postés 472 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 19 octobre 2024 16
4 avril 2020 à 11:18
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 !
0
yg_be Messages postés 23309 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 2 novembre 2024 1 550
4 avril 2020 à 11:24
peux-tu alors marquer la discussion comme résolue?
0
touroul Messages postés 472 Date d'inscription mardi 5 octobre 2010 Statut Membre Dernière intervention 19 octobre 2024 16
4 avril 2020 à 11:25
C'est fait.
Bonne journée ! Merci !
0