[VB.NET - VBA]Copier/coller Excel vers .txt - Problème de ligne vide

Question

Bonjour à tous,

Je réalise le code suivant pour copier coller une plage de données vers un nouveau fichier txt.


Dim ws As Worksheet
User_code = Environ("Username")
Dim FileNum As Integer, cl As Range, z As Integer, y As Integer
Dim myStr As String
FileNum = FreeFile

logfile = "C:\Documents and Settings" & User_code & "\Mes documents\mandats_" & Format(Date, "yyyymmdd") & "_" & Format(Time, "hhmmss") & ".txt"
Set ws = ActiveWorkbook.Worksheets("Données globales")


Open logfile For Append As #FileNum

Do While Application.Worksheets("Données globales").Range(Cells(2, 1), Cells(derlig, 53)).Value <> ""



z = 14000
For Each cl In Range(Cells(2, 1), Cells(derlig, 53))

       y = cl.Row
   If y = z Then
      myStr = myStr & cl

    Else: Print #FileNum, myStr
       z = cl.Row
       myStr "": myStr myStr & cl

    End If
Next

Print #FileNum, myStr
Close #FileNum


Le problème est que la première ligne du fichier txt est vide... 

Auriez vous une idée de la façon dont cette ligne apparaît? Comment puis-je la supprimer?

Merci par avance de vos réponses.

cs_Galain · Answer

Tu programmes en VB Net là ?
VBA plutôt ! 

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.

GRENIER Alain

speedou92 · Answer

Honte à moi... je me suis trompée de forum

cs_MPi · Answer

Bonjour,

Si tu cliques droit sur l'onglet et que tu utilises Déplacer ou Copier..., tu choisis Créer une copie dans un nouveau classeur et ça va te créer un nouveau classeur que tu peux enregistrer sous... un nom au format TXT.

Tu peux exécuter tout ça avec l'enregistreur de macro et tu auras tout ce que tu as besoin. Juste quelques modifications selon tes besoins.

C'est simple et efficace.


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

speedou92 · Answer

Merci de ta réponse.

J'ai essayé, mais le problème est que ça me copie toutes les lignes, et je n'ai besoin que jusqu'à la dernière non vide...

speedou92 · Answer

Et la première, avec les intitulés de colonnes qu'il ne me faut pas

speedou92 · Answer

Je n'ai toujours pas trouvé de solution.

Mes lignes de données ont un format bien précis qu eje dois respecter dans le texte.

Le copier coller de mon code lors de mon premier post fonctionne très bien, c'est juste la première ligne qui est bloquante.

Avez vous des idées?

cs_MPi · Answer

Essaie comme ceci en adaptant à tes besoins

Sub CopieFichier()
    Dim I As Long, J As Long
    Dim nbLignes As Long, nbColonnes As Long
    Dim strTemp As String
    Dim FF As Integer
    
    nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
    nbColonnes = Cells(1, Columns.Count).End(xlToLeft).Column
    
    FF = FreeFile
    Open "C:\Test.txt" For Output As #FF
    
    For I = 2 To nbLignes
        strTemp = ""
        For J = 1 To nbColonnes
            strTemp = strTemp & Cells(I, J) & vbTab
        Next
        Print #FF, Left(strTemp, Len(strTemp) - 1)
    Next
    
    Close #FF
End Sub

[VB.NET -> VBA]Copier/coller Excel vers .txt - Problème de ligne vide

7 réponses

Votre réponse

Discussions similaires