Discussion :

[Senka-75]

Bonjour à tous ,

J'aurais besoin de vos lumières pour une macro. Pour commencer, je tiens à dire que je suis parfaitement néophyte en ce qui concerne les Macro VBA mais que je suis parfaitement disposé à apprendre et à y consacrer du temps.

Malheureusement, je pense que ma problématique est un peu trop compliqué pour un débutant comme moi et c'est pour ça que je requiert aujourd'hui votre aide.

J'ai un fichier qui se présente comme suit (fichier joint également ci-dessous) :

Test.xlsm

client	commerciaux	score
Dubois	Jean	probable
Dutronc	Jacques	imminent
Duterque	Paul	probable
Duval	Paul	probable
Dupont	Jacques	imminent

J'aimerais pouvoir sélectionner toutes les lignes qui concerne chacun des commerciaux (Jean, Jacques et Paul) et les copier dans un nouveau fichier, donc, me retrouver avec 3 nouveaux fichiers portant les valeur suivantes:

* Fichier 1 (nom du fichier = Jean.xlsx) :

client	commerciaux	score
Dubois	Jean	probable

* Fichier 2 (nom du fichier = Jacques.xlsx) :

client	commerciaux	score
Dutronc	Jacques	imminent
Dupont	Jacques	imminent

* Fichier 3 (nom du fichier = Paul.xlsx) :

client	commerciaux	score
Duterque	Paul	probable
Duval	Paul	probable

Je tiens à préciser qu'il n'y a pas que 3 commerciaux, il y en a des centaines, et par conséquent je dois générer des centaines de fichiers différents (d'où le besoin d'une macro). J'ai également à ma disposition une liste de l'ensemble des commerciaux, mais pour l'exemple 3 suffiront (je pense).

Voilà, je ne sais absolument pas par ou commencer et je ne vous demande par forcément une solution "clé en main" (bien que vu l'urgence de ma situation celà m'arrangerait) mais surtout de l'aide pour savoir par quel bout prendre mon soucis et progresser.

Merci d'avance pour l'aide que vous m'apporterez !

Romain

[Philippe Tulliez]

Bonjour,
Ton problème est très simple.
Tu as une liste de données que tu veux splitter en fonction de données se trouvant dans une colonne. La solution avec la méthode AdvancedFilter (filtre avancé d'excel)
Solution que j'ai déjà proposée dans cette discussion. Il y a le code de la procédure plus un classeur à télécharger pour exemple.

[Senka-75]

Bonjour,

Effectivement, c'est à peu près ça, je vais regarder ça de plus près histoire de comprendre le code etc etc.

Merci beaucoup même si je pense que j'aurais plusieurs questions par la suite

Est-il possible, au lieu de créer un seul fichier avec plusieurs feuilles, plusieurs fichier avec une seule feuille?

L'idée est ensuite de pouvoir envoyer chaque fichier à chaque commerciaux de manière unique, le tout en automatique?

Je ne sais pas si je suis très clair.... Peut-être est-ce déjà possible avec les feuilles?

[Philippe Tulliez]

Bonjour,

Est-il possible, au lieu de créer un seul fichier avec plusieurs feuilles, plusieurs fichier avec une seule feuille?

Evidemment que c'est possible. Tu peux exporter sur une feuille du même classeur, d'un classeur différent, etc.

[Senka-75]

Re-bonjour à tous ,

Me re-voilà en ayant bien avancé et en ayant en partie résolu mon problème.

La macro fonctionne impec et elle split bien mon onglets principale en différents onglets (selon 1 critère) puis enregistre ces onglets dans un fichier unique par onglet.

A présent, et là je pense que ça dépasse mes compétences, je cherche un bout de code me permettant d'envoyer en automatique un mail pour chaque fichier unique générer.

Ci-joint le fichier en question avec les macros opérationnelles. Si une âme charitable pouvait compléter le bout de code qui me manque pour que je puisse le comprendre et l'assimiler, ça m'aiderait beaucoup.

Merci d'avance vous êtes super ici !

ExportExcel.xlsm

PS: Je tiens à préciser que je ne suis pas l'auteur du code dans les macros en question de ce fichier mais ce qui est sur c'est que je le comprends et que je suis à présent parfaitement apte à le reproduire Un grand merci donc aux anonymes qui ont contribué.

[patricktoulon]

je te propose une solution pour ta création des sheets avec données filtrées qui sera somme toute un peu plus rapide normalement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub test()
    Dim dico, i%
    Application.DisplayAlerts = False
    For i = Sheets.Count To 2 Step -1: Sheets(i).Delete: Next
    Set dico = CreateObject("Scripting.Dictionary")
    With Sheets(1)
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If Not dico.exists(Trim(.Cells(i, 1).Value)) Then
                Sheets.Add After:=Sheets(Sheets.Count)
                Sheets(Sheets.Count).Name = .Cells(i, 1)
                Debug.Print .Cells(i, 1) & "rr"
                With .Range("$A$1:$D$24")    ' plage a adapter
                    .AutoFilter Field:=1, Criteria1:=.Cells(i, 1).Text  'mot recherché a adapter
                    .Parent.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy Sheets(.Cells(i, 1).Text).Cells(1, 1)
                    .AutoFilter
                End With
                dico(Trim(.Cells(i, 1))) = .Cells(i, 1)
            End If
            ' End If
        Next
    End With
End Sub

pour les mails il y a divers solution dans le forum et contrib et faq