[RESOLU] Info fichier dans fichier texte

Sub LireProprietesWB()
Dim strPath$
Dim wb As Workbook, l&: Set wb = ActiveWorkbook: strPath = wb.Path & "\"
On Error Resume Next
wb.Sheets(1).Range("A1:B1").Value = Array("Propriété", "Valeur")
For l = 1 To wb.BuiltinDocumentProperties.Count
    wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = wb.BuiltinDocumentProperties.Item(l).Name
    wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = wb.BuiltinDocumentProperties.Item(l).Value
Next l
On Error GoTo 0
Application.DisplayAlerts = False
wb.SaveAs Filename:=strPath & "Test1.txt", FileFormat:=xlText
wb.Close False
Set wb = Nothing
End Sub

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