Sub Test2()
Dim wb As Workbook, strPath$, t, tt, fs, a$
Set wb = ThisWorkbook
With wb
strPath = .Path & "\"
t = Array("Utilisateur", "Nom Classeur", "Chemin", "Nom complet")
tt = Array(Application.UserName, .Name, .Path, .FullName)
End With
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(strPath & "01test.txt", True)
a.WriteLine Join(t, "|"): a.WriteLine Join(tt, "|"): a.Close
End Sub