Discussion :

[Steppingstone]

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

[Invité]

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
19
Sub Macro1()
Dim Myrange As Range
Set Myrange = Range("A1:K1")
Dim Fichier As String
Fichier = Dir("C:\GA\TRAVEL\Claim Files\2013\201310\*.xls")
While Fichier <> ""
CopyCol Myrange,"C:\GA\TRAVEL\Claim Files\2013\201310\" & Fichier
Fichier = Dir
Wend
End Sub
 
Sub CopyCol(RangeSource As Range, FichierCible As String)
Dim wb As Workbook
Set wb = Workbooks.Open(FichierCible)
RangeSource.Copy wb.Worksheets(1).Range("A1")
wb.Save
wb.Close
set wb=nothing
End Sub

[Steppingstone]

Merci beaucoup, cela fonctionne !
Une question, Le fichier contenant la macro doit il être obligatoirement place dans le même répertoire que l'ensemble des fichiers à modifier?

[Invité]

non ou il faut l'évincer du copier coller

[Steppingstone]

C'est noté, merci encore pour votre aide rapide.