Enregistrer un fichier en inserant la date contenue dans un cellule

[benjamintunisia]

Bonjour,

J'ai une cellule dans laquelle j'ai une date, je souhaiterais inserer cette date dans le nom de mon fichier excel pour le sauvegarder.
exemple
ma cellule contient 01/09/08 et je souhaiterais que le fichier s'enregistre sous le nom Daily_report_01-09-08.xls.

Je ne sais pas comment faire. Merci de m'aider svp 🙂

 

[Robert]

Re : Enregistrer un fichier en inserant la date contenue dans un cellule

Bonjour Benjamintunisia, bonjour le forum,

je te propose cette petite macro à adapter à ton cas :

Sub Macro1()
Dim d As String 'déclare la variable d (Date)
d = CStr(Format(Range("A1"), "dd-mm-yy")) 'définit la variable d (cellule à adapter)
ThisWorkbook.SaveAs ("Daily_report_" & d & ".xls") 'enregistre le classeur sous...
End Sub

 

[Raja]

Re : Enregistrer un fichier en inserant la date contenue dans un cellule

Bonjour,

A tester le code suivant si ta date se trouve dans la cellule A1 :

ActiveWorkbook.SaveAs "Daily_report_" & WorksheetFunction.Text([A1], "dd-mm-yy") & ".xls"

édit : Salut Robert

 

[benjamintunisia]

Re : Enregistrer un fichier en inserant la date contenue dans un cellule

Cela fontionne merci, mais j'ai un autre problème
En fait je lance ma macro d'un autre fichier excel, qui s'apelle "test.xls" depuis ce fichier je fais une copie d'une des feuilles de mon fichier test, et c'est ce nouveau fichier excel que je souhaite enregistrer.
Avec la macro que tu as ecrite c mon fichier test qui es renommé et enregistrer.
est ce que tu as une solution a ce problème
merci

 

[Robert]

Re : Enregistrer un fichier en inserant la date contenue dans un cellule

Bonjour Benjamintunisia, Raja, bonjour le forum

Je te propose alors la macro suivante :

Sub Macro1()
Dim cl As Workbook 'déclare la variable cl
For Each cl In Workbooks 'boucle sur tous les classeurs ouverts
    If Workbooks.Count > 2 Then 'condition 1: si le nombre de classeurs ouvert est supérieur à 2
        MsgBox "Fermez le(s) classeur(s) inutile(s)" 'message
        Exit Sub 'sort de la procédure
    End If 'fin de la condition 1
    If cl.Name <> "test.xls" Then 'condition 2 : si le nom du classeur est différent de "test.xls"
        'condition 3 : si la cellule A1 de l'onglet "Feuil1" du classeur source n'est pas vide
        If ThisWorkbook.Sheets("feuil1").Range("A1").Value <> "" Then
            'nomme le classeur issu de "test.xls"
            cl.SaveAs "Daily_report_" & WorksheetFunction.Text([A1], "dd-mm-yy") & ".xls"
        End If 'fin de la condition 3
    End If 'fin de la condition 2
Next cl 'prochain classeur de la boucle
End Sub