un fichier importé se place n'importe ou dans la feuille

Sub Import_Textes()

'importe le texte suivant le fichier analyse et est retransmit dans la feuille "import_résultats"

Dim Chemin As String, Fichier As String, Temp As String
Dim NumLigne As Long, NumCol As Integer
Dim FF As Integer, I As Integer
Chemin = "T:\QUALITE METHODES INDUITS\test éléctrique et balourd (traitement des données)\"
Fichier = Dir(Chemin & "Analyse.asc")
NumLigne = ActiveCell.Row
NumCol = ActiveCell.Column
With ActiveSheet
FF = FreeFile
Do While Fichier <> ""
Open Chemin & Fichier For Input As #FF
Do While Not EOF(FF)
Line Input #FF, Temp
Table = Split(Temp, vbTab)
For I = 0 To UBound(Table)
.Cells(NumLigne, NumCol + I) = Table(I)
Next
NumLigne = NumLigne + 1
Loop
Close #FF
Fichier = Dir
Loop
End With
End Sub

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
Import_Textes
End Sub

Cliquez pour agrandir...