Je veux écrire une date dans une Macro
Résolu/Fermé
Magikarp1990
Messages postés
6
Date d'inscription
mercredi 4 octobre 2017
Statut
Membre
Dernière intervention
15 novembre 2017
-
4 oct. 2017 à 17:23
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 - 4 oct. 2017 à 22:36
fabien25000 Messages postés 673 Date d'inscription mercredi 5 octobre 2016 Statut Membre Dernière intervention 28 juillet 2022 - 4 oct. 2017 à 22:36
A voir également:
- Je veux écrire une date dans une Macro
- Ecrire en gras sur whatsapp - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Ecrire en miroir - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
58
4 oct. 2017 à 17:50
4 oct. 2017 à 17:50
Bonjour,
=année(aujourdhui()) se traduit en VBA par
=année(aujourdhui()) se traduit en VBA par
Year(Now)
ccm81
Messages postés
10851
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
16 avril 2024
2 404
4 oct. 2017 à 19:01
4 oct. 2017 à 19:01
Bonjour
Peut être quelque chose comme ça
Dim nomf As String
nomf = Trim(Str(Year(Date)))
Sheets(nomf).Range("A1").Value = 1
Cdlmnt
Peut être quelque chose comme ça
Dim nomf As String
nomf = Trim(Str(Year(Date)))
Sheets(nomf).Range("A1").Value = 1
Cdlmnt
Magikarp1990
Messages postés
6
Date d'inscription
mercredi 4 octobre 2017
Statut
Membre
Dernière intervention
15 novembre 2017
4 oct. 2017 à 19:24
4 oct. 2017 à 19:24
Le tout commence à faire du sens dans ma tête. mais je ne comprend pas pourquoi excel m’envoie un message d'erreur lorsqu'il arrive à la troisième ligne et suige supposer remplacer le "2017" par nomf
fabien25000
Messages postés
673
Date d'inscription
mercredi 5 octobre 2016
Statut
Membre
Dernière intervention
28 juillet 2022
58
Modifié le 4 oct. 2017 à 19:45
Modifié le 4 oct. 2017 à 19:45
bonjour ccm81
Trim(Str(Year(Date)))
tu peux expliqué stp je ne comprend pas
Edit : j'ai fait F1; j'ai compris.. dans mon cas ça n'a pas été utile
Trim(Str(Year(Date)))
tu peux expliqué stp je ne comprend pas
Edit : j'ai fait F1; j'ai compris.. dans mon cas ça n'a pas été utile
4 oct. 2017 à 18:42
voici la ligne de ma macro que je dois modifier:
Set wb = ThisWorkbook
Set wbreg = Application.Workbooks.Open("P:\Dept\Commun\REGISTRE DDD\DATABASE.xlsx") 'Base de donnée
Set reg = wbreg.Worksheets("2017")
Comme on peut le voir le 2017 est le nom de la feuille je peux donc pas simplement le remplacer par Year(now).
devrais-je l'obligé a regarder en quel année nous sommes pour qu'il puisse ensuite choisir dans quel page enregistré les données?
Modifié le 4 oct. 2017 à 19:06
J'ai fait exactement ça au boulot la semaine derniére
Si tu écris Worksheets(year(now)) VBA ira dans la feuille qui a pour nom l'année en cours.
Pour ne pas avoir de bug au retour des congés de fin d'année, j'ai aussi écrit un code dans l'évenement _open du classeur qui teste la date.
A son ouverture en 2018, il est programmé pour créer une feuille nommée 2018 et les infos que je traiterai seront dirigées sur la nouvelle feuille.
4 oct. 2017 à 21:08
Merci beaucoup
considérant que c'est ma première question je ne suis pas sur de ce que je suis censé faire avec ma question. dois-je attendre que ccm81 ai répondu a ta question avant d'écrire résolu ou bien le l'écrit tout de suite?
4 oct. 2017 à 22:36