Date

[glm]

Bonjour,
j'ai récupérer ce code sur le forum

Sub copier_save()
Dim Nom As String
Nom = ActiveSheet.Name & ".xls"
ActiveSheet.Copy
With ActiveWorkbook
Application.Dialogs(xlDialogSaveAs).Show arg1:=Nom
.Close
End With
End Sub

et je voudrais mettre par défaut la date du jour comme nom de fichier à enregistrer et non pas comme ci dessus le nom de la feuille

Merci pour tout renseignements
A+

 

[nat54]

Re : Date

Bonjour,

Sub copier_save()
Dim Nom As String
Nom = Date & ".xls"
ActiveSheet.Copy
With ActiveWorkbook
Application.Dialogs(xlDialogSaveAs).Show arg1:=Nom
.Close
End With
End Sub

 

[glm]

Re : Date

oups
ce que j'ai oublié c'est que windows n'accepte pas les / mais plutôt les _
entre les chiffres
alors je reformule ma demande

Sub copier_save()
Dim Nom As String
Nom = "bdc" & Date & ".xls"
ActiveSheet.Copy
With ActiveWorkbook
Application.Dialogs(xlDialogSaveAs).Show arg1:=Nom
.Close
End With

End Sub

 

[glm]

Re : Date

J'ai trouvé

Nom = "bdc" & Format(Date, "dd mm yy") & ".xls"


Merci nat54

A+

 

[nat54]

Re : Date

Si ca peut t'aider...
fait avec l'enregistreur de macro

Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 26/10/2006
'
'
Range("F16").Select
ActiveCell.FormulaR1C1 = "=DAY(RC[-1])"
Range("F17").Select
ActiveCell.FormulaR1C1 = "=MONTH(R[-1]C[-1])"
Range("F18").Select
ActiveCell.FormulaR1C1 = "=YEAR(R[-2]C[-1])"
Range("F19").Select
End Sub


dans une cellule du classeur, tu tapes : ctrl + ; ou = aujourdhui()

puis avec le code tu peux récupérer jour/mois/année
et ensuite les mettre en forme as you like


EDIT 😱ups t'as trouvé plus rapidement et surtout + simplement

 

[glm]

Re : Date

Grand merci encore, Date aussi simplement, je ne connaissais pas
A+
glm