Nommer un fichier avec une cellule calculée

Bonjour,

J'ai un fichier avec plusieurs onglets dont un onglet où il y a un tableau qui va chercher des infos dans les autres onglets.

Dans ce tableau, il est indiqué des virements à effectuer d'un tiers vers un autre.

Toutes les combinaisons possibles sont posées mais en fonction des mois, il n'y a pas toujours des virements à faire entre tous les tiers.

Ce tableau (dans le fichier exemple ci-joint, il est sur l'onglet "Tableau à exporter"), je souhaite via une macro :

1/ Filtrer sur la colonne "Montants à décaisser" les montants différents de zéro

2/ Copier le résultat du filtre

3/ Coller en valeur dans un nouveau classeur

4/ Nommer ce nouveau classeur avec le nom obtenu par une formule dans la cellule B1 de l'onglet "A" du fichier joint pour exemple

5/ Enregistrer ce classeur ainsi nommé dans un répertoire sur mon disque C

Je ne sais pas écrire les macros, mais via l'enregistreur, j'ai réussi à faire les étapes 1,2,3,5 mais pour la 4, je pense qu'il faut passer par un code.

Pourriez-vous me donner le code qui réponde aux 5 étapes

Merci d'avance pour votre aide

Bonjour toutes et tous

un petit début de réponse si ce n'est déjà fait pour la 4

Private Sub CommandButton1_Click()
With Sheets("A")
On Error GoTo plouf
ActiveWorkbook.SaveAs Filename:=[B1].Value & ".xlsm"
plouf: Exit Sub
End With
End Sub

Bonjour,

Le fichier test que tu as posté ... ne contient aucune macro ...

Bonjour,

Oui, en fait c'est un fichier exemple qui résume ma demande, ça n'est pas mon vrai fichier de travail.

Je n'ai pas mis la macro car je suis passé par l'enregistreur, et je voulais la remplacer complètement par un code que vous m'auriez communiqué.

La voici si ça peut vous aider :

Merci

Sub Filtrer_exporter()

'

' Filtrer_exporter Macro

'

'

Sheets("Virements").Select

Selection.AutoFilter

ActiveSheet.Range("$A$1:$E$181").AutoFilter Field:=5, Criteria1:="<>0", _

Operator:=xlAnd

Selection.CurrentRegion.Select

Selection.Copy

Workbooks.Add

ActiveSheet.Paste

Cells.Select

Cells.EntireColumn.AutoFit

Range("A1").Select

Application.CutCopyMode = False

ChDir "C:\commun\Compta Générale\2019\Décaissement pour compte"

ActiveWorkbook.SaveAs Filename:= _

"C:\commun\Compta Générale\2019\Décaissement pour compte\décaissement pour compte.xlsx", _

FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

End Sub