[VBA-E]sauvegarde fichier nom et date
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:
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:
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
