Résolu Microsoft 365 Rapatriement fichier TXT

FCMLE44

XLDnaute Occasionnel
Supporter XLD
Bonjour

A partir d'un fichier .txt ou .dsn que j'irais dans un répertoire de mon choix, je souhaite remonter quelques données dans le fichier excel joint

Est ce possible ?

J'ai mis un exemple dans le fichier joint

Merci
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Un premier jet en PJ avec :
VB:
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
C'est brut de fonderie. Sans sécurité sur le montant. S'il y a erreur sur le DSN, je remonte quand même la valeur trouvée.
 

Fichiers joints

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour,
PJ à tester. Ouvre les txt et dsn.
( j'ai supposé que les dsn étaient bien en format txt avec la même strcture )
 
Ce message a été identifié comme étant une solution!

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas