Creation nouveau classeur apres filtrage

[NICOALBERT]

Bonsoir le forum,

Je recherche à créer un nouveau classeur après avoir effectuer un trie par filtre du N° course,jour,mois(sachant que dans l'exemple je n'ai mis que 4 chevaux par course mais sa va jusqu'a 20) , et qu'il s'enregistre automatiquement sous le nom se trouvant dans la cellule Y en cliquant sur un bouton .

Je vous joint un fichier pour la base (2004R1) et deux fichiers exemple de ce que sa doit donner après enregistrement.

Cordialement.

NICOALBERT

 

[James007]

Re : Creation nouveau classeur apres filtrage

Bonjour,

As-tu déjà à ta disposition la macro qui filtre dans une nouvelle feuille ou un nouveau dossier ... et celle qui sauvegarde le nouveau fichier ??? ...

A +
🙂

 

[NICOALBERT]

Re : Creation nouveau classeur apres filtrage

Bonjour,

Non en faite le filtre c'est moi qui le fait grace au filtre , ce que je voudrait en faite c'est lorsque je clique sur le bouton sa me copie les colonnes A à W , que sa ouvre un nouveau classeur , le coller dans le nouveau classeur et l'enregistrer sous le nom de de la valeur qui se trouve dans la colone Y.

cordialement.

NICOALBERT

 

[NICOALBERT]

Re : Creation nouveau classeur apres filtrage

Bonsoir,

Je viens de modifier mon classeur 2004R1 . Tout le début j'y arrive mais la ou je coince c'est pour l'enregistrement du classeur puisque je voudrait l'enregistrer avec la valeur de la cellule en Y.

Cordialement.

 

[kjin]

Re : Creation nouveau classeur apres filtrage

Bonsoir

Sub d()
If Not ActiveSheet.AutoFilterMode Then Exit Sub
Set rng = ActiveSheet.AutoFilter.Range
Sheets.Add
rng.Copy ActiveSheet.Range("A1")
With ActiveSheet
    .Copy
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
End With
' l'enregistrer sous quelle valeur de la colonne Y ???
End Sub

Edit : quelle valeur de la colonne Y !?

A+
kjin

 

[NICOALBERT]

Re : Creation nouveau classeur apres filtrage

Bonsoir,

un grand merci à James007 et à kjin pour votre aide.

en fouillant un peu partout j'ai pu réaliser ce que je chercher a faire c'est peut être pas le meilleur mais sa marche.

Je vous joint le fichier si sa peut aider quelqu'un.

Cordialement.