Salut,
Voilà une solution, mais chez moi excel se plante complètement après avoir enregistrer les deux documents (comme tu le souhaites), mais je ne sais pas si ça le fait sur les autres ordinateurs (le plantage d'excel).
Si vous pouvez me dire si chez vous aussi ça plante, ça me rassumerai lollllll
voici le code :
Dim temp 'ici je déclare une variable temp
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'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
If temp = 0 Then 'ici je fais un test pour savoir si on est déjà passé une fois dans l'enregistrement, car si tu regarder ton code fonctionné pas à pas, tu pourra voir que chaque fois que tu enregistres, le code se répète à chaque fois, donc on va éviter de passer plusieurs fois dans l'enregistrement
temp = 1 'ici je mets ma variable temp à 1 pour éviter de revenir dans l'enregistrement.
ActiveWorkbook.SaveAs Filename:='c:\\downloads\\copie de doublant' & D & 'xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:='c:\\downloads\\DoublantPierre.xls' _
, FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False
If temp = 1 Then
temp = 0 'ici je remet ma variable à 0 au cas où tu voudrai refaire un enregistrement.
End If
End If
End Sub
Bon dimanche.
John
Message édité par: john, à: 18/12/2005 15:28