Discussion :

[Thomas69]

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

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

Par

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 :

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

[illight]

Essaye ça :

Code :

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

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

[Thomas69]

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

[tonton fred]

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

Code :

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

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

[Thomas69]

non desoler tonton
mais ca marche pas

ca marque

objet requis

[tonton fred]

Tu as mis ca apres avoir declare fl2 ?