sauvegarde

[stargate]

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

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 Sub

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

 

[PascalXLD]

Bonjour

cette ligne me parait bizarre :

ActiveWorbook.SaveCopyAs chemin + fichier + strdate = '.xls'

essaies

ActiveWorbook.SaveCopyAs chemin & fichier & strdate & '.xls'

Bonne journée

 

[stargate]

merci, mais cela ne change rien
j'ai toujours les mêmes erreurs




une autre idée

 

[PascalXLD]

RE

oups j'avais oublié cette ligne aussi

Dim strdate = Format(Date, 'dd-mm-yy') & Format(Time, 'h-mm-ss')

Il faut

Dim stradte as string
strdate = Format(Date, 'dd-mm-yy') & Format(Time, 'h-mm-ss')

 

[stargate]

non c'est indiqué erreur de transcription
il y a bien

Dim strdate as string
strdate = Format(Date, 'dd-mm-yy') & Format(Time, 'h-mm-ss')


désolé