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
- Date et heure - Forum Samsung
1 réponse
jordane45
Messages postés
38145
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
25 avril 2024
4 650
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