XL 2010 Exportation fichir Txt

[kadelmalin]

Bonjour le forum,
Je sollicite votre aide pour corriger cette macro. Le fichier txt est bel et bien exporté vers le lecteur sélectionné mais celui qui doit être exporté vers le lecteur C: n'est pas effectué; y-a-t il une erreur dans la macro ou c'est le lecteur qui est imperméable à toute entrée de fichier ? Merci pour votre aide.

 

[ChTi160]

Bonjour kamelmalin
pourrais tu mettre ton fichier (sans données confidentielles ) quelques Lignes.
peux tu mettre la démarche et le résultat voulu par rapport a ce que tu as ?
merci
jean marie

 

[kadelmalin]

Bonjour ChTi160,
Je voudrais juste savoir ce qui interdit l'écriture sur le disque C , sur les autres partitions du disque C il n'y a aucun problème.

 

[ChTi160]

Re
une question d'autorisation je pense
tu Crées un Dossier à la racine de C
et tu enregistres ton fichier texte dedans !

C:\DossierTest\D_Liaison.txt

il n'est d'ailleurs pas conseillé de mettre des fichiers a cet endroit Lol

soit

C:\D_Liaison.txt

mais bon !
fait une recherche sur le net , il y a des moyens de le faire !
Lien vers
jean marie

 

[patricktoulon]

bonjour
non seulement il y a peut etre une question d'autorisation
mais si tu a eu une seule erreur quelque part même corrigé tu aura l'erreur toujours au même endroit
pour la simple et bonne raison que tu index tes instances de fichier (1,2,3,4) alors que ces index peuvent être utilisé par d'autre en arrière plan par windows ou autre ou un fichier ouvert précédemment qui a planté
donc tôt ou tard ça re plantera
et pour info en cas de plantage vba libere l'index quand le fichier excel est fermé
conclusion c'est tout le concept a revoir
c'est comme la roulette russe tu a de la chance mais pas tout le temps 😉

 

[patricktoulon]

re
en plus tu n'en fermais aucun (close tout seul ça marche pas 😉)

le voilà écrit comme il se doit
vérifie bien que les noms soient bien des chemins complets avec ta variable fich je soupçonne une nécessite de concaténation

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

 

[kadelmalin]

Merci beaucoup pour votre contribution, je vais faire des testes.