pbm import de file

[arnaud]

rebonjour
je souhaite qu'excel ouvre un fichier txt et le copie sur une de ses feuilles avec chaque element dans une case differente.
merci

 

[porcinet82]

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.

@+

 

[arnaud]

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

 

[soft]

Bonjour Arnaud, Porcinet82,

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

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 .

 

[a]

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

 

[soft]

je souhaite qu'excel ouvre un fichier txt

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.

C'est du BABA en VBA ...

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

 

[a]

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

 

[soft]

Procédure complète :

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