pbm import de file

porcinet82

XLDnaute Barbatruc

• 27 Avril 2006

• #2

Salut Arnaud,

Et bien c'est tout simple, tu vas dans le menu Données puis Données externes et Importer le fichier textes....
Il te suffit ensuite de suivre les instructions.

Si tu n'y arrives pas, n'hesite pas a refaire signe.

@+

 

Vote positif 0 Vote négatif

A

arnaud

Guest

• 28 Avril 2006

• #3

je souhaite que ce soit une macro. et que cela s execute lorsque je ferai une action.
merci

 

Vote positif 0 Vote négatif

S

soft

XLDnaute Occasionnel

• 28 Avril 2006

• #4

Bonjour Arnaud, Porcinet82,

Instruction VBA pour ouvrir un fichier texte avec reprise dans les cellules :

Code:

Workbooks.OpenText Filename:='xxxx.txt', DataType:=xlDelimited, other:=True, otherchar:=';'

Bien sûr, il faudra éventuellement modifier le caractère de séparation en fonction du fichier (dans l'exemple c'est un .

 

Vote positif 0 Vote négatif

A

a

Guest

• 28 Avril 2006

• #5

je souhaite que ces données soient importées sur la feuille sur laquelle je travaille (du nom de outputs) or cette manip importe les données sur une autre feuille.
merci d avance

 

Vote positif 0 Vote négatif

S

soft

XLDnaute Occasionnel

• 28 Avril 2006

• #6

je souhaite qu'excel ouvre un fichier txt

Cliquez pour agrandir...

J'ai répondu à cette partie de ta question.
Pour la deuxième partie :

et le copie sur une de ses feuilles avec chaque element
dans une case differente.

Cliquez pour agrandir...

C'est du BABA en VBA ...

Autre solution c'est de lire directement dans le fichier txt ...

 

Vote positif 0 Vote négatif

A

a

Guest

• 28 Avril 2006

• #7

je ne l ai pas indiqué mais je suis debutant sur vba alors le baba je ne le connais pas. mais merci quand meme pour la reponse
a plus

 

Vote positif 0 Vote négatif

S

soft

XLDnaute Occasionnel

• 30 Avril 2006

• #8

Procédure complète :

Code:

Sub ImporteTexte()
    Dim Classeur As String, FichierTexte As String, FeuilleDestination As String
    FichierTexte = 'C:\\xxx.txt'
    FeuilleDestination = 'outputs'
    Classeur = ActiveWorkbook.Name
    Workbooks.OpenText Filename:=FichierTexte, DataType:=xlDelimited, other:=True, otherchar:=';'
    Cells.Copy Destination:=Workbooks(Classeur).Sheets(FeuilleDestination).Range('A1')
    ActiveWindow.Close
End Sub

Message édité par: soft, à: 30/04/2006 10:14

 

Vote positif 0 Vote négatif