Bonsoir à tous,
j'ai réussi à importer un fichier texte dans mon classeur en suivant l'exemple du lien.
VBA-excel : code pour ouvrir un fichier txt sous excel - VB - VBA - Programmation - FORUM Rue-Montgallet.com
Mais Je veux que l'importation commence à partir de la cellule A2.
j'ai donc changé: iCol = 0
Et je constate qu'il y a une erreur.
Merci pour vos suggestions.
Voici ma macro
'----------------------------------------------------
Option Explicit
Sub Tst()
Dim Fichier As Variant
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.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)
Range("A2:C10").ClearContents
NumFichier = FreeFile
iRow = 2
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
j'ai réussi à importer un fichier texte dans mon classeur en suivant l'exemple du lien.
VBA-excel : code pour ouvrir un fichier txt sous excel - VB - VBA - Programmation - FORUM Rue-Montgallet.com
Mais Je veux que l'importation commence à partir de la cellule A2.
j'ai donc changé: iCol = 0
Et je constate qu'il y a une erreur.
Merci pour vos suggestions.
Voici ma macro
'----------------------------------------------------
Option Explicit
Sub Tst()
Dim Fichier As Variant
ChDir ThisWorkbook.Path
Fichier = Application.GetOpenFilename("Text Files (*.txt), *.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)
Range("A2:C10").ClearContents
NumFichier = FreeFile
iRow = 2
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