A voir également:
- Macro dernier fichier hier
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Ouvrir fichier .bin - Guide
2 réponses
ozone_
Messages postés
1518
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
2 juin 2023
478
30 août 2022 à 21:03
30 août 2022 à 21:03
Bonjour,
Un test à faire avec ce bout de macro :
Sub Extraction_KPI_stand_up_J_1() 'Extraction macro Dim Dossier As String Dim Fichier As String Dim Last_date As Date Dim Dernier_Fichier As String Dossier = ThisWorkbook.Worksheets("Lien").Range("B2").Value Fichier = Dir(Dossier & "*.xlsx") If Weekday(Date) = 1 Then Last_date = Date - 3 Else Last_date = Date - 1 End If Do While Fichier <> "" If Format(FileDateTime(Dossier & Fichier), "dd/mm/yyyy") = Last_date Then Dernier_Fichier = Dossier & Fichier Last_date = FileDateTime(Dossier & Fichier) Exit Do End If Fichier = Dir Loop If Dernier_Fichier <> "" Then ThisWorkbook.Worksheets("Lien").Range("B3") = Dernier_Fichier ThisWorkbook.Worksheets("Tableau_de_Bord").Range("N17") = Last_date Else ThisWorkbook.Worksheets("Lien").Range("B3") = "Pas de fichier de la veille présent dans le répertoire" ThisWorkbook.Worksheets("Tableau_de_Bord").Range("N17") = Last_date End If End Sub
30 août 2022 à 21:37
bonjour,
Je combinerais le code de départ et la suggestion de ozone_, ainsi:
31 août 2022 à 17:46
Bonjour, merci beaucoup pour l'aide j'essaye ça demain en retournant au boulot :)