Je souhaiterai lister les noms des fichiers excel présents dans une arborescence qui se termine par une date.
C'est une opération à faire chaque jour sachant que la date est à J-1
J'ai la ligne de commande :
Rep = "K:\toto\exemple\17-10-2016 : cela fonctionne mais pour remplacer la date pour joindre chaque jour le dossier il faudrait que je puisse la saisir pour qu'elle s'ajoute à la ligne de commande.
j'ai essayé cela . Je saisie la date souhaité mais ca ne fonctionne pas :
Sub List_Fichiers()
Dim Rep As String, Fichier As String
Dim i As Integer
Dim aa
aa = InputBox("Saisie de la date du jour", _
"Format jour-mois-année")
Rep = "K:\ProgramData\Alcatel\CCSupervisor\Excel\DAILY\Pilstat\& aa"
Fichier = Dir(Rep)
Do While Fichier <> ""
i = i + 1
Sheets("Feuil1").Range("A" & i) = Fichier
Fichier = Dir
Loop