Import de fichier texte

[Fabien]

Bonjour a tous.
Voila je voilais savoir si il est possible d'importer dans excel un fichier texte sur plusieurs feuilles, c'est a dire que j'ai un fichier texte et je veu pouvoir l'importer non pas tout dans la meme feuille mais une partie dans la feuille1, une autre dans la feuille2...etc
est-ce possible nativement, c'est a dire en mettant un certain format dans le fichier texte (en separant chaque feuille par un caractere special) ou bien doit on passer par du VBA

 

[Fabien]

Personne n'est capable de me repondre???ou bien c'est pas clair

 

[MichelXld]

bonjour Fabien

j'espere que cet exemple pourra t'aider

Sub lireFichierTexte()
Dim Lignes As String
Dim i As Integer, x As Integer, j As Integer, Feuille As Integer
Dim Tableau() As String
Dim Wb As Workbook

Set Wb = Workbooks.Add(1) 'creation d'un nouveau classeur pour importer les données
Feuille = 1

Open 'C:\\\\\\\\Documents and Settings\\\\\\\\michel\\\\\\\\dossier\\\\\\\\monFichier.txt' For Input As #1
Do While Not EOF(1) 'boucle sur les lignes du fichier texte

Line Input #1, Lignes

i = i + 1
j = j + 1
If j = 21 Then 'il y aura 20 lignes par feuille
j = 1
Feuille = Feuille + 1
Wb.Sheets.Add after:=Worksheets(Worksheets.Count)
End If

Tableau = Split(Lignes, ';') 'le separateur est le point virgule dans le fichier texte

For x = 0 To UBound(Tableau)
Sheets(Feuille).Cells(j, x + 1) = Tableau(x)
Sheets(Feuille).Cells(j, x + 1).Interior.ColorIndex = 6
Next

Loop

Close #1
End Sub



bonne soirée
MichelXld