Aide pour Application.UserName dans un feuillle de Log

Bonjour, je voudrais savoir s'il était possible de créer dans une feuille excel nommé 'users' un log avec Application.UserName comme valeur accompagné de la date d'utilisation du fichier.

Du style : (dès ouverture du fichier)

Users date/heure

michel_PC 20-10-2020 09:00:00

merci de votre aide

Bonjour,

Oui cela est possible :

Private Sub Workbook_Open()

    'Récupération du nom & prénom
    Sheets("users").Range("A1") = Application.UserName
    Sheets("users").Range("B1") = Format(Now, "MM/DD/YYYY HH:MM")

End Sub

Merci de ta réponse, seulement là je ne peux mettre qu'un seul utilisateur, peut-on descendre d'une cellule quand la cellule précédente donc ici A1 est remplie ?

last_line = Sheets("users").Range("A" & Rows.Count).End(xlUp).Row
Sheets("users").Cells(1, last_line + 1) = Application.UserName

Permet l'écriture sur la cellule en dessous.

last_line : c'est une variable ?

florian140001 a écrit :

last_line : c'est une variable ?

Oui, c'est une variable.

de quel type ?

florian140001 a écrit :

de quel type ?

Dim last_line As Integer

ci-dessus le code inscrit dans la fonction "Private Sub Workbook_Open()" mais quand j'ouvre mon fichier, rien ne s'affiche :

J'ai fait une erreure dans le code :

last_line1 = Sheets("users").Range("G" & Rows.Count).End(xlUp).Row
    Sheets("users").Cells(last_line1 + 1, 7) = Application.UserName

Sheets("users").Cells(LIGNE, COLONNE)

De plus, comme tu as fait une insertion de tableau, les données vont s'enregistrer à la suite du tableau mais pas dedans, car excel prendra les lignes du tableau vides comme pleines.

J'ai fait 5 ouvertures du fichiers à des horaires différentes et voilà ce que j'obtiens

Ton code est comme ça ?

last_line1 = Sheets("users").Range("G" & Rows.Count).End(xlUp).Row
Sheets("users").Cells(last_line1, 7) = Application.UserName

last_line2 = Sheets("users").Range("H" & Rows.Count).End(xlUp).Row
Sheets("users").Cells(last_line2, 8) = Format(Now, "MM/DD/YYYY HH:MM")

Oui mon code est comme ça avec +4 après les 2 'last_line'

Voici le code solution pour mon problème

Dim last_line1 as Integer
Dim last_line2 as Integer

last_line1 = Sheets("users").Range("G" & Rows.Count).End(xlUp).Row
Sheets("users").Cells(last_line1 + 1, 7) = Application.UserName

last_line2 = Sheets("users").Range("H" & Rows.Count).End(xlUp).Row
Sheets("users").Cells(last_line2 + 1, 8) = Format(Now, "MM/DD/YYYY HH:MM")

Merci IronBoule pour ton aide