XL 2010 Exportation fichir Txt

Sub DSK_LIAISON()
    Dim Nom$, Nom2$, Nom3$, Nom4$, Fich$, NAgt&, x
    On Error Resume Next
    Nom = Range("A99").Value       'sauvegarde données Pers sur lecteur C:
    Nom2 = Range("A96").Value      'sauvegarde données Empl sur lecteur C:
    Nom3 = Range("A97").Value      'sauvegarde données Pers sur lecteur sélectionné
    Nom4 = Range("A95").Value      'sauvegarde données Empl sur lecteur sélectionné
    NAgt = Range("A98").Value      'Nbre d'assurés
    Fich = Range("A6").Value       'Lecteur de sauvegarde

    'verifier si les variable nom contiennent bien des chemins complets
    'ca me parait un peu incomplet ton truc là
    '-------------------------

    x = FreeFile
    Open Nom For Output As #x
    Print #x, Join(Application.Transpose(Range("A100:A" & 100+ NAgt).Value), vbCrLf)
    Close #x

    '--------------------------
    x = FreeFile
    Open Nom3 For Output As #x
    Print #x, Join(Application.Transpose(Range("A100:A" & 100+NAgt).Value), vbCrLf)
    Close #x

    '------------------------
    x = FreeFile
    Open Nom2 For Output As #x
    Print #x, Range("A94").Value
    Close #x
   
    '------------------------
    x = FreeFile
    Open Nom4 For Output As #x
    Print #4, Range("A94").Value
    Close #x


    MsgBox "Fichier exporté avec succès ! Les fichiers sources sont sauvegardés dans le lecteur " & Fich & ":\", vbInformation
End Sub