Incrémenter un nom de fichier dans le code VBA

Version imprimable

Bonjour,

Je n'arrive pas trouver comment incrémenter un nom de fichier dans ma macro.
Je m'explique : je dois mettre à jour une base de données Excel à partir d'un fichier qui change tous les jours de noms
Exemple :
aujourd'hui il s'appelle : "Fichier27052013_101033"
Demain il s'appellera : "Fichier28052013_111133"

Comment faire car j'ai systématiquement un message d'erreur .
Voici le code que j'ai enregistré:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub Màj_DCOL() ' ' Màj_DCOL Macro ' ' Workbooks.Open Filename:= _ "http://184.7.67.113/DCOL-fr/Extract_Full_DCOL_EUR_FR_20130527_103433.xlsx" ActiveWindow.Visible = False Windows("Extract_Full_DCOL_EUR_FR_20130527_103433.xlsx").Visible = True Range("A1:AZ65000").Select Selection.Copy Windows("Fiche_Navette.xlsm").Activate Sheets("Extract_Full_DCOL_EUR_FR_201303").Select ActiveWindow.WindowState = xlMaximized Range("A1").Select ActiveSheet.Paste Sheets("Week").Select End Sub

Il faut mettre ton nom de fichier dans des variables et jouer avec ces variables.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Sub Màj_DCOL()
'
' Màj_DCOL Macro
'
'
dim nomFichier as string
dim numFichier as string
 
numFichier = "20130527_103433"
 
' ici j'ai défini le num du fichier comme constant mais tu peux faire varier
' le num du fichier avec une fonction comprenant des if et/ou des while
' en fonction des variations de nom du fichier attendues. Exemple :
 
n = 20130527
n2 = 103433
if tunnel = 1 then
numFichier = n +1 & "_" & n2 + 42 'exemple
else
numFichier = 0 & "_" & n2 * 42
end if
 
nomFichier = "Extract_Full_DCOL_EUR_FR_" & numFichier & ".xlsx"
 
    Workbooks.Open Filename:= _
        "http://184.7.67.113/DCOL-fr/" & nomFichier
    ActiveWindow.Visible = False
    Windows(nomFichier).Visible = True
    Range("A1:AZ65000").Select
    Selection.Copy
    Windows("Fiche_Navette.xlsm").Activate
    Sheets("Extract_Full_DCOL_EUR_FR_201303").Select
    ActiveWindow.WindowState = xlMaximized
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("Week").Select
End Sub

Mets un :ccool: si tes satisfait de la réponse! Merci

27/05/2013, 19h05
Leodams

Merci de ta réponse mais il faut que je fasse un test.

Est ce que tu as compris que le numéro qui varie est la date du jour et l'heure à laquelle le fichier est extrait.

Je fais le test et je te dirais si ça fonctionne.

En tout cas merci pour cette piste.
27/05/2013, 19h30
jfontaine

Bonjour,

A mon avis il te faut trouver le moyen de connaitre la date du fichier le plus récent.
Chose que l'on peut faire avec FSO quand les fichiers sont sur un réseau, mais je sèche quand il s'agit de fichiers sur internet.
Peut être avec FTP ...
30/05/2013, 12h54
Leodams

Bonjour,
en mettant les variables ça ne fonctionne pas;

est ce que en VBA il n'y a pas un caractère spécial pour remplacer un lettre ou un mot comme sur UNIX (%, *)
30/05/2013, 13h16
Invité

Citation:

en mettant les variables ça ne fonctionne pas;

Bonjour,
Ça ne peut pas fonctionner, car ton fichier si il est présent sur ton FTP à 6 heure du matin, il aura un nom du genre : Fichier27052013_060000, si tu veux le récupérer à 18 heures, tu prendras la date système pour le retrouver :
Fichier27052013_180000 donc erreur.
Il faut regarder sur le serveur si un fichier Fichier27052013_ ??????? Existe !

Maintenant tape dans IE : http://184.7.67.113/DCOL-fr et regarde si IE te retourne la liste des fichiers ? la solution est peut-être là ?