Bonjour,
J'ai trouvé cette macro sur la toile...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim F As Range
With Sheets("Feuil1")
Set F = .Columns("A:A").Find(Date, LookIn:=xlValues)
With .Range(.Cells(1, 2), .Cells(F.Row - 1, 2))
.Value = .Value
End With
End Sub
Cette dernière fonctionne sur le fichier trouvé mais lorsque je veux l'adapter sur mon fichier, j'ai
Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie
Quand je fais débogage, il me surligne la ligne With .Range(.Cells(1, 2), .Cells(F.Row - 1, 2))
Avez-vous une idée?
Merci d'avance.