[VBA-E]-incrémentation du nommage de fichier txt

j'importe d'une meme feuille des fichiers txt.
le nommage de ces fichiers txt se base sur la date du jours.
or si je veux importer plusieurs fois dans le journées, la macro se bloque en me demandant si il faut que je remplace le fichier existant.
donc le pb; comment faire un nommage de fichier
la finalité c'est par exemple d'avoir importé 3 fichier txt dans la journée avec pour nom;
aaaa_06062006_01
aaaa_06062006_02
aaaa_06062006_03 ect....
merci pour vos aides.

ben tu construit ton nom de fichier .. en fonction date... et un compteur, compteur que tu incrémente tant que fichier existe.. du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim stRep As String Dim stNom As String Dim stDir As String Dim i As Integer stRep = "c:\tmp\" ' Répertoire de travail .. stDir = "Valeur bidon pour premier tour" i = 1 While stDir <> "" stNom = "aaaa_" & Format(Now, "ddmmyyyy") & "_" & Format(i, "00") Debug.Print "Test fichier " & stNom stDir = Dir(stRep & stNom) Wend Debug.Print "Fichier trouve : " & stNom

---