Sujet Précédent Sujet Suivant

Excel : Récupérer date création d'un fichier

gloppy86 Messages postés 6 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'utilise une feuille Excel comme support d'une procédure en entreprise.

J'aimerais que chaque feuille Excel créée à partir du modèle puisse être automatiquement enregistrée avec un nom de fichier contenant la date de création de la feuille et un autre identifiant.

Exemple : nous sommes aujourd'hui le 28/03/2012 (soit le jour 40996 dans le calendrier) et l'affaire concerne le client AA (donnée indiquée dans une cellule).
Je voudrais que le nom proposé pour enregistrer mon fichier soit 20120328AA.xlsm ou 40996AA.xlsm

Si ce nom pouvait aussi être repris dans une cellule en tête de la fiche, ce serait super

Comment faire ?
Merci d'avance de votre aide

A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 715
 
Bonjour,

Ouvrir VBA par Alt+F11
Double click gauche sur TisWorkbook en haut a gauche
Click gauche fenetre de droite

Copier le code ci-dessous
fermer VBA

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Nom de feuille et cellules a changer pour vos besoin
'Test cellule nom de fichier: si vide ecriture nom de fichier et sauvegarde auto
If Sheets("feuil1").Range("A3") = "" Then
Nom_Fichier = Format(Date, "yyyymmdd") & Sheets("feuil1").Range("A2") & ".xlsm"
'Chemin a changer pour vos besoin
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\CONFORAMA\Mes documents\" & Nom_Fichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Sheets("feuil1").Range("A3") = Nom_Fichier
End If
End Sub

Bonne suite
3