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 : Sélectionner tout - Visualiser dans une fenêtre à part
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