XL 2010 ouvri un fichier à partir d'une arborescence

[philmaure]

bonjour,

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.

Merci pour votre aide
cdlt
Philmaure

 

[philmaure]

re,

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

Cdlt
Philmaure

 

[Paf]

Bonjour,

a priori :

Rep = "K:\ProgramData\Alcatel\CCSupervisor\Excel\DAILY\Pilstat\"  & Format(Date - 1, "dd-mm-yyyy") & "\"

A+