supprimer les retour à la ligne pour export CSV

supprimer les retour à la ligne pour export CSV - VB/VBA/VBS - Programmation

Marsh Posté le 26-01-2007 à 11:52:06    

Bonjour à tous,
Voila, le client m'a donné un fichier XLS avec des données pour inserer dans une base de donnée en PHP, j'ai donc  besoin d'exporter tout ça dans un fichier CSV...
Le problème c'est que dans certains champs il a utilisé le retour à la ligne (\n)
 
... hors.. dans mon script, un retour à la ligne signifie "nouvelle ligne";
 
j'aimerai donc retirer ces retours à la ligne dans le fichier XLS
 
en fouillant sur le web j'ai trouvé ça :

Code :
  1. Sub quelcaractere()
  2. Dim old_text As String
  3. Dim new_text As String
  5. For i = 2 To 15444
  6.    
  7.     If Range("AD" & i).Value <> "" Then
  8.     old_text = Range("AD" & i).Value
  9.     new_text = Replace(old_text, Chr(10), " - " )
  10.     new_text = Replace(new_text, Chr(13), " - " )
  11.     new_text = Replace(new_text, "  ", " " )
  12.     Range("AC" & i).Value = new_text
  13.     End If
  14. Next
  15. End Sub


 
.. le probleme c'est que j'y connais pas grand chose en VB... pour vous dire je sais même pas ou je devrais coller ce bout de code dans Excel !!
 
 
Help me pleeease !!
 
:jap:
Freed

Reply

Marsh Posté le 26-01-2007 à 11:52:06   

Reply

Marsh Posté le 26-01-2007 à 12:03:25    

c bon ! un collegue qui connait un peu VB m'a aidé :
 

Code :
  1. Sub quelcaractere()
  3. Dim old_text As String
  4. Dim new_text As String
  5. For i = 2 To 1500
  6. If Range("C" & i).Value <> "" Then
  7. old_text = Range("C" & i).Value
  8. new_text = Replace(old_text, Chr(10), "|" )
  9. Range("C" & i).Value = new_text
  10. End If
  11. Next
  12. End Sub

Reply

Sujets relatifs:

Leave a Replay

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