Discussion :

[fisherman]

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

Code :

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

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 comment faire pour que mon code s'execute apres que l'utilisateur ait fait yes or no ?

[SfJ5Rpw8]

tiens un peu de code :

Code :

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

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

[fisherman]

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 ...

Code :

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

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

[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...

[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