Fonctions "Mois" et "Année" à intégrer au chemin d'un fichie
Résolu/Fermé
ti_mouton
Messages postés
143
Date d'inscription
vendredi 29 mai 2015
Statut
Membre
Dernière intervention
5 septembre 2020
-
11 janv. 2016 à 11:56
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 11 janv. 2016 à 14:21
ti_mouton Messages postés 143 Date d'inscription vendredi 29 mai 2015 Statut Membre Dernière intervention 5 septembre 2020 - 11 janv. 2016 à 14:21
A voir également:
- Fonctions "Mois" et "Année" à intégrer au chemin d'un fichie
- Fonction si et - Guide
- Virginie organise un rallye avec 30 équipes. elle veut créer un code pour désigner chaque équipe. elle a commencé à la main, mais elle voudrait le faire calculer à l'aide d'une formule. proposez une formule comportant une seule fonction et à recopier vers le bas dans la colonne a du fichier à télécharger. quelle formule sera en a9 ? ✓ - Forum Programmation
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. ✓ - Forum Graphisme
- Chaque fichier en ligne sur le web a un chemin d’accès sur un serveur. ✓ - Forum Réseau
- Chanson i love you année 70 ✓ - Forum Musique / Radio / Clip
1 réponse
jordane45
Messages postés
38109
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
28 mars 2024
4 634
11 janv. 2016 à 12:43
11 janv. 2016 à 12:43
Bonjour,
Et que penser des fonctions NOW, MONTH et YEAR ?
Associé avec un IF et quelques lignes de code ... et le tour est joué.
Un truc du genre :
Et que penser des fonctions NOW, MONTH et YEAR ?
Associé avec un IF et quelques lignes de code ... et le tour est joué.
Un truc du genre :
Sub test() Dim maintenant As Date Dim date_to_compare As Date Dim date_to_use As Date Dim Chemin As String maintenant = CDate(Format(Now(), "YYYY-MM-DD")) Annee = Year(Now()) Mois = Month(Now()) date_to_compare = CDate("20/" & Mois & "/" & Annee) If (maintenant < date_to_compare) Then date_to_use = CDate(DateAdd("M", -1, maintenant)) Annee_to_use = Year(date_to_use) mois_to_use = Month(date_to_use) End If Chemin = "W:\DAF\Partage_Region\XX_BBB\Résultat_" & Annee_to_use & "\" & mois_to_use & "_" & Annee_to_use MsgBox (Chemin) End Sub
11 janv. 2016 à 14:21