[EXCEL & VBA] Résolu/Fermé

Question

Bonjour, 

je cherche à créer une macro qui me permettra d'importer le contenu de fichiers .csv (ou .xls si c'est pas possible pour .csv) dans un fichier excel.

Plus de precision:
-J'ai disons une quarantaine de fichier CSV avec mes données;
-je souhaite que ma macro aille cherche les données du premier fichier les copie dans une nouvelle feuille de mon classeur puis passe au fichier suivant dans une nouvelle feuille, etc...

Merci d'avance!
Si c'est pas clair n'hésitez pas a posez des questions

pijaku · Answer

Salut,
Je te recommande vivement cette astuce, ma foi fort bien trouvée...

lermite222 · Answer

Bonjour à tout les deux,
Désolé pour le retard, je n'ai vu ton message qu'à l'instant.
En lisant le topic je ne vois pas d'exposé sur un quelquonque problème.
Quel est-il ?
A+

Kinslown · Answer

Bonjour lermite,

Mon probleme est le suivant:
je cherche à importer automatiquement des données se trouvant sur une grand quantité de fichier .csv dans le meme classeur EXCEL.
Pijaku m'a dirigé vers une astuce, dont tu sembles etre l'auteur, qui permet la conversion de fichier csv en xls.

Le probleme: la macro fait la sépartion sur les virgules malgré la modification dans le code pour qu'elle se fasse sur des points-virgules.
Voila :]

lermite222 · Answer

J'ai déjà rencontré certains problème quand par exemple le séparateur est le ";" mais que dans le fichier il y a des "," 
Tu pourrais me passer un de tes fichiers, sur CiJoint.Com, le lien sur un poste suivant ou en MP si confidentiel ?  

L'expérience instruit plus sûrement que le conseil. (André Gide)    
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

Y a une erreur dans le code ..
En fait, ta dernière donnée n'est pas prise en compte ??? c! c'est bien ça, (mais de toutes façons faut changer)

        For i = 0 To UBound(TB) - 1
            .Cells(Lig, i + 1) = TB(i)
        Next i
PAR...
        For i = 0 To UBound(TB) 
            .Cells(Lig, i + 1) = TB(i)
        Next i
Faut enlever le -1,.
Comprend pas, ce code à déjà été charger des centaines de fois et j'ai jamais eu de retour!!
Si tu a encore un problème c'est le fichier Csv "réel" que je dois avoir car ce que tu m'a communiquer c'est déjà sur Excel.
A+

lermite222 · Answer

J'ai créer un fichier Csv à partir des données que tu m'a communiqué. 
J'ai tester la macro et à part le "-1" tout fonctionnait normalement. 
J'ai penser dans un premier temps que les guillemets placer à l'intérieur de la ligne pouvait influencer mais pas du tout 
Enfin bon, si tu change d'obption... 
A+ 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)