Importer donnees txt dans une procedure vba

M

Moa

Guest

• 29 Janvier 2004

• #2

Vite fait, je dois partir !

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

@ +

Moa

 

Vote positif 0 Vote négatif

C

coca cola

Guest

• 29 Janvier 2004

• #3

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

 

Vote positif 0 Vote négatif

M

Moa

Guest

• 29 Janvier 2004

• #4

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

 

Vote positif 0 Vote négatif

C

coca cola

Guest

• 29 Janvier 2004

• #5

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)

 

Vote positif 0 Vote négatif

M

michel

Guest

• 29 Janvier 2004

• #6

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

 

Vote positif 0 Vote négatif

C

coca cola

Guest

• 29 Janvier 2004

• #7

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

 

Vote positif 0 Vote négatif