Exporter tableau excel fichier txt

[mowts]

Bonjour,

Voila j'essaie d'exporter un tableau excel en fichier txt en utilisant une macro VBA. J'ai trouvé quelque exemples sur le net mais je n'arrive pas à faire fonctionner ma macro.

Sub exporter()

    'Declaration variables
    Dim i, j, nl, nc As Integer
    Dim pathFichierTxt As String
    Dim myFso As Object, textfile As Object
    
    'initialisation variables
    pathFichierTxt = Sheets("donnees_sorties").Range("D3").Text         'chemin d'accès du fichier
    nl = Sheets("information_enregistrement").Range("E5")               'nombre de ligne à copier
    nc = Sheets("information_enregistrement").Range("E6")               'nombre de colonne à copier
    
    'creation du fichier
    Set myFso = CreateObject("Scripting.FileSystemObject")
    Set txtFile = myFso.CreateTextFile(pathFichierTxt)

    'Ouverture fichier
    Open "pathFichierTxt" For Output As #1
    
    Print #1, "teste"

    'On boucle sur la selection
   '      For i = 5 To nl + 5
    '         txtFile = ""
     '       For j = 1 To nc
                'ajout de la tabulation comme separateur
     '           If txtFile <> "" Then txtFile = txtFile & Chr(9)
     '           txtFile = txtFile & ActiveWindow.RangeSelection.Next(i, j - 1)
      '      Next j
            'Ecriture de la ligne dans le fichier si non vide
      '      If txtFile <> "" Then Print #1, txtFile
       '  Next i

    'Fermeture fichier
    Close #1
End Sub

Pour l'instant je n'arrive même pas à afficher un mot dans mon fichier !!
Sur ma feuille excel j'ai le chemin d'accès et le nom du fichier que je veux créer ainsi que le nombre de ligne et de colonne du tableau.
Logiquement j'ai juste à copié chaque cellule du tableau, insérer une tabulation entre chaque et revenir à la ligne au bon moment !!
ça parait facile à faire mais quand on connait pas trop le VBA c'est un peu plus chaud !!

Voila si quelqu'un veux bien jeter un coup d'oeil sur le code ou à une autre solution je suis preneur !!!

Merci d'avance !

 

[chris]

Re : Exporter tableau excel fichier txt

Bonjour

Question : pourquoi pas Enregistrer sous au format txt : tu auras des tabulations.
Si tu n'as pas de besoin très particulier pour quoi passer par VBA ?

 

[kjin]

Re : Exporter tableau excel fichier txt

Bonjour,

Sub exporter()
Dim i As Long, j As Long, nl As Long, nc As Long
Dim pathFichierTxt As String
Dim sText As String

pathFichierTxt = Sheets("donnees_sorties").Range("D3").Text   'chemin d'accès du fichier
nl = Sheets("information_enregistrement").Range("E5")         'nombre de ligne à copier
nc = Sheets("information_enregistrement").Range("E6")         'nombre de colonne à copier

Open pathFichierTxt For Output As #1
Print #1, "teste"
    For i = 5 To nl + 5
       sText = ""
       For j = 1 To nc
           sText = sText & Cells(i, j) & vbTab
       Next j
       sText = Mid(sText, 1, Len(sText) - 1)
       Print #1, sText
    Next i
Close #1
End Sub

A+
kjin

 

[mowts]

Re : Exporter tableau excel fichier txt

rebonjour,

Voila je veux passer par VBA pour pouvoir automatiser l'écriture du fichier par un bouton.
Et aussi pour pouvoir sélectionner la partie du tableau qui m'intéresse (alors que dans enregistrer sous il transforme toute la feuille en .txt)

Sinon j'ai utilisé ton code kjin et il fonctionne bien ! mais j'ai juste un soucie car ma première colonne qui est une date (dd/mm/yy) est bien copiée mais l'heure qui est de la forme (hh:mm:ss) est transformée en nombre décimal.

Voila j'essaie juste de trouver le code permettant de copier l'heure !!!


Merci pour vos réponses !!

 

[VPN]

Re : Exporter tableau excel fichier txt

Bonjour Chers amis,

je suis vraiment coincé, j'espère trouver la solution avec vous. je suis très novice en code vba.
en effet, je voudrais générer un fichier .txt à partir de mon tableau excel,
dans le fichier .txt, je voudrais supprimer des tabulations, coller certaines colonnes et mettre des espaces entre d'autres.
je vous présente en pièces jointes, le tableau excel et le résultat attendu en fichier .txt (fichiertxt_exp.docx)


merci d'avance les amis