Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1404 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2198711
speedou92
Posté le 25-07-2013 à 11:32:00  profilanswer
 

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
  6. logfile = "C:\Documents and Settings\" & User_code & "\Mes documents\mandats_" & Format(Date, "yyyymmdd" ) & "_" & Format(Time, "hhmmss" ) & ".txt"
  7. Set ws = ActiveWorkbook.Worksheets("Données globales" )
  8. Open logfile For Append As #FileNum
  9. z = 14000
  10. For Each cl In Range(Cells(2, 1), Cells(derlig, 53))
  11.        y = cl.Row
  12. If y = z Then
  13. myStr = myStr & cl
  14. Else: Print #FileNum, myStr
  15.        z = cl.Row
  16.        myStr = "": myStr = myStr & cl
  17.     End If
  18. Next
  19. Print #FileNum, myStr
  20. Close #FileNum
  21. 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.

mood
Publicité
Posté le 25-07-2013 à 11:32:00  profilanswer
 

n°2198754
Marc L
Posté le 25-07-2013 à 15:29:31  profilanswer
 

 
           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:  
 

n°2198775
speedou92
Posté le 25-07-2013 à 17:47:41  profilanswer
 

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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Fonction VBA/Excel : récupérer les données d'un classeurAjout automatique d'une ligne sur excel avec couleur
[PHP/JS]Passage de valeurs php vers une fonction JSscript ftp --> les débits pas affichés dans le fichier de resultats
VBA Excel 2010: Lancer un fichier .bat / copier TOUT contenu d'1 .xtxcode php de convertisseur vers pdf
Plus de sujets relatifs à : Macro VBA pour copier/coller d'EXCEL vers fichier txt


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR