Sub ImporteDonnees()
Dim Chaine As String, Fichier As String, LigneLue As String, i As Integer, f As Integer, tablo, Montant, DSN
On Error GoTo Erreur
DerLig = Range("A65500").End(xlUp).Row
Range("D4:D" & DerLig).ClearContents
Fichier = Application.GetOpenFilename("Fichiers Texte (*.txt),*.txt,Tous les fichiers (*.txt),*.* ", 1, "Sélectionnez le fichier à importer", , False)
f = FreeFile
Open Fichier For Input As #f
i = 0
While Not EOF(f)
i = i + 1
Line Input #f, LigneLue
tablo = Split(LigneLue, ",")
DSN = tablo(0)
For L = 4 To DerLig
If Cells(L, 1) = DSN Then
Montant = Replace(tablo(1), "'", "")
Cells(L, 4) = Val(Montant)
End If
Next L
Wend
Close #f
Exit Sub
Erreur:
MsgBox "Le fichier de sortie est inaccessible"
End Sub