associer 2 ThisWorbook

[reve24]

Bonne Année à tous .
Bonjour
Comment puis je associer ces 2 thisWorkBook?
L un ouvrant toujours sur la meme feuille
et
l autre enregistrant l userName et la date .( sur une feuille Txt .


Sub Workbook_Open()
Feuil3.Activate
End Sub

+


Private Sub Workbook_Open()
Dim Fichier As String
Dim L As String
Dim D As Date
Dim H As Date

Fichier = "\\Srv\tintin\essai.txt" ' le chemin du fichier log

L = Environ("UserName") ' logging
D = Date
H = Format(Now(), "hh:mm")

Open Fichier For Append As #1
Print #1, L & vbTab & D & vbTab & H
Close #1
End

Merci

 

[Dull]

Re : associer 2 ThisWorbook

Salut reve24 , eForum

Peut-être comme cela

Sub Workbook_Open()
Dim Fichier As String
Dim L As String
Dim D As Date
Dim H As Date

Feuil3.Activate
Fichier = "\\Srv\tintin\essai.txt" ' le chemin du fichier log

L = Environ("UserName") ' logging
D = Date
H = Format(Now(), "hh:mm")

Open Fichier For Append As #1
Print #1, L & vbTab & D & vbTab & H
Close #1
End
End Sub

Bonne Journée

 

[reve24]

Re : associer 2 ThisWorbook

Salut reve24 , eForum

Peut-être comme cela

Sub Workbook_Open()
Dim Fichier As String
Dim L As String
Dim D As Date
Dim H As Date

Feuil3.Activate
Fichier = "\\Srv\tintin\essai.txt" ' le chemin du fichier log

L = Environ("UserName") ' logging
D = Date
H = Format(Now(), "hh:mm")

Open Fichier For Append As #1
Print #1, L & vbTab & D & vbTab & H
Close #1
End
End Sub

Bonne Journée

Super Impeccable cela fonctionne tres tres bien🙂🙂🙂 MERCI