aureliens Oupsss | Salut a tous, j'ai un petit soucis avec une macro au taff,
Code :
- Sub Macro1()
- Sheets("base" ).Select
- Range("A2:H4000" ).Select
- Selection.ClearContents
- Range("A2" ).Select
-
-
- ChDir "Le repertoire"
- Workbooks.OpenText Filename:="Le chemin^^", Origin:= _
- xlWindows, StartRow:=1, DataType:=xlFixedWidth, _
- FieldInfo:=Array(Array(0, 2), Array(2, 2), Array(6, 9), _
- Array(9, 2), Array(15, 9), Array(16, 9), Array(22, 2), Array(23, 2) _
- , Array(24, 2), Array(54, 1), Array(67, 1), Array(80, 9), Array(86, _
- 1))
- 'RéperChanger "A:\"
- Range("A1:H4000" ).Select
- Selection.Copy
- Windows("recup05test.xls" ).Activate
- Range("A2" ).Select
- ActiveSheet.Paste
- Range("A1:I4000" ).Select
- Range("A1:I4000" ).AdvancedFilter Action:=xlFilterCopy, _
- CriteriaRange:=Range("K1:S4" ), CopyToRange:=Range("M10:P10" ), _
- Unique:=False
- Range("A1" ).Select
- ActiveWindow.LargeScroll ToRight:=1
- Range("J1" ).Select
- Application.Goto Reference:="edition"
- Selection.Copy
- Sheets("edit" ).Select
- Range("B8" ).Select
- ActiveSheet.Paste
- Application.CutCopyMode = False
- 'ActiveWindow.SelectedSheets.PrintOut Copies:=1
- Sheets("edit" ).Select
-
-
- End Sub
|
Quand ma macro est executé ,cela copie une partie du tableau dans mon premier onglet base qui est trier comme il faut (celui la est bon), puis cela recopie le tableau dans un autre onglet "edit", mais cela ne copie que les 300 premieres lignes, et je n'arrive pas a voir le probleme (pour moi cela se situe dans les lignes 23 a 36)
Merci de votre aide.
Message édité par aureliens le 23-04-2008 à 14:25:45
|
