1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
| way = Workbooks(ActiveWorkbook.name).FullName
way2 = Workbooks(ActiveWorkbook.name).name
way_user = Replace(way, "\" & way2, "\Reco.txt")
User = (Environ("USERNAME"))
date_t = (Day(Now) & "\" & Month(Now) & "\" & Year(Now))
Horloge = Format(Now, "hh:mm:ss")
chn = "|" & name_stock & "|" & isin_stock & "|" & user_name & "|" & (Day(Now) & "." & Month(Now) & "." & Year(Now)) & "|" & Mid(way_user, 3)
Dim intFic As Integer
intFic = FreeFile
Open way_user For Append As intFic
Print #intFic, chn
Close intFic |
Partager