bug sauvegarde automatique lors ouverture

G

Guest

Guest

• 7 Novembre 2008

• #2

Re : bug sauvegarde automatique lors ouverture

bonjour Orphee,

Exemple:

Code:

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+

 

Vote positif 0 Vote négatif

O

oorphee

Guest

• 7 Novembre 2008

• #3

Re : bug sauvegarde automatique lors ouverture

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

 

Dernière modification par un modérateur: 7 Novembre 2008

Vote positif 0 Vote négatif

G

Guest

Guest

• 7 Novembre 2008

• #4

Re : bug sauvegarde automatique lors ouverture

Re,

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

A+

 

Vote positif 0 Vote négatif

O

oorphee

Guest

• 7 Novembre 2008

• #5

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.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 7 Novembre 2008

• #6

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

 

Vote positif 0 Vote négatif

O

oorphee

Guest

• 7 Novembre 2008

• #7

Re : bug sauvegarde automatique lors ouverture

Genial, merci.

 

Vote positif 0 Vote négatif