Bonjour,
J'utilisais une macro pour découper un fichier excel sur excel 2003, qui ne fonctionne plus sur excel 2007 (installé récemment sur mon pc), j'utilisais la macro suivante:
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 magasins (sans doublons)
On Error Resume Next
For L = 2 To Lmax
CollMag.Add .Cells(L, 3).Text, .Cells(L, 3).Text
Next L
On Error GoTo 0
'Création des classeurs
For L = 2 To CollMag.Count
'Copie de l'onglet
.Copy
'Epurage des données par magasin
With ActiveSheet
Set Plage = .Rows(Application.Rows.Count)
For L2 = 2 To Lmax
If .Cells(L2, 3).Text <> CollMag(L) Then
Set Plage = Union(Plage, .Rows(L2))
End If
Next L2
Plage.Delete
End With
'Sauvegarde classeur "magasin 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
Cette macro permettait de découper un fichier excel comprenant tous les prix dans tous mes magasins (colonne "four" dans le fichier joint)et ça me créait automatiquement un fichier excel par magasin (un fichier nommé AAA qui regroupait tous les produits et essentiellement les produits de AAA, idem pour BBB, idem pour CCC...), c'est un fichier de 4000 lignes donc c'était bien pratique!!!!
Merci d'avance de votre aide,
Cordialement,
Marycool