Qui c'est ???? ben pas l'plombier

[altinea]

Bonjour au Forum,
je suis à la recherche d'une astuce permettant de pouvoir lire le nom de la personne ainsi que la date et l'heure de la consultation d'un fichier excel.
exemple, j'ouvre le fichier excel.xls et j'aimerai pouvoir lire sur une feuille du classeur, mon nom ainsi que la date et l'heure à laquelle je l'ai consulté.
Merci de m'informer, car je ne trouve rien dans le site, merci de votre aide😡

 

[mromain]

Re : Qui c'est ???? ben pas l'plombier

bonjour altinea,

voici un essai avec ce code à placer sur ThisWorkbook :

Private Sub Workbook_Open()
With ThisWorkbook.Sheets("Feuil1")
    .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = Environ("UserName")
    .Range("A" & .Rows.Count).End(xlUp).Offset(0, 1) = Now
End With

A chaque ouverture du fichier :
> le nom de l'utilisateur sera saisi en colonne A.
> la date et l'heure seront saisis sur la même ligne, en colonne B.

a+

 

[altinea]

Re : Qui c'est ???? ben pas l'plombier

Merci beaucoup Mromain, cela fonctionne,juste pour ceux que cela pourraient interresser, je complète ton code

Private Sub Workbook_Open()
With ThisWorkbook.Sheets("Feuil1")
.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = Environ("UserName")
.Range("A" & .Rows.Count).End(xlUp).Offset(0, 1) = Now
End With
End Sub

Merci pour ta rapidité, bonne journée à tous

 

[altinea]

Re : Qui c'est ???? ben pas l'plombier

merci Mromain, cela correspond à ce que je recherche, merci beaucoup

je met juste le code complet afin que certains débutants comme moi ne galère pas

bonne journée


Private Sub Workbook_Open()
With ThisWorkbook.Sheets("Feuil1")
.Range("A" & .Rows.Count).End(xlUp).Offset(1, 0) = Environ("UserName")
.Range("A" & .Rows.Count).End(xlUp).Offset(0, 1) = Now
End With
End Sub

 

[altinea]

Re : Qui c'est ???? ben pas l'plombier

merci Mromain pour l'info c'est tout à fait cela, bonne journée

 

[mromain]

Re : Qui c'est ???? ben pas l'plombier

Re bonjour

De rien, de rien et de rien 😀

A+ sur le forum 😉