Macro pour découper un fichier excel

M

marycool

XLDnaute Nouveau
Bonjour,

Vous trouverez ci-joint un fichier Excel qui comporte 7 colonnes, dont une qui contient le nom des magasins. Je voudrais créer un fichier par magasin en conservant l'en-tete sur chaque fichier. J'ai un listing complet avec tous les tarifs de cette année et j'ai créee une colonne pour que le magasin puisse indiquer son nouveau tarif mais il faut que je découpe ce listing en créant un nouveau classeur pour chaque fournisseur afin de pouvoir l'envoyer par mail.

Le fichier original contient plus de 3000 lignes (qui correspondent à 3000 produits) et 200 magasins différents.

Une macro peut elle découper ce fichier et créer pour chaque fournisseur un nouveau classeur?

Merci d'avance pour votre retour!!

Mary

PS: je n'arrive pas à joindre le fichier à ce mail...
 
Trier par date Trier par votes
M

marycool

XLDnaute Nouveau
Re : Macro pour découper un fichier excel

Mon message n'est peu-être pas clair ou est ce tout simplement impossible à réaliser??
De nombreux post ont eu des réponses depuis l'heure ou j'ai deposé le mien, est ce normal?
Merci pour vos commentaires!!
Marycool
 
Vote positif 0 Vote négatif
myDearFriend!

myDearFriend!

XLDnaute Barbatruc
Re : Macro pour découper un fichier excel

Bonsoir marycool,

En pièce jointe peut-être une façon de faire.

J'ai utilisé la procédure VBA suivante :
Code: 
[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]

[COLOR=NAVY]Sub[/COLOR] Traitement()
[COLOR=GREEN]'myDearFriend! - www.mdf-xlpages.com[/COLOR]
[COLOR=NAVY]Dim[/COLOR] CollMag [COLOR=NAVY]As New[/COLOR] Collection
[COLOR=NAVY]Dim[/COLOR] Plage [COLOR=NAVY]As[/COLOR] Range
[COLOR=NAVY]Dim[/COLOR] L [COLOR=NAVY]As Long[/COLOR], L2 [COLOR=NAVY]As Long[/COLOR], Lmax [COLOR=NAVY]As Long[/COLOR]
    Application.ScreenUpdating = [COLOR=NAVY]False
    With[/COLOR] Sheets("Feuil1")       [COLOR=GREEN]'A adapter ![/COLOR]
        Lmax = .Cells(Application.Rows.Count, 1).[COLOR=NAVY]End[/COLOR](xlUp).Row
        [COLOR=GREEN]'Création de la liste des magasins (sans doublons)[/COLOR]
        [COLOR=NAVY]On Error Resume Next
        For[/COLOR] L = 2 [COLOR=NAVY]To[/COLOR] Lmax
            CollMag.Add .Cells(L, 2).Text, .Cells(L, 2).Text
        [COLOR=NAVY]Next[/COLOR] L
        [COLOR=NAVY]On Error GoTo[/COLOR] 0
        [COLOR=GREEN]'Création des classeurs[/COLOR]
        [COLOR=NAVY]For[/COLOR] L = 1 [COLOR=NAVY]To[/COLOR] CollMag.Count
            [COLOR=GREEN]'Copie de l'onglet[/COLOR]
            .Copy
            [COLOR=GREEN]'Epurage des données par magasin[/COLOR]
            [COLOR=NAVY]With[/COLOR] ActiveSheet
                [COLOR=NAVY]Set[/COLOR] Plage = .Rows(Application.Rows.Count)
                [COLOR=NAVY]For[/COLOR] L2 = 2 [COLOR=NAVY]To[/COLOR] Lmax
                    [COLOR=NAVY]If[/COLOR] .Cells(L2, 2).Text <> CollMag(L) [COLOR=NAVY]Then
                        Set[/COLOR] Plage = Union(Plage, .Rows(L2))
                    [COLOR=NAVY]End If
                Next[/COLOR] L2
                Plage.Delete
            [COLOR=NAVY]End With[/COLOR]
            [COLOR=GREEN]'Sauvegarde classeur "magasin X"[/COLOR]
            [COLOR=NAVY]With[/COLOR] ActiveWorkbook
                .SaveAs ThisWorkbook.Path & "\Mag " & CollMag(L) & ".xls"
                .[COLOR=NAVY]Close
            End With
        Next[/COLOR] L
    [COLOR=NAVY]End With[/COLOR]
    Application.ScreenUpdating = [COLOR=NAVY]True[/COLOR]
    MsgBox CollMag.Count & " classeurs créés"
[COLOR=NAVY]End Sub[/COLOR]
Pour lancer la macro : faire ALT+F8 et exécuter la macro "Traitement".
Les classeurs sont créés sur le disque dur sous le même chemin que le classeur "Maître" (celui qui contient les données et la macro).

Bonne continuation pour la suite.

Cordialement,
 

Pièces jointes

  • PourMarycool.zip
    13.8 KB · Affichages: 744
Vote positif 0 Vote négatif
M

marycool

XLDnaute Nouveau
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
 
Vote positif 0 Vote négatif
M

marycool

XLDnaute Nouveau
Re : Macro pour découper un fichier excel

MERCI my dear friend!!!

Après quelques manip, ça marche!!!

Mon seul soucis est que la ligne 2 apparait dans chaque classeur, j'ai modifié comme suit, car en fait mon magasin est en colonne 3 contrairement au test où le magasin était en colonne 2 . J'ai donc mis des 3 à la place de tes 2 puisque la colonne à prendre en compte est la colonne 3 mais il y a surement un nombre que je ne dois pas changer...

Option Explicit

Sub Traitement()
'myDearFriend! - mon Univers Excel... : myDearFriend! Excel Pages
Dim CollMag As New Collection
Dim Plage As Range
Dim L As Long, L3 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 = 3 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 L3 = 3 To Lmax
If .Cells(L3, 3).Text <> CollMag(L) Then
Set Plage = Union(Plage, .Rows(L3))
End If
Next L3
Plage.Delete
End With
'Sauvegarde classeur "magasin X"
With ActiveWorkbook
.SaveAs ThisWorkbook.Path & "\Mag " & CollMag(L) & ".xls"
.Close
End With
Next L
End With

Mais je devrais ptet arriver à trouver!

Dans tous les cas, ça va me faire gagner un temps fou!

Marycool
 
Vote positif 0 Vote négatif
JCGL

JCGL

XLDnaute Barbatruc
Re : Macro pour découper un fichier excel

Bonjour à tous,

Pourrais-tu essayer avec :

Code: 
Option Explicit
 
Sub Traitement()
'myDearFriend! - [URL="http://www.mdf-xlpages.com/"]mon Univers Excel... : myDearFriend! Excel Pages[/URL]
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

Et que mDF me pardonne de mon intrusion ;)

A+
 
Vote positif 0 Vote négatif
M

marycool

XLDnaute Nouveau
Re : Macro pour découper un fichier excel

Bonjour,

Une dernière petite question pour que ce soit parfait à savoir est-il possible de rajouter une protection de feuille par mot de passe de chaque classeur ouvert (afin que l'on puisse compléter la colonne tarif achat 2008 mais sans pouvoir modifier les autres colonnes). Car en fait on ne peut pas découper une feuille protégé donc il faudrait que ça soit ajouté par la suite à chaque feuille.

Merci d'avance,

Marycool
 
Vote positif 0 Vote négatif
JCGL

JCGL

XLDnaute Barbatruc
Re : Macro pour découper un fichier excel

Bonjour à tous,

Peux-tu redéposer le fichier avec les magasins dans la bonne colonne ?

Ensuite un :
Code: 
.UnProtect
et un :
Code: 
.Protect
judicieusement placés devraient te satisfaire

A+ à tous
 
Vote positif 0 Vote négatif
N

nickos2406

XLDnaute Junior
Re : Macro pour découper un fichier excel

Bonjour,

Je rebondis sur cette discussion, car j'ai la même problématique.. J'ai appliqué la macro en l'adaptant à mon fichier joint, mais je n'arrive pas à la faire fonctionner... J'ai bien un fichier créé par zone, mais le fichier est vide :(...

Par ailleurs, outre la résolution de ce problème sur lequel je bute, je souhaite étendre la macro pour qu'elle puisse découper le fichier sur tous les onglets présents...(nombre d'onglets qui varie...)... et filtre sur la même zone, comme les onglets sont identiques...

