Discussion :

[Thomas69]

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 :

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
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

[jfontaine]

Avec l'enregistreur de macro

Copie de la feuil1 du classeur1 dans le classeur 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thomas69]

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

[jfontaine]

Essai comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thomas69]

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