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

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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