probleme avec un csv

B

bebere

Guest

• 2 Janvier 2006

• #2

bonsoir Sonskriverez
à mettre dans le code de la feuille

Sub Separe()
Dim Plg, L As Integer

Plg = Range('A2:B' & Range('A65536').End(xlUp).Row)
For L = 1 To UBound(Plg, 1)
Range('C' & L + 1 & ':R' & L + 1).Value = Split(Plg(L, 1), ';')
Range('R' & L + 1).Value = Range('R' & L + 1).Value & Plg(L, 2)
Next L

Columns('C:E').Delete
Columns('D:E').Delete
Columns('C:M').AutoFit

End Sub

à bientôt

 

Vote positif 0 Vote négatif

S

sonskriverez

Guest

• 3 Janvier 2006

• #3

Merci bebere de te pemcher sur mon probleme.

Ton code fonctionne tant que le format reste cohérent par contre il y a une ou des lignes qui ont la rupture avant le prenom !!

En plus le fichier csv peut malheureusement avoir une structure différente. Le problème vient que dans la base de données d'origine il y a des champs avec un séparateur ',' dans le champ ex :
DUPONT, MAURICE.

Merci de ton aide [file name=CSV1.zip size=7452]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CSV1.zip[/file]

 

Pièces jointes

• CSV1.zip

  7.3 KB · Affichages: 17

Vote positif 0 Vote négatif

B

bebere

Guest

• 3 Janvier 2006

• #4

bonjour Sonskriverez,le Forum
une amélioration
je regarde tantôt pour concaténer nom,prénom
j'ai mis le résultat en feuil2
à bientôt [file name=CSV1_20060103143857.zip size=8417]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CSV1_20060103143857.zip[/file]

 

Pièces jointes

• CSV1_20060103143857.zip

  8.2 KB · Affichages: 11

Vote positif 0 Vote négatif

S

Sonskriverez

Guest

• 3 Janvier 2006

• #5

Eh bien, du bon boulot, cela se complique.

C'est quand même etrange que le csv tronque les champs dans lequel il y a une ','.
Je n'ai pas de pbl si je fait mon extraction en *.txt

 

Vote positif 0 Vote négatif

B

bebere

Guest

• 3 Janvier 2006

• #6

bonsoir

essaye la procédure AetB
elle concatène les 2 colonnes et puis la séparation dans diverses colonnes

à bientôt

 

Vote positif 0 Vote négatif

B

bebere

Guest

• 3 Janvier 2006

• #7

le fichier n'est pas passé [file name=CSV1_20060103211524.zip size=11361]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/CSV1_20060103211524.zip[/file]

 

Pièces jointes

• CSV1_20060103211524.zip

  11.1 KB · Affichages: 15

Vote positif 0 Vote négatif