{VBA Excel}Copie de colonne

voila j'ai fait une macro pour recopier des colonnes une par une
et mon code ne marche pas et j'ai pas trouver mon erreur
donc si on pouvait m'aider

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
39
40
41
42
Sub Prod3()
Sheets("Aoustin").Select
 
 
Application.ScreenUpdating = False 'cacher l éxecution de la macro
Dim fic As String
Dim CL1 As Workbook, Chemin
Dim fl As Worksheet
Dim thomas As Worksheet
Dim Lignecopie As Long
 
 
Workbooks("sauvegardeOEE2007.xls").Sheets("Aoustin").Range("A2:A65536").ClearContents
 
 
 
 
 
Chemin = "T:\Base Services RHODIA Silicones\Elastomeres\Dossier commun avec les Chefs de Poste\OEE 2007\"
fic = Dir(Chemin & "OEE & MAP Aoustin 2007.xls")
Do Until fic = ""
     Set CL1 = Workbooks.Open(Chemin & fic)
     DoEvents
 
     Set fl = CL1.Worksheets("Saisie")
     Set FL2 = Workbooks("sauvegardeOEE2007.xls").Sheets("Aoustin")
 
 
     FL2.Range("A" & FL2.Range("A65536").End(xlUp).Row + 5).Value = _
     fl.Columns("A").Value
 
 
      fic = Dir
     CL1.Close True 'si tu enregistres le fichier ouvert -> Sinon c'est False
 
     DoEvents
Loop
Set CL1 = Nothing
Set fl = Nothing
Application.ScreenUpdating = True
 
End Sub

au sinon si vous avez une solution pour recopier une feuille entiere vers un autre classeur ca m'arrangerait

merci

Avec l'enregistreur de macro

Copie de la feuil1 du classeur1 dans le classeur 2
Code:

1 2 3 Sheets("Feuil1").Select Sheets("Feuil1").Copy After:=Workbooks("Classeur2").Sheets(3)

oui mais mon 1er classeur est ferme c'est ca le probleme

Essai comme ca

Code:

1
2
3
4
5
6
7
 
Workbooks.Open "d:\classeur.xls"
 
Workbooks("classeur.xls").Sheets("Feuil1").Select
Workbooks("classeur.xls").Sheets("Feuil1").Copy After:=Workbooks("Classeur2").Sheets(3)
 
Workbooks("classeur.xls").Close False

c'est bon tout marche
je te remercie pour ton coup de main