[ Résolu ] " Enregistrer sous" prenant en compte le format de cellule personnalisé

[al1.2loin]

Bonjour, j'effectue des feuilles de présence journalières en fonction du nombre de superviseurs et de vol dans la journée, pour pouvoir les sauvegarder j'ai fait une macro " enregistrer sous " mais il ne me prend pas en compte mon format personnalisé, il me met dans, Nom de fichier : 42359 : au lieu de la date au format personnalisé, ci joint mon fichier, ce serait gentil de m'éclairer.

 

[Chris401]

Re : " Enregistrer sous" prenant en compte le format de cellule personnalisé

Bonsoir
Puisque H2 = AUJOURDHUI(), pas besoin de l'appeler dans le code

Application.Dialogs(xlDialogSaveAs).Show Format(Date, "dddd d mmm ") & " 10_Sup"

Cordialement
Chris

 

[al1.2loin]

Re : " Enregistrer sous" prenant en compte le format de cellule personnalisé

Bonsoir, et merci pour la réponse qui semblait évidente, je vais reprendre la formule et l'adapter sur mes autres macros.
Bonne soirée à vous .

 

[job75]

Re : [ Résolu ] " Enregistrer sous" prenant en compte le format de cellule personnali

Bonsoir,

On peut utiliser le texte affiché dans la cellule mais il faut enlever le point :

Application.Dialogs(xlDialogSaveAs).Show Replace([CH2].Text, ".", "")

A+