Discussion :

[Cliff Jones]

Bonjour,

Le code est simple. Pourtant le classeur s'enregistre toujours. Pourquoi ?
(thisworkbook)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = False
End Sub

Une idée ?
Merci

[Theze]

Bonsoir,

Pour ne pas enregistrer, c'est "True" au lieu de "False" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Cancel = True 'annule l'enregistrement
End Sub

Hervé.

[Cliff Jones]

Merci,

Mais le probleme c'est que peu importe si j'ai TRUE ou FALSE, le fichier s'enregistre toujours

[Theze]

Bonsoir,

Bizarre ? Faut que je fasse des tests pour voir, je te tiens au courant si je trouve, je fais ça demain.

Hervé.

[carden752]

Bonjour,

C'est effectivement cela pour empêcher l'enregistrement.

Est-ce que tu as bien placer ce morceau de code dans la partie thisWorkbook et pas Feuil1?

[Theze]

Bonjour,
Mets la procédure suivante dans le module du classeur, ceci fait croire à Excel que le classeur est enregistrer mais ça ne sera pas le cas. Par contre, regarde dans ton code si à un endroit tu n'aurais pas une routine d'enregistrement ? Normalement ,pas car l'évennement "Workbook_BeforeSave" serait automatiquement déclanché et avec la valeur à true tu devrait avoir à la fermeture le message te demandant si tu veux enregistrer les modifications ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ThisWorkbook.Saved = True
End Sub

Hervé.

[Cliff Jones]

Enfin ca fonctionne bien !!

Merci encore