Bonjour,

Pourriez-vous svp me dire quelle modification doit être apportée à la commande ci-dessous pour que ce copier-coller s'applique à tous les fichiers .xls du répertoire "201310" ( nombreux, aux alentours de 500)?
J'ai essayé "\*.xls" , mais sans succès, désolé je débute en la matière
Merci d'avance pour votre aide.


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
Sub Macro1()
'
' Macro1 Macro
'
 
'
    Range("A1:K1").Select
    Selection.Copy
    Workbooks.Open Filename:= _
        "C:\GA\TRAVEL\Claim Files\2013\201310\CLA_PY_WKD_NL_000000_20121201.xls"
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub