Creer un historique

Bonjour à tous,

Alors je souhaite créer un historique d'un fichier.

Sur une feuille (Scan) je vais remplir des lignes a partir de la ligne 8 (le nombre vas varier à chaque utilisation de la feuille) et je souhaite copier ces lignes et les coller dans une autre feuille (Histo).

Je souhaite donc copier à la suite à chaque fois que j'utilise la feuille ou je remplis mes données.

J'ai beau chercher sur le net et faire des essais je n'arrive à malheureusement a rien.

Bonjour,

une variante

Private Sub Workbook_Open()
    Open ThisWorkbook.Path & "\Spy.txt" For Append As #1
    Print #1, Application.UserName, ThisWorkbook.Name, Now
    Close #1
End Sub

l'historique s'inscrit dans un fichier texte dans le même répertoire

Merci de ta réponse.

Mais il faut a tout pris que sa s'inscrive dans le même fichier sur une autre feuille.

Private Sub Workbook_Open()
With Sheets("histo")
    der = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(der, 1) = Application.UserName
    .Cells(der, 2) = Now
End With
End Sub

Merci de ta réponse.

C'est toujours pas se que je souhaite mais la macro que tu ma fait va mettre très très utiles pour autre chose

Je souhaite juste copier les lignes non vide a partir de la ligne 8 sur la feuille histo et a la suite a chaque fois que je vais remplir dans la feuille Scan

ok

mais les lignes sont aujourd'hui vraiment ... vides !

combien y a t'il de données par ligne ? quelle colonne ?

Oui le fichier est complètement vide actuellement.

Je viens de remplir celui ci pour donner un exemple.

Les données son dans la colonne B et a partir de la ligne 8.

Proposition

ah ca c'est vraiment top Merci

Je pense que je devrais également pouvoir l'adapter avec un bouton pour un autre fichier

Merci beaucoup de ton aide c'est vraiment cool

C'est une base, tu peux ensuite gérer d'autres informations si besoin.