Bonjour,

Je me permets de vous solliciter et vous remercie par avance de votre aide. je suis novice en vba et bien que j'essaye d'apprendre par moi même, je commence terriblement a manquer de temps pour produire mon étude.

je vous explique mon objectif

je souhaite copier les valeurs des colonnes E:4 à E:46 des onglets "Feuil2" des fichiers situés dans "C:\Documents and Settings\coralieb\Bureau\CA" pour qu'ils se retrouvent dans les colonnes B2 à BZ46 (une colonne pour chaque fichier) dans l'onglet "feuil1" du fichier "macro données ca 2009".

ci dessous ma macro

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub TestCopy()
 
    'Définir une variable qui va représenter un classeur et un onglet à chaque itération.
    Dim Fichier As Workbook, Wb2 As Workbook
    Dim Ws1 As Worksheet, Ws2 As Worksheet
    Dim Cell1 As Range
    Dim Chemin As String
    'Définir une variable qui va représenter une cellule
    Dim Cell2 As Range
 
 
'localiser les données
Chemin = "C:\Documents and Settings\coralieb\Bureau\CA"
FName = Dir(Chemin & "\" & "*.xls")
Set Wb2 = Workbooks("macro données ca 2009.xls")
Set Ws1 = Sheets("Feuil2")
Set Ws2 = Sheets("Feuil1")
Set Cell1 = Range("E4:E46")
Set Cell2 = Range("B2:BZ46")
 
On Error Resume Next
 
  'Boucle sur chaque classeur de l'application Excel
    For Each Fichier In dossier.Files
    NomFichier = Fichier.Name
    Workbooks.Open Filename:=Chemin & "/" & NomFichier
 
    On Error Resume Next
 
     'copier les cellules
With Fichier
    .Ws1.Cell1.Copy
    Wb2.Ws2.Cell2.PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
End With
            Next
 
End Sub
"


merci beaucoup.