Sauvegarde speciale

[bob54]

Bonjour

Est il possible de sauvegarder un fichier tout en mettant à 0, deux cases bien définies?

Merci d'avance
A+

 

[Temjeh]

Re : Sauvegarde speciale

Bonjour à tous

Dans le workbook(ALT+F11) avec cell A1 A2

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("A1").Clear
Range("A2").Clear
End Sub

A+

Temjeh

 

[bob54]

Re : Sauvegarde speciale

Bonjour ,

J'ai fait ce que tu m'as dit mais cela ne marche pas; Je pense qu'il doit y avoir que je ne maitrise pas!!
A+

 

[Gael]

Re : Sauvegarde speciale

Bonjour Bob54, bonjour Temjeh,

Il faut mettre le code dans "Thisworkbook" et pas dans "Feuil1".

@+

Gael

 

[Spitnolan08]

Re : Sauvegarde speciale

Bonjour à tous,
Ceci devrait mieux marcher :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Range("D8").ClearContents
Range("F8").ClearContents
ActiveWorkbook.Save
End Sub

Cordialement

Edit : Bonjour Gael : pas bête la remarque... Je n'avais même pas vu.

 

[Gael]

Re : Sauvegarde speciale

Rebonjour,

Comme il y a des cellules fusionnées, tu peux mettre plutôt:

...
Range("D8😀9").ClearContents
Range("F8:F9").ClearContents
...

@+

Gael

 

[bob54]

Re : Sauvegarde speciale

Bonjour Gael et Spitnolan08

J'ai mis en application vos rq et ça fonctionne;

Merci beaucoup
A+