1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
| Sub FichierTxtCopieSurFeuilleDeCalculs()
Dim Ligne As String, NoLigne As Long, NoCol As Integer
Dim Tableau, Chemin$, nomFich$, separateur
'*** ouverture "d"une" boite de dialogue ***
'de laquelle on extrait :
Chemin = "C:\LeRep\"
nomFich = "LeFichier.txt" 'ou .csv
'********************************
'Ouverture du fichier
Open Chemin & nomFich For Input As #1
'Lecture
While Not EOF(1)
Input #1, Ligne
'recherche du séparateur
If instr(Ligne,";") <> 0 then ' ";"
separateur = ";"
elseif instr(Ligne,vbtab) <> 0 then 'Tab
separateur = vbtab
elseif instr(Ligne,",") <> 0 then ' ","
separateur = ","
elseif instr(Ligne," ") <> 0 then ' espace
separateur = " "
endif
'création d'un tableau des données de la ligne
Tableau = Split(Ligne, separateur)
NoLigne = NoLigne + 1
'transfert des données dans une feuille Excel vierge
For NoCol = 0 To UBound(Tableau)
Cells(NoLigne, NoCol + 1).Value = Tableau(NoCol)
Next
Wend
Close #1
End Sub |
Partager