Récupérer dernière valeur d'une formule

Bonjour à tous,

Je me gratte la tête depuis quelques jours pour trouver une solution à mon problème...

Je ne sais pas comment procéder? VBA, formules?

Je vous explique, j'ai la formule ci-dessous

SOMME('[PLANNING 2016.xlsx]S1:S52'!$AD$7 qui évolue toute la journée et tous les jours

J'aimerai récupérer de façon automatique la dernière valeur enregistrée de cette dernière tous les jours

Avez-vous une solution sachant que je suis une bille au niveau VBA?

Merci de votre aide

Cordialement.

Peux-tu envoyer le fichier ça serait plus simple

Je joins mon fichier allégé...

Il s'agit d'un planning que les opérateurs alimentent au fur et à mesure...

Dans l'onglet récap, je souhaiterai avoir les valeurs au dernier enregistrement du jour, comme ça, je sais exactement le résultat de la vieille quand j'arrive au bureau car entre le dernier enregistrement et mon arrivée, la valeur évolue

Difficile d'expliquer ce que l'on veut quand c'est notre fichier....

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.

J'ai trouvé mon erreur, mauvais format de ma colonne A....