Enregistrer sous DATE En Majuscule
Bonjour
Il me manque juste un petit ajustement, mais je n'y arrive pas
J'ai un bouton sur un classeur qui déclenche une macro me sauvegardant un classeur avec le nom selon 2 cellules
voici ma macro
'******************************************************************************
'Procedure permettant de sauvegarder au format Excel Un Formulaire
'dans le dossier actif ayant pour nom la valeur d'une cellule
'******************************************************************************
Sub Archivage()
'Décalration des variables
Dim NomDossier As String
Dim CheminDossier As String
On Error GoTo 1 'Gestion des erreurs
Application.DisplayAlerts = False 'On désactive les messages d'alerte
If Range("B1").Value = "" Then 'On teste que le nom du fichier a bien été saisi ou pas
MsgBox "*** Atention *** Vous n'avez pas saisi"
Range("B1").Select
Else ' SINON
With ActiveWorkbook 'Enregistrement du classeur portant le nom de la cellule B1
.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("A3") & Format([B1], " DD MMMM YYYY"), FileFormat:=xlOpenXMLWorkbookMacroEnabled
End With
'On affiche un message informant que le fichier a bien été sauvegardé.
MsgBox "Votre Formulaire Au Nom [ " & Range("B1") & " ] a bien été enregistré dans votre dossier"
Sheets("Fiche Renseignement").Shapes("Bouton").Delete
End If
Application.DisplayAlerts = True 'On réactive la gestion des alertes.
1
End Sub
Le résultat obtenu est
MACHINERIES 14 janvier 2018
Ce que je veux est
MACHINERIES 14 JANVIER 2018
Comment y arriver
Ensuite, pourrais-je avoir un avertissement si je sauvegarde un classeur qui existe deja
merci
Bonjour,
UCase(Format([B1], " dd mmmm yyyy"))NB- Inutile de remettre DisplayAlerts à True, ça revient tout seul (comme ScreenUpdating), Excel s'en charge.
Cordialement.
Bonjour,
essaie
UCase(Format([B1], " DD MMMM YYYY"))Merci
je viens de voir que j'avais répondu en même temps que la maréchal que je salue !!
J'avais pensé que tu n'avais pas vu...