Importer donnees txt dans une procedure vba

[coca cola]

bonjour a tous
j ai un petit pb d'importation en vba
je dispose d un tableau au format txt et je voudrais le charger dans un tableau d'une procedure vba
je voudrai savoir si cest possible et si oui comment faire?
Merci d'avance!

 

[Moa]

Vite fait, je dois partir !

Tu lances l'enregistreur de macro et tu fais ta manip manuellement et voilà ta macro est écrite.

@ +

Moa

 

[coca cola]

je crois pas que ce soit si simple
en fait j aimerai que qd je clique qur un bouton il me lance la fenetre "ouvrir un fichier " et qu ensuite une fois le fichier chargé il soit directement chargé dans un tableau vba.Si c est pas possible j aimerai pouvoir le stocker dans une feuille excel du meme classeur
je sais pas si je suis tres clair...
En tout ca smerci Moa de m avoir repondu 🙂

 

[Moa]

Re Coca !

Si si, c'est si simple, il te faut d'abord faire ta macro, puis avec le menu outils créer un bouton de commande, puis affecter ta macro à ce bouton de commande.

Puis ensuite tu ouvres ta macro et tu modifies selon ton besoin quelques petites choses.

Un exemple fait comme décrit ci-dessus :

Workbooks.OpenText Filename:= _
"C:\Documents and Settings\Robin\Mes documents\Apropos.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, _
1), Array(86, 1), Array(97, 1))

Voilà !

@ +

Moa

 

[coca cola]

bonsoir bonsoir

excuse mon ignorance mais meme en modifiant le code j arrive pas a lancer une interface qui demande quel fichier ouvrir(avec le code que tu me donnes on peut juste ouvrir un fichier predeterminé ici Apropos.txt)
en plus il s ouvrira dans un nouvo classeur et ca je veux pas

en tout cas merci de te pencher sur mon pb

A+
Coca (Cola)

 

[michel]

bonsoir Coca cola , bonsoir Moa

je ne suis pas sur d'avoir bien compris ta demande mais la macro ci dessous transfert un tableau de fichier txt ( formé de 3 lignes et 3 colonnes...à adapter pour ton projet... ) ,vers un tableau dynamique Excel .


Sub FichierTexteVersExcel3()
Dim Tableau(3, 3) ' à adapter selon nb lignes et colonnes dans fichier txt
Dim a As Integer, b As Integer, i As Integer
Dim Fichier As String, Textline As String
Dim Ctrl As Boolean

Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Open Fichier For Input As #1
a = 1
Ctrl = False
Do While Not EOF(1)
Line Input #1, Textline
b = b + 1
For i = 1 To Len(Textline)
If Mid(Textline, i, 1) <> " " Then
Tableau(a - 1, b - 1) = Tableau(a - 1, b - 1) & Mid(Textline, i, 1)
Ctrl = True
Else
If Tableau(a - 1, b - 1) <> "" And Ctrl = True Then
a = a + 1
Ctrl = False
Tableau(a - 1, b - 1) = Mid(Textline, i, 1)
End If
End If
Next i
a = 1
Loop
Close #1

End Sub

bonne soirée
michel

 

[coca cola]

Bonsoir
Merci bcp Michel c' est ca qu il me fallait
je vais essayer de l adapter a ce que je veux faire
je vous tiens au courant
Bonne soiree
Coca Cola