ajor
Habitué
Bonjour,
J'ai créé une macro qui, à partir d'un fichier excel (qui pèse 2,3Mo), me créé deux nouveaux fichier avec un certain nombre de manips effectuées (filtres, tris, comparaisons, etc)
Mes deux fichiers finaux font 3,8Mo et 270 Mo
Or ils ont autant d'informations, donc il y a clairement une erreur sur le deuxième. Il est anormalement volumineux.
Savez-vous d'où ça peut venir?
J'ai mis des tests à l'intérieur de mon code, afin de voir à quel endroit le fichier augmente bizarrement de taille, et ça se passe dans ce code :
Merci beaucoup si quelqu'un peut jeter un coup d'oeil...
J'ai créé une macro qui, à partir d'un fichier excel (qui pèse 2,3Mo), me créé deux nouveaux fichier avec un certain nombre de manips effectuées (filtres, tris, comparaisons, etc)
Mes deux fichiers finaux font 3,8Mo et 270 Mo
Or ils ont autant d'informations, donc il y a clairement une erreur sur le deuxième. Il est anormalement volumineux.
Savez-vous d'où ça peut venir?
J'ai mis des tests à l'intérieur de mon code, afin de voir à quel endroit le fichier augmente bizarrement de taille, et ça se passe dans ce code :
Code:
Sheets("GENERAL").Select
Selection.AutoFilter
Columns("D:D").Select
Selection.AutoFilter
ActiveSheet.Range("$D:$D").AutoFilter Field:=1, Criteria1:="Bordeaux"
Cells.Select
Selection.Copy
Sheets("BORDEAUX").Select
Cells.Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Columns("A:A").Select
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("BORDEAUX").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BORDEAUX").Sort.SortFields.Add Key:=Range( _
"A2:A2160"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("BORDEAUX").Sort
.SetRange Range("A1:R2160")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Merci beaucoup si quelqu'un peut jeter un coup d'oeil...