Pb nom de fichier pour sauvegarder

[Stratus]

Bonjour à tous,
J'me suis bricolé une p'tite macro pour ouvrir la boite de dialogue "Enregistrer sous" avec proposition du nom du fichier+la date du jour. Le pb c'est la date arrive avec des "/" (17/06/2003 et non pas 17-06-2003 par exemple) et bien sûr Excel n'en veut pas pour sauvregarder un fichier puisqu'il s'agit de caratères interdit.
Est ce que l'un d'entre vous à une astuce ?


A+
Stratus

Voici le code:

Dim NomFichier As String
Dim MyDate As Date
NomFichier = "Etats_DPE_"
MyDate = Date
With Application
.Dialogs(xlDialogSaveAs).Show NomFichier & Date
End With

 

[schmail]

Bonjour Stratus

essaye cela pour voir :

Dim NomFichier As String
Dim MyDate As Date
NomFichier = "Etats_DPE_"
MyDate = Format(Date,"jj-mm-aaaa")
With Application
.Dialogs(xlDialogSaveAs).Show NomFichier & Date
End With

@+

 

[Stratus]

bah non ça ne marche pas :-(

c'est pas grave j'ai résolu le problème, voici mon nouveau code:

Dim NomFichier As String
Dim MyDay
Dim MyMonth
Dim MyYear
MyDay = Day(Date)
MyMonth = Month(Date)
MyYear = Year(Date)
NomFichier = "Etats_DPE_"

With Application
.Dialogs(xlDialogSaveAs).Show NomFichier & MyDay & -MyMonth & -MyYear

End With