Bonjour à tous, j'ai trouvé cette macro que j'ai légèrement modifié, j'aimerais indiquer dans cette macro la feuille dans laquelle le fichier teste doit être importer pour l'instant si je colle la macro dans la feuille 1 il m'importe mon fichier texte dans la feuille 1 , si je là colle dans la feuille 2 il m'importe dans la feuille 2....
Merci de votre aide!!
Greg
Option Explicit
Sub Tstrepos()
Dim Fichier As Variant
'ChDir ThisWorkbook.Path
'Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Fichier = "C:\Users\...\repos.txt"
'If Fichier <> False Then
Lire Fichier
' End If
End Sub
Function Lire(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur As String * 1
' Séparateur Tabulation
Separateur = Chr(9)
Cells.Clear
NumFichier = FreeFile
iRow = 1
Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
End Function
Merci de votre aide!!
Greg
Option Explicit
Sub Tstrepos()
Dim Fichier As Variant
'ChDir ThisWorkbook.Path
'Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
Fichier = "C:\Users\...\repos.txt"
'If Fichier <> False Then
Lire Fichier
' End If
End Sub
Function Lire(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur As String * 1
' Séparateur Tabulation
Separateur = Chr(9)
Cells.Clear
NumFichier = FreeFile
iRow = 1
Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Cells(iRow, iCol) = Ar(i)
iCol = iCol + 1
Next
iRow = iRow + 1
Loop
Close #NumFichier
End Function
