Récupération valeur pour historisation

Hello

Super, la première partie fonctionne parfaitement, les données sont bien copiées en dur dans l'onglet d'historisation

Merci !!!

J'espère que tu trouveras aussi simplement pour l'automatisation de l'historisation...

Merci encore et bonne soirée

Ajoute dans Module2

... je peaufine

Module2 devient :

Dim frequence
Sub Actualiser()
' Définit l'intervalle avec l'heure actuelle
    frequence = TimeSerial(Hour(Time), Minute(Time) + 1, Second(Time))
    ' Appel récursif
    Application.OnTime frequence, "Actualiser"
    Call Historique
End Sub
Sub auto_open()
    Actualiser
End Sub
Sub auto_close()
    On Error Resume Next
    Application.OnTime frequence, Procedure:="Actualiser", Schedule:=False
End Sub
Sub Historique()
With Sheets("Historisation")
    ligne = .Cells(Application.Rows.Count, 1).End(xlUp).Row + 1
    horodatage = Now
    For i = 20 To 25
        .Cells(ligne + i - 20, 1) = Sheets("Portfolio").Cells(i, 2)
        .Cells(ligne + i - 20, 2) = Sheets("Portfolio").Cells(i, 4)
        .Cells(ligne + i - 20, 3) = Int(horodatage)
        .Cells(ligne + i - 20, 4) = horodatage - Int(horodatage)
    Next
End With
End Sub

finger crossed

Hello

merci pour le code!

je suis en train de le tester mais ca m'a l'air tout bon (j'ai modifié la fréquence d'actualisation à 1h pour éviter d'avoir trop de lignes au bout d'une journée )

Merci encore

Très bonne journée

Cela me parait raisonnable en effet !