Macro VBA pour copier/coller d'EXCEL vers fichier txt

Macro VBA pour copier/coller d'EXCEL vers fichier txt - VB/VBA/VBS - Programmation

Marsh Posté le 25-07-2013 à 11:32:00    

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 :
  1. Dim ws As Worksheet
  2. User_code = Environ("Username" )
  3. Dim FileNum As Integer, cl As Range, z As Integer, y As Integer
  4. Dim myStr As String
  5. FileNum = FreeFile
  7. logfile = "C:\Documents and Settings\" & User_code & "\Mes documents\mandats_" & Format(Date, "yyyymmdd" ) & "_" & Format(Time, "hhmmss" ) & ".txt"
  8. Set ws = ActiveWorkbook.Worksheets("Données globales" )
  11. Open logfile For Append As #FileNum
  13. z = 14000
  15. For Each cl In Range(Cells(2, 1), Cells(derlig, 53))
  17.        y = cl.Row
  19. If y = z Then
  20. myStr = myStr & cl
  22. Else: Print #FileNum, myStr
  23.        z = cl.Row
  24.        myStr = "": myStr = myStr & cl
  26.     End If
  27. Next
  29. Print #FileNum, myStr
  30. Close #FileNum
  33. 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.

Reply

Marsh Posté le 25-07-2013 à 11:32:00   

Reply

Marsh Posté le 25-07-2013 à 15:29:31    

 
           Bonjour,
 
           même réponse que sur l'autre forum :  si ton test échoue en ligne n°19, la ligne n°22 enregistre même si la variable myStr est vide ‼
 
           De toute manière, suis ce qu'il se passe en mode pas à pas via la touche F8 tout en surveillant le contenu des variables …
 
           T'en es au moins à ton troisième forum, t'en veux d'autres ?‼   :sarcastic:  
 

Reply

Marsh Posté le 25-07-2013 à 17:47:41    

Je ne suis pas experte, j'essaie de résoudre mon problème.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed