[VB Excel] - créer un filename avec dat
Résolu
Lalence
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
Jimmy59116 Messages postés 45 Date d'inscription Statut Membre Dernière intervention -
Jimmy59116 Messages postés 45 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaiterais créer un petit programme en VB (dans une macro Excel) qui permettrait de nommer un fichier (par "enregistrer sous...") dont le nom serait suffixé par la date du jour.
Par exemple : fic1_07032007
Ceci dans le seul but de créer des sauvegardes ponctuelles de mon fichier de données.
D'avance merci de votre aide !
Laz
Je souhaiterais créer un petit programme en VB (dans une macro Excel) qui permettrait de nommer un fichier (par "enregistrer sous...") dont le nom serait suffixé par la date du jour.
Par exemple : fic1_07032007
Ceci dans le seul but de créer des sauvegardes ponctuelles de mon fichier de données.
D'avance merci de votre aide !
Laz
A voir également:
- [VB Excel] - créer un filename avec dat
- Fichier .dat - Guide
- Créer un compte google - Guide
- Comment créer un groupe whatsapp - Guide
- Créer liste déroulante excel - Guide
- Créer un lien pour partager des photos - Guide
3 réponses
Bonjour,
Essaye le code suivant, et remplace Mes documents par le nom complet de l'emplacement où doit être enregistré ton document.
Private Sub CommandButton1_Click()
Dim LaDate As String
Dim NomClasseur As String
LaDate = Format(Date, "ddmmyyyy")
NomClasseur = LaDate & ".xls"
ActiveWorkbook.SaveAs Filename:= _
"C:\Mes documents\fic1_" & NomClasseur _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub
Essaye le code suivant, et remplace Mes documents par le nom complet de l'emplacement où doit être enregistré ton document.
Private Sub CommandButton1_Click()
Dim LaDate As String
Dim NomClasseur As String
LaDate = Format(Date, "ddmmyyyy")
NomClasseur = LaDate & ".xls"
ActiveWorkbook.SaveAs Filename:= _
"C:\Mes documents\fic1_" & NomClasseur _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
End Sub