Discussion :

[iperkut]

Bonjour,
Voici le petit problème que je rencontre.

Je travaille sur un fichier "test.xslx"
Je désire pouvoir ouvrir dans la feuille 2 (Feuil2) du fichier "test.xlsx" un fichier "toto.txt" .

J'arrive a ouvrir ce fichier texte via un code vba, mais il ne s'ouvre pas dans "test.xslx" mais dans un fichier "toto.xslx" qui se crée automatiquement.

J'espère avoir été clair.

Merci d'avance.

[jfontaine]

Bonjour,

Ne sachant quelle méthode tu as utiliser, ci joint un lien qui te reporte a l'une d'elle

http://www.developpez.net/forums/d79...s-tableau-xls/

[iperkut]

Voici mes deux fichiers, je vais tenter d'être plus clair.

http://www.cijoint.fr/cjlink.php?fil...cijwNbG6Ai.txt
http://www.cijoint.fr/cjlink.php?fil...ij5K1rIdF.xlsm

le 1er d'entre eux est donc un .txt contenant des données de la forme :

bd1swr01,sc0,52279328,673320584
bd1swr01,7/21,123614356,793793353

J'ai élaboré un macro vba permettant de séparer l'ensemble de la chaine à chaque ",".

Ainsi voici le résultat obtenu :

bd1swr01,sc0,52279328,673320584 => A1
bd1swr01 => B1
sc0 => C1
52279328 => D1
ect...
bd1swr01,7/21,123614356,793793353 => A2
bd1swr01 => B2
7/21 => C2


Les données (brut) à séparer se trouvent donc dans la colonne A.

Pour tester ma macro j'ai moi même copier ces données dans la colonne.

Mon souhait maintenant est donc de "venir copier" le contenu de mon fichier texte dans la colonne A afin de pouvoir le traiter.

[jfontaine]

Voila un code

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
16
17
18
19
20
21
22
23
24
25
Dim strChaine As String
Dim strSplit() As String
Dim i As Integer
Dim lngLigne As Long
 
Open "C:\now.txt" For Input As #1
 
lngLigne = 1
 
Do While Not EOF(1)
 
    Line Input #1, strChaine
    strSplit = Split(strChaine, ",")
 
    Cells(lngLigne, 1).Value = strChaine
 
    For i = 0 To UBound(strSplit)
        Cells(lngLigne, i + 2).Value = strSplit(i)
    Next i
 
    lngLigne = lngLigne + 1
 
Loop
 
Close #1

[iperkut]

Tout d'abord merci de l'interet que tu portes à mes problèmes

pour le code, c'est presque ca.

le problème est que toutes les valeurs sont stockés dans la cellule A1, alors que je souhaite quelles soient en A1, A2, A3, ect....

ex:

bd1swr01,sc0,52279328,673320584 en A1
bd1swr01,1/2,4123108213,3525804907 en A2
bd1swr01,5/1,2627512914,953345304 en A3

et après la séparation (avec les "," ) je sais la faire avec la fonction que j'ai réalisé. Il faut juste arriver a charger correctement ces valeurs dans la colonne A.


je vais me pencher dessus et essayer de trouver une solution.

[mercatog]

Le code proposé par jfontaine fait tout ce que tu demande

Code :

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

1
2
3
4
5
6
7
    strSplit = Split(strChaine, ",")
 
    Cells(lngLigne, 1).Value = strChaine  'Copie en A toute la ligne brute
 
    For i = 0 To UBound(strSplit)
        Cells(lngLigne, i + 2).Value = strSplit(i) 'copie dans les colonnes suivantes les données 'séparés par un ","
    Next i