Import de .csv

Bonjour à tous,
J'ai un problème, comme d'habitude:
j'ai un fichier csv, créé automatiquement par un logiciel, et j'aimerai l'importer par une macro dans un feuillet excel, et faire la mise en forme du tableau obtenu.
Avec le logiciel, je peux aussi obtenir un fichier txt, contenant ces mêmes informations. La macro fonctionne parfaitement avec le txt, mais le fichier csv pose problème.

Voici la partie du code chargée d'importer les lignes des fichiers, et de les ranger en colonnes, dans le cas du fichier txt.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'Ouverture et lecture du fichier à importer Open Fichier For Input As #1 While Not EOF(1) Line Input #1, a 'Copie des lignes dans excel ActiveSheet.Cells(NumRow + i, NumCol).Value = a i = i + 1 Wend Close #1   'Conversion des données délimitées par une virgule Set Plage = Range(Cells(NumRow, NumCol), Cells(NumRow + i, NumCol)) Plage.TextToColumns DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Comma:=True

---

Lorsque j'applique cela au csv, j'obtiens que la première ligne du document. En enlevant le TextToColumns, tout le document est copié dans une seule cellule .

La principale différence que je vois entre le csv et le txt est que le csv contient une ligne "sautée" au début, et trois à la fin. Les données (séparateurs ",", guillemets,...) sont identiques ensuite.
En convertissant le csv en txt, le bloc note ne parvient pas à lire les retours chariots (rectangle, comme pour les caractères inconnus)

J'ai déjà cherché sur le forum, beaucoup de solutions existent pour importer un csv dans un nouveau feuillet, mais moi, je veux l'intégrer à un feuillet déjà existant, et contenant d'autres données (d'autres csv et txt importés, en fait).
Pour l'instant, j'ai une solution temporaire, en passant par une querytable, mais celle ci insère une colonne pour chacune de ses colonnes, et décale donc le reste de mes données.

Quelqu'un a une idée pour m'aider?
Merci d'avance...

La méthode par le txt est la bonne (VBA 2003) cf http://www.developpez.net/forums/sho...d.php?t=298785
Ton problème se situe au niveau de l'intégration de ce csv dans ta feuille Excel. D'où ma question : Où veux-tu l'intégrer ? A la suite ?
Tu dis
A+

En fait, l'utilisateur désigne une cellule et la macro importe le txt ou le csv à l'endroit désigné.
Le tout tient sur un feuillet excel, qui a donc pour but de contenir plusieurs tableaux créés à partir de ces fichiers txt et/ou csv. (Le feuillet récapitule toutes ces données)
Vois tu?

Ok. Comme je m'en vais, je donne vite la procédure pour que l'utilisateur puis sélectionner une cellule où copier le csv. Ce sera à adapter et à placer après ouverture du csv.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim FL1 as Worksheet 'Feuille Excel ds laquelle sera incorporée le csv Dim FL2 as worksheet 'feuille csv Dim Adres as range Set FL1 = Workbooks("NomFichier.xls").Worksheets("NomDeLaFeuilleOùInsérerCsv") 'Ici le code pour ouvrir le csv renommé txt 'comme le csv est ouvert, la feuille active est le csv Set FL2 = ActiveSheet.name FL1.activate 'Le choix de la cellule où coller set Adres = Application.Inputbox("Sélectionner une cellule où copier le fichier",Type:=8) 'Sélection de la plage de données du csv Plage= FL2.Range("A1:" & cells(dernièreLigne, DernièreColonne).address).address 'tu as le code dans la FAQ ou sur le forum FL2.Range(Plage).copy FL1.Range(Adres.Address)

---

Désolé mais je dois partir.

Merci ouskel'nor !
Grâce à toi, et à du bidouillage, j'ai réussi à adapter à mon code, et ça donne ça:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Set Wbtarg = ActiveSheet 'classeur où je veux copier les données Set Wbcsv = Application.Workbooks.Open(Fichier) 'Fichier est le nom du fichier csv   Wbcsv.Activate PremiereLigne = Range("A1").End(xlDown).Row DerniereLigne = Range("A65536").End(xlUp).Row DerniereColonne = Range("IV2").End(xlToLeft).Column i = DerniereLigne - PremiereLigne + 1 'cette variable me permet de connaitre le nombre de lignes copiées. Non utilisé dans ce bout de code. Set Cible = Range("A1:" & Cells(DerniereLigne, DerniereColonne).Address) Cible.Copy Wbtarg.Activate CelTarg.Offset(1, 0).PasteSpecial 'CelTarg est la zone où on veut copier les données. 'L'offset est pour un souci de présentation Application.CutCopyMode = False Wbcsv.Close

---