Re : Macro pour découper un fichier excel
Bonjour et merci beaucoup pour votre aide.
Le code sur le fichier test fonctionne très bien!!
Par contre, lorsque j'essaie de l'appliquer à mon fichier, celui ci bloque à copy.
Option Explicit
Sub Traitement()
'myDearFriend! -
mon Univers Excel... : myDearFriend! Excel Pages
Dim CollMag As New Collection
Dim Plage As Range
Dim L As Long, L2 As Long, Lmax As Long
Application.ScreenUpdating = False
With Sheets("Feuil1") 'A adapter !
Lmax = .Cells(Application.Rows.Count, 1).End(xlUp).Row
'Création de la liste des fournisseurs (sans doublons)
On Error Resume Next
For L = 2 To Lmax
CollMag.Add .Cells(L, 2).Text, .Cells(L, 2).Text
Next L
On Error GoTo 0
'Création des classeurs
For L = 1 To CollMag.Count
'Copie de l'onglet
.Copy
'Epurage des données par fournisseur
With ActiveSheet
Set Plage = .Rows(Application.Rows.Count)
For L2 = 2 To Lmax
If .Cells(L2, 2).Text <> CollMag(L) Then
Set Plage = Union(Plage, .Rows(L2))
End If
Next L2
Plage.Delete
End With
'Sauvegarde classeur "fournisseur X"
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\Mag " & CollMag(L) & ".xls"
.Close
End With
Next L
End With
Application.ScreenUpdating = True
MsgBox CollMag.Count & " classeurs créés"
End Sub
Savez vous quel peut-etre le problème?
Merci d'avance,
Marycool