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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
j'ai réussi par ailleurs à faire ceci:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 nom = "toto_" & Format(Range("A1").Value, "yyyymmdd")
Mais je n'arrive pas à affecter ma variable dans mon code à l'endroit caractériser par" ->".

Quelqu'un pourrait-il me modifier mon code en conséquence à l'aide de ces éléments afin qu'il fonctionne ?


Merci à tous pour votre aide