speedou92 | Bonjour à tous,
Je souhaite copier/coller des colonnes dans un fichier txt.
Tout fonctionne bien sauf que le fichier txt créé met une ligne vide en premier... ce qui est bloquant pour la suite du traitement nécessaire.
Voici le code :
Code :
- 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
- 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
- MsgBox "Le fichier text est prêt sous : " & logfile
|
Est ce que l'un d'entre vous saurait m'indiquer pourquoi cette première ligne vide apparaît, et comment l'enlever? Merci de votre réponse. |