Modification de la procédure enregistrement-fermeture

[badboys06]

Bonjour a tous

Je souhaite créer une procédure d'enregistrement lors de la fermeture d'un fichier, en passant par un userform personnelle.

j'utilise donc la procedure Beforeclose mais je ne trouve pas comment empêcher l'affichage du message de demande d'enregistrement original.

j'ai bien utilisé le code :

ThisWorkbook.Saved = True

mais ceci précipite la fermeture du fichier


je cherche donc comment soit annuler complètement la procédure standard de la commande fermer, soit quel attendent que la mienne ce finisse

pour info mon code :

With ThisWorkbook
If Not ThisWorkbook.Saved Then
ddate = Application.WorksheetFunction.Max(Sheets("bdd").Columns(9))
dsave = Sheets("formulaire").Range("B1").Value
If ddate - dsave >= 7 Then
Sauvegarde.MSG.Caption = "Attention votre derniere sauvegarde date du " & Sheets("formulaire").Range("b1").Value
Sauvegarde.Show vbModeless
Else
ActiveWorkbook.Save
End If
If Workbooks.Count = 1 Then Application.Quit Else 'ThisWorkbook.Close
End If
End With

Je demande pas que l'on me crache la réponse mais si vous l'avez je suis preneur^^ sinon une piste vers ou chercher m'ira tres bien

Merci d'avance et bonne semaine à vous

 

[Pierrot93]

Re : Modification de la procédure enregistrement-fermeture

Bonjour,

peut être avec ceci, à placer dans le module "thisworkbook"... *

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
UserForm1.Show
End Sub

sans plus de détails...

bon après midi
@+

 

[Pierrot93]

Re : Modification de la procédure enregistrement-fermeture

Re,

A noter, sans doute lieu d'utiliser une variable "public" de type "Boolean" pour fermer via l'usf....

 

[badboys06]

Re : Modification de la procédure enregistrement-fermeture

simple, précis et efficace!!
un mot merci!!