F
Flo-H
Guest
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
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