bug sauvegarde automatique lors ouverture

[oorphee]

Bonjour,

Pour que lors de l'ouverture de mon classeur, une sauvegarde de celui-ci se fasse sur un chemin précis, j'ai utilisé ces codes:

ThisWorkbook

Private Sub WorkBook_Open()
sauvegarde_automatique_lors_ouverture
End Sub

Module

Sub sauvegarde_automatique_lors_ouverture()
ThisWorkbook.SaveAs "C:\Program Files\Vancouver\Données VANCOUVER.xlsm"
End Sub

Mais la sauvegarde ne fonctionne pas... qu'ai-je de faux ?!

Merci beaucoup.

 

[Guest]

Re : bug sauvegarde automatique lors ouverture

bonjour Orphee,

Exemple:

Fichier="C:\Program Files\Vancouver\Données VANCOUVER.xlsm"

'Si le fichier existe déjà, le supprimer
If Dir(Fichier) <> "" Then   Kill Fichier
'Nouvelle sauvegarde
ThisWorkbook.SaveCopyAs Fichier

If faut que ="C:\Program Files\Vancouver\Données VANCOUVER.xlsm"
ne soit pas le nom du fichier sur lequel tu travailles mais le nom d'une copie.

A+

 

[oorphee]

Re : bug sauvegarde automatique lors ouverture

Merci. Ca fonctionne. Super. Bonne journée.

 

[Guest]

Re : bug sauvegarde automatique lors ouverture

Re,

Chez moi cela fonctionne. Essaies de nous joindre ton fichier dégraissé et anonymisé.

A+

 

[oorphee]

Re : bug sauvegarde automatique lors ouverture

Excuse moi Hasco, j'étais pas bien réveillé, erreur de ma part, ca marche...
Merci !

Par contre, pour pousser un peu plus loin. Lorsque j'ouvre le fichier qui a été sauvegardé, celui-ci me lance un message d'erreur de macro évidemment vu que je ne peux pas tuer le fichier actif...
Ya-t-il une ligne de code à entrer, ou une astuce, pour que si le fichier actif est celui à tuer/sauvegarder, rien ne se passe (pas de macro, étape suivante).

En somme, pour contourner le message d'erreur...

Merci encore.

 

[tototiti2008]

Re : bug sauvegarde automatique lors ouverture

Bonjour à tous,

fait précéder le code de Hasco de
On Error Resume Next

et ajoute à la fin

On Error Goto 0

avant le End Sub

 

[oorphee]

Re : bug sauvegarde automatique lors ouverture

Genial, merci.