Sauvegarde speciale

Temjeh

XLDnaute Accro

• 26 Juin 2007

• #2

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

 

Vote positif 0 Vote négatif

B

bob54

Guest

• 26 Juin 2007

• #3

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+

 

Pièces jointes

• Classeur1.xls

  13 KB · Affichages: 50
• Classeur1.xls

  13 KB · Affichages: 56
• Classeur1.xls

  13 KB · Affichages: 48

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 26 Juin 2007

• #4

Re : Sauvegarde speciale

Bonjour Bob54, bonjour Temjeh,

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

@+

Gael

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 26 Juin 2007

• #5

Re : Sauvegarde speciale

Bonjour à tous,
Ceci devrait mieux marcher :

Code:

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.

 

Vote positif 0 Vote négatif

Gael

XLDnaute Barbatruc

• 26 Juin 2007

• #6

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

 

Vote positif 0 Vote négatif

B

bob54

Guest

• 26 Juin 2007

• #7

Re : Sauvegarde speciale

Bonjour Gael et Spitnolan08

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

Merci beaucoup
A+

 

Vote positif 0 Vote négatif