Bonjour,
Je rencontre un problème curieux. J'ai un évènement Before Close déclenchant un évènement Before Save :
La ligne en erreur (erreur 1004) est :
L'erreur ne se produit pas sur un enregistrement mais seulement à la fermeture.
Le mot de passe de protection des feuille est "Jacques1956".
Pouvez-vous me dépanner ?
Merci d'avance.
Daniel
Je rencontre un problème curieux. J'ai un évènement Before Close déclenchant un évènement Before Save :
VB:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Save
...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim C As Range
Application.EnableEvents = False
Application.ScreenUpdating = False
With Sheets("SAISIE")
.Unprotect Password:="Jacques1956"
For I = 7 To .Range("B7", .Cells(.Rows.Count, 2).End(xlUp)).Rows.Count - 2 Step 8
.Cells(I, 7).MergeArea.UnMerge
.Cells(I, 2).Resize(8, 69).Sort .Cells(I, 2), xlAscending, Header:=xlNo
.Cells(I, 7).Resize(8).Merge
Next I
.Protect Password:="Jacques1956", AllowSorting:=True, AllowFiltering:=True, AllowFormattingColumns:=True, userinterfaceonly:=False
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
La ligne en erreur (erreur 1004) est :
Code:
.Cells(I, 7).MergeArea.UnMerge
L'erreur ne se produit pas sur un enregistrement mais seulement à la fermeture.
Le mot de passe de protection des feuille est "Jacques1956".
Pouvez-vous me dépanner ?
Merci d'avance.
Daniel