Rapport de message :*
 

Re: Sauvegarde conditionnelle avec msgbox

Titre du sujet : Re: Sauvegarde conditionnelle avec msgbox
par Ghandra le 31/05/2008 19:31:05

Merci pour ce petit code qui devrait faire l'affaire et discipliner un peu les collègues

En revanche je n'ai pas réussi à le faire fonctionner sur toutes les feuilles !

J'ai mis
Citation :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets(Array("Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", _
"Septembre", "Octobre", "Novembre", "Décembre")).AutoFilter.Filters(1).On Then
MsgBox "Pas de sauvegarde possible sans avoir enlevé les filtres ^^"
Cancel = True
End If
End Sub


mais ça ne fonctionne pas :-L