Pourriez vous m'aider dans ma quête? et déjà savoir pourquoi il me retourne un fichier créé vide...?

Merci d'avance
Nickos
 

Pièces jointes

  • TEST.xlsm
    87.8 KB · Affichages: 110
  • TEST.xlsm
    87.8 KB · Affichages: 118
  • TEST.xlsm
    87.8 KB · Affichages: 136
Dernière édition:
Vote positif 0 Vote négatif
Modeste

Modeste

XLDnaute Barbatruc
Re : Macro pour découper un fichier excel

Bonjour nickos2406,

Le problème des anciennes discussions qu'on exhume c'est que parfois on ne voit pas que quelqu'un y ajoute une question récente :(

Pour les fichiers créés, en fait (et en imaginant que j'aie bien compris!?), il reste une correction à apporter en ligne 31: écris If .Cells(L2, 4).Text <> CollMag(L) Then au lieu de If .Cells(L2, 2).Text <> CollMag(L) Then

Pour le reste, il faut que tu expliques un peu plus clairement ce qui figure dans tes différents onglets: dans ta pièce jointe, le dernier onglet serait une "compilation" des 2 premiers ... ça n'aurait guère de sens de "splitter" ensuite les différents onglets dans autant de fichiers distinct, puisque tu auras des données en double :confused:
 
Vote positif 0 Vote négatif
N

nickos2406

XLDnaute Junior
Re : Macro pour découper un fichier excel

Bonjour,

Merci beaucoup déjà pour ce coup de pouce...

pour le reste, en fait ce que je cherche à faire c'est de filtrer la région sur la feuille 1, puis la coller dans un nouveau fichier... ensuite, c'est de filtrer sur la même région dans la feuille 2 et le coller dans un nouvel onglet de ce nouveau fichier créé, etc... pour l'ensemble des onglets présents dans le fichier d'origine...
Ce qui facilite la "tâche", on va dire, c'est que tous les onglets ont les mêmes colonnes, donc, le filtre s'applique sur la même colonne. Pas contre le nombre d'onglets varie d'un mois à l'autre, et je n'ai pas systématiquement 3 onglets. Je peux me retrouver avec 2 ou plus...
Bref, c'est là un gros travail, sur lequel j'ai commencé à bosser... Et si vous avez des pistes, je suis grandement preneur et reconnaissant.

Pour l'onglet compil, c'est en fait un onglet comme les autres, la logique reste la même, il faut filtrer copier-coller dans le nouveau fichier...

Merci d'avance, je continue ma recherche en parallèle, mais la tache s'annonce ardue :)
Nickos
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
Microsoft 365 Macro ou autre pour préparer fichier publipostage
Réponses
5
Affichages
332
mozza
M
D
  • Question
XL 2016 Utiliser un équivalent de INDIRECT sur des classeurs fermés
Réponses
8
Affichages
279
job75
job75
M
  • Question
Power Query Convertir un fichier Contacts Gmail et fichier Excel
Réponses
13
Affichages
401
nat54
nat54
L
  • Question
Microsoft 365 Changer le nom d'un fichier dans un lien par un autre lien
Réponses
9
Affichages
394
Phil69970
Phil69970
P
  • Résolu(e)
XL 2016 fichier pour kpi
2
Réponses
16
Affichages
557
psgm76
P
N
  • Résolu(e)
XL 2021 Exporter un graphique dans Outlook
Réponses
3
Affichages
187
NLSCt
N
L
  • Question
Microsoft 365 vba Outlook traiter un fichier excel lors de sa reception
Réponses
0
Affichages
282
lesoldat9
L
S
  • Question
Microsoft 365 Afficher dans un tableau les noms des feuilles d'un fichier excel ainsi que le nombre de lignes renseignées pour chacune d'elle.
Réponses
2
Affichages
364
chris
chris
L
  • Résolu(e)
XL 2016 Besoin de compléter un code VBA
Réponses
13
Affichages
592
Oneida
Oneida
Q
  • Question
Microsoft 365 Créer un formulaire pour duplication d'onglet avec tableau
Réponses
6
Affichages
209
job75
job75

Membres actuellement en ligne

17 membres et 329 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 309
Messages
2 087 106
Membres
103 469
dernier inscrit
Thibz