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

al1.2loin

XLDnaute Occasionnel
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.
 

Fichiers joints

Dernière édition:

Chris401

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

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

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

al1.2loin

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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 :

Code:
Application.Dialogs(xlDialogSaveAs).Show Replace([CH2].Text, ".", "")
A+
 

Discussions similaires


Haut Bas