VBA - Perte de données suite enregistrement en CSV

Version imprimable

Bonjour,
Je rencontre actuellement un problème lors de la sauvegarde des données de mes traitements sous le format CSV.

Je récupère des informations d'un fichier XLS avec une macro via un tableau.

A partir d'une nouvelle feuille XLS, je retraite les données et les intègre.
Mon nouveau tableau compte plusieurs lignes devant contenir 139 colonnes, pleines ou vides, avec pour séparateur ",".
Seulement, lors de la sauvegarde des données sous format CSV, je me retrouve avec les 16 premières lignes comptant 139 données mais les suivantes seulement 97. (je précise que les 42 dernières données de chaque ligne doivent être vides exepté pour une ligne correspondant au nom des colonnes)

J'ai testé d'ajouter un espace dans la dernière colonne, je me retrouve avec un fichier carré avec 139 colonnes mais mon fichier est rejeté lors des traitements à cause de l'espace, de même j'ai ajouté une 140ème colonne pleine que je supprime avant enregistrement final mais je me retrouve toujours avec un tableau asymétrique.

Je vous mets la partie principale du mon code :
Code:

1 2 3 4 5 6 7 For m = 0 To n Range("A" & m + 6 & ":EI" & m + 6).Value = Array("EX", Right(Date, 4) & Right(Left(Date, 5), 2) & Left(Date, 2) & "_EX_" & m + 1, "1", "N", "OT", "L", "F4", "PR", "L", "SY", "", "", tab_NE(m, 3) & tab_NE(m, 4), "E", "OT", "FU", tab_NE(m, 14), tab_NE(m, 15), "", _ tab_NE(m, 17), "", "", "", "", tab_NE(m, 22), "N", tab_NE(m, 23), tab_NE(m, 17), tab_NE(m, 25), tab_NE(m, 26), tab_NE(m, 27), "", _ tab_NE(m, 28), Left(tab_NE(m, 29), 19) & "Z", Left(tab_NE(m, 29), 10), tab_NE(m, 30), "", tab_NE(m, 32), "", "", Left(tab_NE(m, 29), 19) & "Z", "E", "Y", "Y", Left(tab_NE(m, 34), 19) & "Z", tab_NE(m, 35), tab_NE(m, 36), "N", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", _ "N", "", "CR", "FR", "FR", "C", "F", "", "", "", "", "", "", "", "", "P", tab_NE(m, 51), "N", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "") Next m
Avez-vous déjà rencontré ce problème et l'avez-vous résolu ?

Je vous remercie par avance.
Bien cordialement

23/04/2014, 12h00
Docmarti

Bonjour la_caisse.

Question 1 : Quelle méthode utilises-tu pour la sauvegarde en csv ?
Question 2 : Pourquoi les 16 premières lignes comptent 139 données et les suivantes 97 ?
Il faudrait voir un fichier XLS contenant les 20 premières lignes pour pouvoir situer la cause du problème.
23/04/2014, 12h11
la_caisse
Bonjour Docmarti et merci pour ton retour :

1/ j'utilise le code suivant pour enregistrer au format CSV :
Code:

1 2 ActiveWorkbook.SaveAs Filename:="H:\My Documents\EX_" & Right(Date, 4) & Right(Left(Date, 5), 2) & Left(Date, 2) & ".csv", FileFormat:=xlCSV, CreateBackup:=False
2/ Mon besoin est d'avoir 139 caractères par lignes et non 97.
Seulement, il ne prend en compte que les 11 lignes supérieures et inférieures à la ligne qui en comporte réellement 139 de pleines.
Les autres s'arrêtent à la dernière valeur pleine.

Merci beaucoup
Cdt
23/04/2014, 12h12
Marc-L

Bonjour,

en connaissant le nombre de lignes à traiter, il serait judicieux de définir
une variable tableau du nombre de lignes par le total de colonnes puis d'y alimenter le nécessaire …

Ensuite en utilisant la fonction Join avec le séparateur vbNewLine par exemple
il est possible de créer l'intégralité du texte à sauvegarder en une seule fois ! (Exemple ici)

Sinon un classeur avec une feuille source et un fichier texte désiré en pièces jointes éclairciraient le besoin réel
car 139 données (colonnes) puis 139 caractères ne représentent pas du tout la même chose ‼

De la précision nait la solution …
23/04/2014, 12h14
mercatog

Un petit HS, on pourra utiliser le format de date comme ceci

Code:

ActiveWorkbook.SaveAs Filename:="H:\My Documents\EX_" & Format(Date, "yyymmdd") & ".csv", FileFormat:=xlCSV, CreateBackup:=False
23/04/2014, 13h07
la_caisse

Citation:

Envoyé par Marc-L

Bonjour,

en connaissant le nombre de lignes à traiter, il serait judicieux de définir
une variable tableau du nombre de lignes par le total de colonnes puis d'y alimenter le nécessaire …

Ensuite en utilisant la fonction Join avec le séparateur vbNewLine par exemple
il est possible de créer l'intégralité du texte à sauvegarder en une seule fois ! (Exemple ici)

Sinon un classeur avec une feuille source et un fichier texte désiré en pièces jointes éclairciraient le besoin réel
car 139 données (colonnes) puis 139 caractères ne représentent pas du tout la même chose ‼

De la précision nait la solution …

Au temps pour moi, je suis désolé pour cette erreur de syntaxe.
Il s'agit bien de 139 colonnes/données que je souhaite créer.

Donc à partir de mon fichier source, je ne suis pas obligé de passer par un feuille excel intermédiare avant de sauvegarder en CSV.
C'est intéressant mais je ne suis arrivé au bout de mes peines.

Merci

Exemple de scenario :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Dim COL$(1 To 139)  ' tableau colonnes pour une ligne
 
       DT$ = Format(Date, "yyyymmdd") & "_EX_"
    COL(1) = "EX":  COL(3) = "1":  COL(4) = "N"     ' etc ... éléments fixes
 
    For m& = 0 To n    ' début traitement lignes
        COL(2) = DT & m + 1     ' début éléments variables
 
        ' Une fois les éléments variables définis, conversion en ligne de texte :
        If T$ > "" Then T = T & vbNewLine
        T = T & Join(COL, ",")
    Next
 
    '   Ecriture du fichier :
    Open "D:\Tests\Test.csv" For Output As #1:  Print #1, T:  End

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

23/04/2014, 14h45
la_caisse

Un grand merci pour cette aide.
Cordialement
L.
24/04/2014, 14h38
Docmarti

J'aimerais quand même savoir comment il est parvenu à créer un fichier CSV à colonnes asymétriques avec cette commande :

Code:

ActiveWorkbook.SaveAs Filename:="H:\My Documents\EX_" & Right(Date, 4) & Right(Left(Date, 5), 2) & Left(Date, 2) & ".csv", FileFormat:=xlCSV, CreateBackup:=False
25/04/2014, 15h27
la_caisse

C'est à cause de l'ouverture d'un fichier csv sous excel puis la sauvegarde de celui-ci sous csv.
Il ne prend pas les valeurs vides.

Je ne suis pas arrivé à reproduire cette situation.

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub CSV_Open_SaveAs()
 
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\client\Mes documents\Test_CSV.csv"
 
        chemin = ThisWorkbook.Path & "\test_CSV_Sauver_CSV.csv"
 
ActiveWorkbook.SaveAs Filename:=chemin, FileFormat:=xlCSV, CreateBackup:=False
 
 
End Sub