OVH Cloud OVH Cloud

probl avec Date

2 réponses
Avatar
reda
Bonjour,

Au moment de fermer mon classeur, j'ai un message "erreur d'execution 1004"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Cejour As Date
Dim Dat As String
Cejour = Date
Dat = Format(Cejour, "dddd dd/mm/yyyy")
ThisWorkbook.Save
ActiveWorkbook.SaveCopyAs "E:\Filiere\Sauvegarde du " & Dat & ".xls"

Lorsque je remplace "E:\Filiere\Sauvegarde du " & Dat & ".xls" par
"E:\Filiere\Sauvegarde.xls", aucun probleme.
Je ne comprends pas pourquoi ?
Merci d'avance
Reda

--
Use our news server 'news.foorum.com' from anywhere.
More details at: http://nnrpinfo.go.foorum.com/

2 réponses

Avatar
AndréB
Bonjour
Peut-être sur le forum Excel ?
AB

Bonjour,

Au moment de fermer mon classeur, j'ai un message "erreur d'execution 1004"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Cejour As Date
Dim Dat As String
Cejour = Date
Dat = Format(Cejour, "dddd dd/mm/yyyy")
ThisWorkbook.Save
ActiveWorkbook.SaveCopyAs "E:FiliereSauvegarde du " & Dat & ".xls"

Lorsque je remplace "E:FiliereSauvegarde du " & Dat & ".xls" par
"E:FiliereSauvegarde.xls", aucun probleme.
Je ne comprends pas pourquoi ?
Merci d'avance
Reda



Avatar
FxM
Bonjour André,

reda a trouvé seul(e) la solution une heure après avoir posé la question
sur mpfe : le caractère / est interdit dans un nom de fichier.

@+
FxM



Bonjour
Peut-être sur le forum Excel ?
AB


Bonjour,

Au moment de fermer mon classeur, j'ai un message "erreur d'execution
1004"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Cejour As Date
Dim Dat As String
Cejour = Date
Dat = Format(Cejour, "dddd dd/mm/yyyy")
ThisWorkbook.Save
ActiveWorkbook.SaveCopyAs "E:FiliereSauvegarde du " & Dat & ".xls"

Lorsque je remplace "E:FiliereSauvegarde du " & Dat & ".xls" par
"E:FiliereSauvegarde.xls", aucun probleme.
Je ne comprends pas pourquoi ?
Merci d'avance
Reda