Discussion :

[Kobaal]

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 :

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

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...

[ouskel'n'or]

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+

[Kobaal]

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?

[ouskel'n'or]

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 :

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

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.

[Kobaal]

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

Code :

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

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