Discussion :

[VBBBA]

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.

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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