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

mromain

XLDnaute Barbatruc

• 26 Août 2010

• #2

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

bonjour altinea,

voici un essai avec ce code à placer sur ThisWorkbook :

VB:

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+

 

Dernière édition: 4 Janvier 2011

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 26 Août 2010

• #3

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

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 26 Août 2010

• #4

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

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 26 Août 2010

• #5

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

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

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 26 Août 2010

• #6

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

Re bonjour

De rien, de rien et de rien 😀

A+ sur le forum 😉

 

Vote positif 0 Vote négatif