Via une macro, exporter des données -repose sur un critere

Merci pour ton retour.Juste un point sur "ville".Je souhaite obtenir un classeur qui se crée pour chaque ville distincte.Au sein de nantes par exemple, si mon fichier de base contenanit 4 lignes, alors ces 4 lignes doivent etre dedans.Et aisni de suite pour chaque ville .tu me suis? je t 'envoi un exemple de fichier qui se crée au regard du fichier source 2013-001 que j ai transmis plus tot.merci pour ton analyse

https://www.cjoint.com/c/CKxrlfogROg

Bon, tu va encore ajouter d'autre conditions ?? j'aime pas beaucoup de faire et refaire parce qu'ont ajoute des trucs..:-(
Bref, ceci dit,
Rectifie les titres de ton classeur principal.
Le nom des villes se suive toujours ?
Des villes pourraient êtres ajoutées ?
Tâche de penser à tout et tu dis.

salut lermite

desolé, je pensai avoir abordé cet eclatement de fichier par ville.
tu comprendras mon besoin, a partir du fichier source (https://www.cjoint.com/c/CKxmvWybY3J
) - creer d'autres fichier excel. chacun d'entre eux representant les lignes d'une meme ville
exemple cible:https://www.cjoint.com/c/CKxrlfogROg

Pour les villes, se sera toujours les memes (si d'autres je rajouterai dans le code).toujours en colonne 2
Je mettrai dans macro, un tri croissant par ville

Le fichier source aura toujours en ligne 1-les entetes de colonnes (il faudrait pouvoir les rapattrier dans chaque fichier excel crée par la macro)

Selon fichier source, il peut y avoir moins ou plus de colonne
Selon fichier source;il peut y avoir moins ou plus de ligne par ville
Les villes toujours en colonne 2 dans fichier source

J espere avoir ete plus precis, ton aide me sera precieuse

Merci à toi

Mea culpa Ville toujours en colonne 1 comme dans fichier de base transmis

Lermite, ca fonctionne , un grand merci pour cette disponibilité et cette réalisation.
Il me reste des elemnts a perfectionner mais l'essentiel est present
Je vais essayer de creer
1)un Tri sur ville au demarrage de la macro
2)rendre cette macro accessible à plusieurs utilisateurs,
3) faire sauter la fenetre de "compatibilité" qui s'ouvre a chaque création de fichier (par ville)
Il faut cliquer sur Oui, c est chiant, j aimerai qu'il disparaisse

Encore merci,
@+

Sub ll()
'
' ll Macro
'
  'Classeur de base se nomme 2013-001
'
    Range("A1").Select
    
  
    'prendre les lignes et colonnes actives du classeur de base
    
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("A2:A18") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        
    'Tri sur les villes du classeur de base(colonne A)
    
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A1:G18")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    'la premiere ville suite au tri c est Brest, elle apparait sur la ligne 2 et 3- ligne 1 = entete de colonne'
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlUp)).Select
    Range("A1:G3").Select
    
    'Copier coller des lignes avec Brest (dans leur totalité) vers un nouveau fichier excel
    
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ChDir "C:\Users\m02410\Desktop" 'lieu d'enregistrement, sans interet
    'Le best serait que le nom du fichier excel soit crée en auto sur le modele Ville+NomClasseurdebase
    ActiveWorkbook.SaveAs Filename:="C:\Users\m02410\Desktop\Brest2013-001.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("Classeur1").Activate
    Windows("2013-001.xls").Activate
    Cells.Select
    
    'Comme je ne sais pas gerer le systeme de boucle, je fais tri sur ville, je prends la suivante, ici Lyon => A ameliorer)
    'Le gros sujet c est celui là, il faudrait une boucle qui balaye ville - un tant que ? et qui exporte ...
    
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$G$18").AutoFilter Field:=1, Criteria1:="Lyon"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range("A1:G6").Select
       'Copier coller des lignes avec Lyon (dans leur totalité) vers un nouveau fichier excel (sur meme principe que Brest)-Je reproduis cela pour chaque ville du classeur de base
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\m02410\Desktop\Lyon2013-001.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("2013-001.xls").Activate
    ActiveSheet.Range("$A$1:$G$18").AutoFilter Field:=1, Criteria1:="Nantes"
     'Copier coller des lignes avec Nantes (dans leur totalité) vers un nouveau fichier excel (sur meme principe que Brest)
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\m02410\Desktop\Nantes2013-001.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("2013-001.xls").Activate
    ActiveSheet.Range("$A$1:$G$18").AutoFilter Field:=1, Criteria1:="Nimes"
    'Copier coller des lignes avec Nimes (dans leur totalité) vers un nouveau fichier excel (sur meme principe que Brest)
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\m02410\Desktop\Nimes2013-001.xls", _
        FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    Windows("2013-001.xls").Activate
    ActiveSheet.Range("$A$1:$G$18").AutoFilter Field:=1
    Range("A1").Select
    ActiveWorkbook.Save
End Sub

faudrait que ca marche sur un classeur 2013-002 etc
Voir la remarque dans le code avec le nom du classeur.
A+