[VBA-E] evenement avant quitter application

Version imprimable

11/05/2006, 14h44
fisherman

[VBA-E] evenement avant quitter application

bonjour dans mon classeur excel j'ai du code qui se lance dans l'evenement

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

le code s'execute bien quand l'utilisateur quitte via la croix excel
or mon code ferme d'autres classeurs nécessaires à l'appli.

Et si lorsqu'excel demande a l'utilisateur s'il veut sauvegarder et qu'il fait cancel ma macro s'execute quand meme et entraine donc la fermeture des autres classeurs :cry: comment faire pour que mon code s'execute apres que l'utilisateur ait fait yes or no ?

tiens un peu de code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim rep As Integer
 If Not ThisWorkbook.Saved Then
  rep = MsgBox("Voulez-vous enregister le classeur : '" & _
              ThisWorkbook.Name & "' ?", vbYesNoCancel)
   If rep = vbYes Then
     ThisWorkbook.Save 'Sauve le classeyr
   ElseIf rep = vbNo Then
     ThisWorkbook.Saved = True 'Considére le classeur sauvé
     Exit Sub ' Sortie de la sub la suite n'est pas exécuté..
    Else
     Cancel = True
     Exit Sub 'Abandonne le close
   End If
 End If
  MsgBox "Close"
End Sub

merci je vais tester ca

edit : bon c'est cool ca marche

par contre maintenant j'ai un autre problème j'ai du code qui s'execute quand je sauvegarde. qui remplit une case avec la date de la sauvegarde (now) or je dois déprotéger la cellule avant d'ecrire dedans

j'ai essayé en déprotégeant a la main et en quitant pas de problème

sinon application-defined or object-defined error

sachant que ce code fonctionne quand on fait un ctrl S ... :cry:
Code:

1 2 3 4 5 6 7 8 ActiveWorkbook.Worksheets("Project Info").Unprotect ActiveWorkbook.Worksheets("HideData").Range("Password") ActiveWorkbook.Worksheets("Project Info").Range("G12").Value = Now ActiveWorkbook.Worksheets("Project Info").Protect DrawingObjects:=True, contents:=True, Scenarios:=True, Password:=ActiveWorkbook.Worksheets("HideData").Range("Password") ActiveWorkbook.Worksheets("Project Info").EnableSelection = xlUnlockedCells

12/05/2006, 11h44
SfJ5Rpw8

j'ai pas bien compris 'comment' tu lancer ce code .....? et sur qu'elle ligne tu as l'erreur...

est tu sur qu'au moment ou le code exécuté le classeur actif est le bon ? si le classeur concerné est celui contenant ce code, remplace ActiveWorkbook par ThisWorkbook... ;)
12/05/2006, 13h11
fisherman

désolé c'est vrai que j'ai pas précisé c'est un code qui s'execute dans le before_save du workbook et j'ai déja essayé de remplacer le active par this :oops: