[ 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.
 

Pièces jointes

  • Classeur1.xlsm
    147 KB · Affichages: 43
  • Classeur1.xlsm
    147 KB · Affichages: 40
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
 

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