Conversion csv en xml

[ledaf]

Bonjour à tous,

Bon je vais essayer d'être clair car je ne peux pas vous envoyer mes fichiers étant donné qu'ils sont trop volumineux.
Voilà j'ai 3 fichiers:
Le 1er: "mise_en_forme"
Le 2ème: "3ème trimestre 2009"
Le 3ème: "facture_SFR"

Mon but est de convertir les données csv du 3ème fichier vers le 2ème, tout ça grâce aux macro du 1er.
Mon pb se situe sur le fait que le 3ème fichier contient plus de 35000 lignes, or lors de la conversion, il prend en compte que 32767 lignes.

Comment faire pour prendre tout en compte?

Voici la fonction que j'utilise pour la conversion:

TransposeImportTextFile TextBoxsourcecvs.Text, ";", "SFR"

En vous remerciant.

 

[jeanpierre]

Re : Conversion csv en xml

Bonjour ledaf,

Tu dois avoir une variable déclarée en Integer, modifie cette déclaration en Long.

Bonne journée.

Jean-Pierre

 

[ledaf]

Re : Conversion csv en xml

Oui j'y aie pensé, mais bon là dans ma formule, je ne fais appel à aucune variable, mais plus à un nom de fichier.
N'y a t'il pas un autre moyen pour vous envoyer mes fichiers, vous comprendrez mieux avec je pense.

 

[ledaf]

Re : Conversion csv en xml

Ou sinon y aurait-il une autre façon de faire, que la fonction que j'utilise?

 

[gwenlorin]

Re : Conversion csv en xml

Bonjour ledaf,

peut être en lisant le fichier texte ligne par ligne.
Code à adapter et non testé

Sub lecture()
Dim Maligne
Dim splité

Open "c:\test.csv" For Input As #1 ' ouverture du fichier

Do While Not EOF(1) ' boucle jusqu'à fin de fichier.
   Input #1, Maligne ' lecture de la ligne et stockage dans la variable
   splité = Split(Maligne, ";") 'éclatement données lues avec séparateur

   For i = 0 To UBound(splité) 'écriture dans une feuille excel
      ActiveSheet.Cells(ActiveSheet.Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 1, i + 1) = splité(i)
   Next i

Loop

Close #1 'fermeture du fichier

End Sub

 

[ledaf]

Re : Conversion csv en xml

Ca n'a pas l'air de fonctionner...

 

[gwenlorin]

Re : Conversion csv en xml

Re,

Après test sur mon code je dirais :
Le nom du fichier et son chemin est bien sur à adapter dans la macro

Sub lecture()
Dim Maligne
Dim splité

Application.ScreenUpdating = False
ActiveSheet.Cells.ClearContents

Open "C:\classeur1.csv" For Input As #1 ' ouverture du fichier
temp = 0

Do While Not EOF(1) ' boucle jusqu'à fin de fichier.
   Input #1, Maligne ' lecture de la ligne et stockage dans la variable
   splité = Split(Maligne, ";") 'éclatement données lues avec séparateur
   temp = temp + 1
   'écriture dans une feuille excel
   For i = 0 To UBound(splité) 'écriture dans une feuille excel
        ActiveSheet.Cells(temp, i + 1) = splité(i)
   Next i
    
Loop

Close #1 'fermeture du fichier

Application.ScreenUpdating = True
End Sub

 

[ledaf]

Re : Conversion csv en xml

Justement je ne vois pas du tout où est ce que je dois spécifié le fichier où je colle mes données.
N'y a t'il pas un moyen pour que je t'envoie mes fichier?
Tu verras de suite le pb je pense.

 

[gwenlorin]

Re : Conversion csv en xml

Zippes et déposes tes fichiers.
si pb de taille déposes les sur ci-joint.fr et postes le lien de téléchargement.

 

[ledaf]

Re : Conversion csv en xml

Ci joint l'adresse où se trouve les docs:
Cijoint.fr - Service gratuit de dépôt de fichiers

Dans le fichier "mise en forme" penser à modifier le chemin où se trouve le fichier "2ème trimestre 2009", afin que la macro fonctionne.
Le 3ème fichier correspond à la facture SFR du moi de juin, donc appartenant au second trimestre.

Je te remercie.

 

[gwenlorin]

Re : Conversion csv en xml

Re,

ci-joint le fichier de la macro modifié.
J'ai utilisé la fonction Données > Données externes > importer ... pour récupérer tes données de ton fichier csv.

test voir si tout fonctionne car n'ayant pas modifié les chemins vers les autres fichiers j'ai des erreurs au moment du remplissage du fichier 2° trimestre.

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[ledaf]

Re : Conversion csv en xml

Ouah génial ça marche parfaitement!!!
Je te remercie bcp!!

 

[gwenlorin]

Re : Conversion csv en xml

De rien.

En passant, comme l'import des données est un peu long tu devrais ajouter des infos sur l'exécution.
application.statusbar = "Traitement en cours ..." -> Ca affiche le message en bas à gauche dans Excel

En fin de traitement un application.statusbar ="" efface le message