ActiveCell et Text(Today) incompatibles
Résolu
touroul
Messages postés
509
Date d'inscription
Statut
Membre
Dernière intervention
-
touroul Messages postés 509 Date d'inscription Statut Membre Dernière intervention -
touroul Messages postés 509 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 !
A voir également:
- ActiveCell et Text(Today) incompatibles
- Sms to text - Télécharger - Sauvegarde
- Les textes ne doivent pas être en retrait à droite et à gauche - Guide
- Traducteur photo - texte et web - Guide
- Traitement de texte et tableur gratuit - Guide
- Text wrangler - Télécharger - Traitement de texte
3 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
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 :
Soit :
Reste que je n'ai pas saisi pourquoi le premier code était rejeté.
En séparé ça donnait :
Merci !
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 !