importation fichier txt

  • Initiateur de la discussion Initiateur de la discussion greg954
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

greg954

XLDnaute Junior
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
 
Re : importation fichier txt

Bonjour greg954

Si tu utilise
Cells(iRow, iCol) = Ar(i)
C'est la feuille active qui est prise en compte.
Pour choisir ta feuille, il faut la préciser :
Sheets("Feuil1").Cells(iRow, iCol) = Ar(i)

Cordialement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
106
Réponses
5
Affichages
182
Réponses
10
Affichages
281
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
817
Retour