Déjà traité?

wazzebu

XLDnaute Occasionnel

• 24 Août 2007

• #2

Re : Déjà traité?

Bonjour,

Mettre ce code dans thisworkbook (alt+f11 pour accéder au code)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.Close True
End Sub

@+

 

Vote positif 0 Vote négatif

O

Orodreth

XLDnaute Impliqué

• 24 Août 2007

• #3

Re : Déjà traité?

Bonjour jeanba, edit: salut wazzebu

Tout dépend si tu veux sauvegarder ton fichier sur le même nom, et donc écrasé l'ancien, ou enregistrer sous un nom différent.

Si tu veux juste écraser, ceci devrait te plaire:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

A rajouter dans le module "This Workbook" du VBA. Cela déclenche une sauvegarde écrasante du fichier lors de la fermeture.

Cordialement,
Thomas

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 24 Août 2007

• #4

Re : Déjà traité?

wazzebu à dit:

Bonjour,

Mettre ce code dans thisworkbook (alt+f11 pour accéder au code)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWindow.Close True
End Sub

@+

Cliquez pour agrandir...

Salut Orodreth et wazzebu,
Merci mais j'ai essayé les 2 codes et le message d'erreur suivant s'affiche dans les 2 cas:"Erreur de compilation! Nom ambigü détecté:Workbook_BeforeClose"

 

Vote positif 0 Vote négatif

wazzebu

XLDnaute Occasionnel

• 24 Août 2007

• #5

Re : Déjà traité?

re, bonjour Orodreth,

Tu ne peux utiliser qu'une solution à la fois !!

il ne peut y avoir qu'une seule instruction commencant par "Private Sub Workbook_BeforeClose(Cancel As Boolean)"


C'est bon?

 

Vote positif 0 Vote négatif

O

Orodreth

XLDnaute Impliqué

• 24 Août 2007

• #6

Re : Déjà traité?

re

je rejoins wazzebu: essaye l'une ou l'autre, mais pas les deux en même temps

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 24 Août 2007

• #7

Re : Déjà traité?

J'ai essayé tour à tour les 2 instructions, pas les 2 à la fois bien entendu, mais aucune ne marche. Est-ce ce n'est pas parce que j'ai déjà un code sur la meme ThisWorkbook, ce qui me fait en tout:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("CP INDIVIDUALISE").Range("I3").ClearContents
Sheets("CP INDIVIDUALISE").Range("A1").ClearContents
-------------------------------------------------------
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

 

Vote positif 0 Vote négatif

wazzebu

XLDnaute Occasionnel

• 24 Août 2007

• #8

Re : Déjà traité?

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("CP INDIVIDUALISE").Range("I3").ClearContents
Sheets("CP INDIVIDUALISE").Range("A1").ClearContents
-------------------------------------------------------
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

Cliquez pour agrandir...

Le rouge est à supprimer, tu utilises deux fois le même nom pour deux instructions différentes.

 

Vote positif 0 Vote négatif

jeanba

XLDnaute Occasionnel

• 24 Août 2007

• #9

Re : Déjà traité?

Excellent wazzebu! Ca marche à merveille!
Merci à vous deux...
jeanba

 

Vote positif 0 Vote négatif