Sauver en double

[Simba]

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]

 

[Temjeh]

Bonjour à tous
Salut Simba

J'ai essayé avec mes chemins et ca fonctionne très bien!!

Le prob est surement que tu ne lui met pas le bon chemin

Voici les miens

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


ActiveWorkbook.SaveAs Filename:= _
'D:\\Backup\\' & D, _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False

ActiveWorkbook.SaveAs Filename:= _
'D:\\Backup\\DoublantPierre.xls', _
FileFormat:=xlNormal, Password:='', WriteResPassword:='', _
ReadOnlyRecommended:=False, CreateBackup:=False


End Sub

A+

Temjeh

 

[john]

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

 

[Simba]

Merci pour la réponse

le fait de tester que la routine ne s'execute qu'une fois améliore grandement le déroulement du sauvetage et m'a permis de voir plus clair...
quand la feuille est inchangée : pas de plantage
quand une celule est modifiée : plantage
problème de SaveAsUI ???
j'atteind là mes limite et ne maîtrise pas assez le language pour m'en sortir

Merci à tous

 

[Simba]

Bonsoir

Merci pour ta réponse mais malheureusement le problème ne vient pas des chemins d'accès , je lai cru au début (2 repertoire différent ) mais ce n'est pas cela...
en fait les fichiers sont sauvés, aux bons endroits, mais cela plante excell après.

Merci