Importer des datas d'un fichier csv

[Dan Paul]

Bonjour,

j'aimerais importer les donnes d'un fichier .csv dans mon classeur excel.

Le fichier .csv contient seulement une feuille qui est dont le nom est le meme que le nom du fichier .csv.

J'aimerais importer la feuille au complet dans une feuille deja existante de mon fichier excel. Cependant, cette feuille n'est pas celle presentement ouverte.

Si possible, j'aimerais que tout se fasse en background... que l'utilisateur clique sur le bouton de la macro et que tout se fasse sans que sa n'apparaissent a l'ecran.

        Open "E:\Project 1\1008_123_1.csv" For Input As #1
        Do While Not EOF(1)
            Line Input #1, Textline
            Debug.Print Textline
        Loop
        Close #1

Sa ne marche pas du tout....

Merci!!

 

[MJ13]

Re : Importer des datas d'un fichier csv

Bonjour

Plutôt que

 Debug.Print Textline

J'aurai mis:

cells(i,1).value=Textline:i=i+1

 

[kiki29]

Re : Importer des datas d'un fichier csv

Salut, 2 manières d'y parvenir, à adapter à ton contexte

 

[Dan Paul]

Re : Importer des datas d'un fichier csv

Merci kiki29 c'est exactement ce que je voulais!

Mais est-il possible d'ecrire les donnes dans des colonnes differentes?

par exemple la valeur de la cellule B2 du fichier csv serait copie dans la cellule B2 du fichier excel;

 

[kiki29]

Re : Importer des datas d'un fichier csv

Salut,si j'ai bien compris ta demande à priori jouer sur iRow et iCol de depart pour décaler les données

    iRow = 1
    Open NomFichier For Input As #NumFichier
        Do While Not EOF(NumFichier)
            iCol = 2: iRow = iRow + 1
	    .....

 

[MJ13]

Re : Importer des datas d'un fichier csv

Bonjour Dan, Kiki29

Euh, j'ai peut-être dit une bétise.