Discussion :

[eriz]

Bonjour,
J'ai un fichier Excel avec 30 entêtes et 200 lignes environ.
Dans la plupart des lignes les champs correspondant à mes 4 derniers entête sont vides.

entète1;entète2;entète3;...;entèteN-3;entèteN-2;entèteN-1;entèteN
toto;lmdmù;...;tata;;;;

Mon problème est que quand j'esporte en csv dans les 16 premières ligne j'ai bien mes 4 points virgules de fin. Cependant a partir de la 17ième j'ai plus les points virgule en fin de ligne.
toto;lmdmù;...;tata

ça me pose un gros soucis pour faire des traitements.

Quelqu'un A t'il une idée ?
Est-ce un beug d'Excel ?

[MARCELBENH]

Bonjour,

Essaye de recopier les cellules vides à la fin de ta 16 eme ligne vers le bas

[eriz]

Je viens d'essayer ça ne change rien ...

[eriz]

Je pense vraiment que c'est un beug Excel ... Personne n'aurais une idée ?

[ludojojo]

si tu ouvre le fichier en mode texte, avec le bloc note par exemple, à l'endroit où tu il te manque les ";" as tu un (ou plusieurs) retour à la ligne ou est ce que le reste des enregistrements est à la suite?

[DeaD78]

Salut,

Tu peux aussi contourner le problème en complétant avec des points virgules toi-même aux bons endroits :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = 17 to 200 'De la ligne 17 à la ligne 200
    For j = 27 to 30 'De la colonne 27 à la colonne 30. Les 4 dernières colonnes donc
        Cells(i,j).Value = ";"
    Next
Next

Ca sera plié en 10 secondes de cette façon.

A+

[ludojojo]

En fait je lui posait la question :

si tu ouvre le fichier en mode texte, avec le bloc note par exemple, à l'endroit où tu il te manque les ";" as tu un (ou plusieurs) retour à la ligne ou est ce que le reste des enregistrements est à la suite?

Dans le but de lui faire rajouter ces ligne par le biais soit de macro, comme tu le propose ou par script vbs, tout simple.

C'est à toi de voir ce que tu préfères comme solution. (VBA ou VBS)

[ludojojo]

Au fait pour information tu utilises 2003 ou 2007?