S
stargate
Guest
Bonjour,
j'ai trouvé sur le forum une procédure pour sauvegarder un fichier à un endroit voulu
j'ai modifié la procédure pour faire la sauvegarde sur une disquette
l'opération se passe bien
1)mais si j'ouvre le fichier MagasinWashroom' qui se trouve sur la disquette excel me dit file not found ???? Alors que le fichier est physiquement bien là
2) j'ai deux moyens de quitter l'application
un bouton et la croix système
par le bouton ,l'opération se passe mais le fichier n'est pas utilisable
par la croix, il me retourne une erreur runtime error 1004 'Method'SaveCopyAs'of object'_Worbook' Failed
3) Qu'elle est la méthode pour que si le fichier existe, il l'écrase
merci beaucoup
j'ai trouvé sur le forum une procédure pour sauvegarder un fichier à un endroit voulu
j'ai modifié la procédure pour faire la sauvegarde sur une disquette
Code:
Private Sub Workbook_BeforeClose(Cancel as Boolean)
Call backup
End Sub
Sub backup()
Dim chemin As String
Dim fichier As string
Dim strdate = Format(Date, 'dd-mm-yy') & Format(Time, 'h-mm-ss')
fichier = 'MagasinWashroom'
chemin = 'A:\\'
ActiveWorbook.SaveCopyAs chemin + fichier + strdate = '.xls'
End Subl'opération se passe bien
1)mais si j'ouvre le fichier MagasinWashroom' qui se trouve sur la disquette excel me dit file not found ???? Alors que le fichier est physiquement bien là
2) j'ai deux moyens de quitter l'application
un bouton et la croix système
par le bouton ,l'opération se passe mais le fichier n'est pas utilisable
par la croix, il me retourne une erreur runtime error 1004 'Method'SaveCopyAs'of object'_Worbook' Failed
3) Qu'elle est la méthode pour que si le fichier existe, il l'écrase
merci beaucoup