S
Simba
Guest
Bonjour à tous
Je désire sauver une copie incrémentée avec date (Clik sur la disquette) d'un fichier qui doit garder un nom constant et dans deux disques différent...
cela plante la première fois ... et puis cela fonctionne (XP) Quelqu'un pourais t'il regarder le code pour me dire ce qui fait planter
Merci d'avance
Pierre
Private Sub Workbook_BeforeSave()
'Sauver le Double du fichier avec la date du jour
Dim D As String
Dim T As String
NomOrigine = ActiveWorkbook.FullName ' test
T = Format(Time, 'hh mm ss')
D = Format(Date, ' yyyy mm dd ')
D = D + T
ActiveWorkbook.SaveAs Filename:='\\\\Diskstation\\usbshare1\\copie de doublant' & D _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:='\\\\Diskstation\\usbshare1\\DoublantPierre.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Merci
Pierre [file name=DoublantPierre.zip size=7134]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DoublantPierre.zip[/file]
Je désire sauver une copie incrémentée avec date (Clik sur la disquette) d'un fichier qui doit garder un nom constant et dans deux disques différent...
cela plante la première fois ... et puis cela fonctionne (XP) Quelqu'un pourais t'il regarder le code pour me dire ce qui fait planter
Merci d'avance
Pierre
Private Sub Workbook_BeforeSave()
'Sauver le Double du fichier avec la date du jour
Dim D As String
Dim T As String
NomOrigine = ActiveWorkbook.FullName ' test
T = Format(Time, 'hh mm ss')
D = Format(Date, ' yyyy mm dd ')
D = D + T
ActiveWorkbook.SaveAs Filename:='\\\\Diskstation\\usbshare1\\copie de doublant' & D _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:='\\\\Diskstation\\usbshare1\\DoublantPierre.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Merci
Pierre [file name=DoublantPierre.zip size=7134]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/DoublantPierre.zip[/file]