problème avec un code dans Private Sub Workbook_BeforeClose(Cancel As Boolean)

[sebbbbb]

Bonsoir à tous

j'ai le code ci-dessous qui marche parfaitement :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If MsgBox("SVP, MERCI CONFIRMER QUE VOUS AVEZ :" & vbCrLf & vbCrLf & "- Mis a jour la check list (avec date & initiales)" & vbLf & "- Mis a jour S.Wing" & vbLf & "- Actualisé l'écran du bureau" & vbLf & "- Envoyé L'email quotidien avec les prospects actualisés" & vbLf & "- Mis à jour l'eventuel hub system (youriss / eyefreight / DA desk)", 292, "AVANT DE FERMER CE FICHIER,") = 6 Then
Else
Cancel = True
End If
Dim i
For i = 1 To ActiveWorkbook.Worksheets.Count
If Sheets(i).Name Like ("CList" & "*") Then
Sheets(i).Activate
Exit Sub
End If
Next i
End Sub

cependant je souhaiterai que ce code ne s'exécute pas lorsqu'un onglet (feuille) appelé "DA" est visible dans mon classeur.

je précise que je ne peux pas utiliser la fonction

Application.EnableEvents = False

car cela me désactive d'autres codes sur d'autres feuilles

merci par avance pour votre aide
seb

 

[Retraite8]

Bonjour sebbbbb, bonjour le forum,

Une suggestion : insère comme première ligne

If Worksheets("DA").Visible = True Then Exit Sub

Joseph

 

[sebbbbb]

Bonjour et merci
J essaie et te dis. Cela ne risque t il pas egalement de bloquer les autres macro de mon classeur ? Ce que je ne veux evidemment pas.
Merci
Seb

 

[sebbbbb]

Hélas cela ne fonctionne pas
toujours le message qui s'affiche lorsque je quitte le programme (lorsque l'onglet DA est affiché)
help please

 

[sebbbbb]

bonjour a tous
y a t il une solution a mon prob svp ?
merci
seb

 

[Retraite8]

Bonjour sebbbbb, bonjour le forum,

Et si on cachait la feuille "DA" au début de la macro, est-ce que ça conviendrait ?

If Worksheets("DA").Visible = True Then Worksheets("DA").Visible = False

Joseph

 

[sebbbbb]

Merci Joseph
non celà ne convient pas car j'ai besoin de la feuille DA que je fais apparaître avec une macro.
Mais c'est justement dans cette macro que je voudrai également intégrer le fait que lorsque je ferme / enregistre le fichier le message n'apparaisse pas ou plutot n'apparaisse plus (ni même pour les prochaines fois ou j'ouvrirai / fermerai le fichier)
vois tu solution ?

 

[Jacky67]

Bonsoir,
En début de ta macro

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("DA").Visible Then
Saved = True
Exit Sub
End If
If MsgBox.....Suite de la macro
-------
------

 

[sebbbbb]

Bonjour
un grand merci a Jacky67 & Retraite8.
effectivement celà marche parfaitement.
Pour rendre à Cesar ce qui revient à César, un grand merci à Joseph (Retraite8) qui m'avait donné dès le début la solution mais j'avais inscrit le code au mauvais endroit.
merci à vous tous & bonne journée
seb