Discussion :

[aperot]

bonjour,
je travaille avec 2 classeurs :
le classeur1 contient les macros
le classeur2 contient les données dans plusieurs feuilles

Une Sub me permet de compléter les données dans le classeur2 : pas de pb
Une Sub sauvegarde() me permet de faire une sauvegarde du classeur2

Quand je lance sauvegarde()v sans avoir fait de changement dans les onnées pas de problème
Quand je lance sauvegarde() après avoir compléter les données , excel crée un fichier nommé par exemple 53AB7000 et excel rencontre une erreur et se ferme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
chemin_AN = ActiveWorkbook.Path 
Nomfichier = "AN_bases-" & Format(Date, "yyyy-mm-dd  ") & Format(Time, "hh-mm-ss") & ".xls"
 
Workbooks("AN_bases.xls").Save  
 
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile chemin_AN & "\AN_bases.xls", chemin_AN & "\" & Nomfichier

l'erreur se produit au code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("AN_bases.xls").Save

merci pour tout aide

[pgz]

Bonjour.

La variable NomFichier sert à quoi?

PGZ

[aperot]

Bonjour
Elle me sert à faire une copie de cette sauvegarde avec la date du jour (voir la fin du code)
Mais ce n'est pas cela qui pose problème.
Merci pour une réponse aussi rapide.

[ESVBA]

bonjour à tous,

en transformant la ligne fautive en réalisant l'opération sur le fichier actif comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks("AN_bases.xls").Activate
ActiveWorkbook.Save

Pourquoi passer pas FSO ?
Il y a ".save", ".SaveAs" et ".SaveCopyAs" ?
Si quelqu'un peut préciser ?

ESVBA

[aperot]

Bonjour,

merci pour l'aide,
mais le changement de code ne change rien.

Je précise que souvent j'obtiens aussi le message d'erreur :

"Erreur automation
l'objet invoqué s'est déconnecté de ses clients"