Discussion :

[elkhy]

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

[SfJ5Rpw8]

voila :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ThisWorkbook.SaveAs Filename:=Chemin & "\toto_" & Format(Range("A1").Value, "yyyymmdd"

PS : Pour le codes tu as des balises associès ... symbolisé par # dans le menu de saisie du forum, en dessous des couleurs.....

[riesseg]

c'est pas

->ThisWorkbook.SaveAs Filename:=Chemin & rng

juste ?
Je suis pas sur que pour le String, on doit obligatoirement mettre la value...