{VBA Excel}Amiliorer une Macro

Je vous presente ma Macro

le hic je voudrais y apporter une petite modif qui permet de commencer mes recopies a partir de la ligne 3

au debut j'avais fait comme modification de sauter plus de lignes comme ca j'aurais mon espace au debut mais apres entre les donnée ca fait trop d'espace

je voulais modifier mon code

Citation:

fl2.Range("A" & fl2.Range("A65536").End(xlUp).Row + 1).Value = _
fl.Range("B1").Value

Par

Citation:

fl2.Range("A3" & fl2.Range("A65536").End(xlUp).Row + 1).Value = _
fl.Range("B1").Value

et ca ne marche pas

donc si vous avez une idée faite moi signe

merci

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Sub Charge()
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
 
 
 
Workbooks("thomas.xls").Sheets("Feuil1").Range("A2:A65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("B2:B65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("C2:C65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("D2:D65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("E2:E65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("F2:F65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("I2:I65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("J2:J65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("G2:G65536").ClearContents
Workbooks("thomas.xls").Sheets("Feuil1").Range("H2:H65536").ClearContents
 
 
 
Chemin = "C:\Documents and Settings\S8746037\Bureau\Etude\Programme Excel Stephane\JB\Archivage\"
fic = Dir(Chemin & "A180_PROD_1_LOT*.xls")
Do Until fic = ""
     Set CL1 = Workbooks.Open(Chemin & fic)
     DoEvents
 
     Set fl = CL1.Worksheets("5")
     Set fl2 = Workbooks("thomas.xls").Sheets("Feuil1")
     fl2.Range("A" & fl2.Range("A65536").End(xlUp).Row + 1).Value = _
     fl.Range("B1").Value
     fl2.Range("B" & fl2.Range("B65536").End(xlUp).Row + 1).Value = _
     fl.Range("B3").Value
     fl2.Range("C" & fl2.Range("C65536").End(xlUp).Row + 1).Value = _
     fl.Range("B4").Value
     fl2.Range("D" & fl2.Range("D65536").End(xlUp).Row + 1).Value = _
     fl.Range("B5").Value
     fl2.Range("E" & fl2.Range("E65536").End(xlUp).Row + 1).Value = _
     fl.Range("F7").Value
     fl2.Range("F" & fl2.Range("F65536").End(xlUp).Row + 1).Value = _
     fl.Range("F8").Value
     fl2.Range("G" & fl2.Range("G65536").End(xlUp).Row + 1).Value = _
     fl.Range("F9").Value
     fl2.Range("H" & fl2.Range("H65536").End(xlUp).Row + 1).Value = _
     fl.Range("B15").Value
     fl2.Range("I" & fl2.Range("I65536").End(xlUp).Row + 1).Value = _
     fl.Range("E14").Value
      fl2.Range("J" & fl2.Range("J65536").End(xlUp).Row + 1).Value = _
     fl.Range("E19").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

Essaye ça :

Code:

1
2
 fl2.Range("A3:A" & fl2.Range("A65536").End(xlUp).Row + 1).Value = _
fl.Range("B1").Value

non ca me convient pas du tout
car ca me fout la paigaille dans mon programme dans le sens que maintenant le programme me recopie a chaque fois le meme truc sans pour autant commencer a la ligne 3

merci tout de meme de ton aide

Bonjour Thomas,
Depuis le temps je pense que tu es largement capable de resoudre ce genre de petits problemes...
Code:

1 2 3 4 5 6 Dim Lignecopie as long If fl2.Range("A65536").End(xlUp).Row > 2 then Lignecopie = fl2.Range("A65536").End(xlUp).Row +1 else Lignecopie = 3 end if

non desoler tonton
mais ca marche pas

ca marque

objet requis

Tu as mis ca apres avoir declare fl2 ?

J'ai essayer mais rien ne se passe

mais ne vous prennez pas la tete au pire je ferais un décalage ce n'est pas un truc vitale

Merci de ton aide tonton ;)