Sauvegarde fichier nom et date

[Flo-H]

Bonjour le forum,

Je voudrai sauvegarder un fichier excel sous le nom d'une cellule accolé à une date.

Exemple: cellule B5:Monfichier

cellule A1:25/04/2006

A la sauvegarde du fichier j'aimerai avoir cela: Monfichier_20060425.xls

J'arrive actuellement à enregistrer mon fichier son le nom d'une cellule
et à récupérer la date en A1. Mais je n'arrive pas à accoler les deux.

Voici mon code

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim Chemin As String
Dim rng As Range

Set rng = Worksheets('1. Subsidiary').Range('B5')

If ThisWorkbook.Name = rng.Value Then Exit Sub

Chemin = ThisWorkbook.Path & '\\'

Application.DisplayAlerts = False

ThisWorkbook.Save

ThisWorkbook.SaveAs Filename:=Chemin & rng.Value

Application.DisplayAlerts = True

End Sub

Merci pour votre aide, à bientôt

 

[ERIC S]

Bonjour

à adapter

nom = 'toto_' & Format(Range('A5').Value, 'yyyymmdd')

accole la date située en A5

A+

 

[Flo_H]

Merci pour ta réponse,

Malheureusement j'ai encore un souci, et ça plante ici (->):

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'
Dim Chemin As String
Dim rng As Range
Dim rng2 As Range

'

Set rng = Worksheets('1. Subsidiary').Range('B5')
->Set rng2 = 'rng_' & Format(Range('A1').Value, 'yyyymmdd')

If ThisWorkbook.Name = rng2.Value Then Exit Sub

Chemin = ThisWorkbook.Path & '\\'


Application.DisplayAlerts = False

ThisWorkbook.Save

ThisWorkbook.SaveAs Filename:=Chemin & rng2.Value

Application.DisplayAlerts = True

End Sub

Merci pour votre aide
@+

 

[ERIC S]

re

A essayer

A+ [file name=FichierNomDate.zip size=7757]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FichierNomDate.zip[/file]

 

[flo_h]

Re,

merci c'est exactement cela, il faut que je le teste demain sur mon application et je te tiens au courant.

merci, a+

 

[flo_h]

re,

j'ai testé sur mon appli, ça marche !!!!

merci...
@+