Enregistrer un fichier avec des dates modulables

Très chers valeureux membres bonjouuuurnooo!

Je vous sollicite pour deux difficultés que j'ai ce matin SVP.

- Premièrement, je voudrais pouvoir concatener un texte avec une date au format (jj/mm/aaaa) mais ma formule ci-dessous ne m'affiche que le format (j/m/aaaa)

=CONCATENER("Fichier du ";JOUR(B20);MOIS(B20);ANNEE(B20))

- Deuxièmement, j'ai fait une macro qui enregistre le fichier (fichier joint) dans un de mes dossiers en y attribuant le nom du fichier qui est concatené avec la date,

mais comme il s'agit d'une macro, j'essaye de modifier le code pour ne pas que le même nom apparaisse sur tous les fichiers qui seront enregistrés.

Pour ce faire, je suis allé dans le gestionnaire de noms, j'ai attribué un nom à la cellule qui me sert de référence pour le nom (ici la cellule "B16") mais je n'arrive pas à l'adapter à mon code.

Voici ce que donne le code après enregistrement:

Sub Enregistrer_pays_test()
'
' Enregistrer_pays_test Macro
'
Sheets("Calculs ratios").Select

Range("B16").Select

Selection.Copy

Application.CutCopyMode = False

ChDir "C:\Users\Excellerateur\Desktop\Perso"

Range("B16").Select

Selection.Copy

Application.CutCopyMode = False

ActiveWorkbook.SaveAs Filename:= _

"C:\Users\Excellerateur\Desktop\Perso\Fichier du 1562021.xlsm", FileFormat:= _

xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Range("D16").Select

End Sub

Dans gestionnaire de nom j'ai donné "NomDuFichier" comme nom à la cellule "B16"

Quand je remplace le nom dans le code, ça me met plutôt le nom enregistré dans le gestionnaire de nom au lieu du nom du fichier défini dans la cellule "B16".

Je sais que trop de papotage embrouille...

Retrouvez le fichier en copie.

j'espère tout de même que vous avez compris ce que j'essaye de dire en français excelleux

Merci d'avance pour votre attention.

Excellement votre,

@Excellerateur

Bonjour,

Pour votre premier problème :

=CONCATENER("Fichier du ";TEXTE(B20;"jj/mm/aaaa"))

Pour le second, sans fichier je dirais, si vous avez en B16 "Fichier du 1562021" :

Sub Enregistrer_pays_test()
ActiveWorkbook.SaveAs Filename:= "C:\Users\Excellerateur\Desktop\Perso\" & [B16], FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Cdlt,

Bonjour @ Ergotamine

Désolé je croyais avoir transmis le fichier.

Je vous le dépose là et je pars regarder votre solution

Merci encore

Bonjour,

C'est OK ça m'a l'air de fonctionner. Juste la formule en B16 à corriger :

=CONCATENER("Fichier du ";TEXTE(B20;"jjmmaaaa"))

Cdlt,

Top vous êtes un vrai chef!

Merci encore

Salut chef @ Ergotamine

J'ai une petite intérrogation supplémentaire.

En fait je ne sais pas comment spécifier de quel onglet il s'agit. Toi tu t'es juste contenté de mettre la cellule dans ta formule

"C:\Users\Excellerateur\Desktop\Perso\" & [B16], 

Je me demande comment ça ferait la recherche si il y a plusieurs onglets sur la même feuille

merci

Bonjour,

Si par onglet vous voulez dire feuille alors à ce moment :

"C:\Users\Excellerateur\Desktop\Perso\" & Worksheets("Votre nom de feuille").[B16]

Cdlt,