Microsoft 365 Rapatriement fichier TXT

[FCMLE44]

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

 

[sylvanu]

Bonsoir Fcmle,
Juste un détail pour comprendre :
L'utilisateur remplit la colonne A et on ne remplit que la colonne D ?

 

[FCMLE44]

Bonsoir Fcmle,
Juste un détail pour comprendre :
L'utilisateur remplit la colonne A et on ne remplit que la colonne D ?

La colonne A est pré rempli. Seule la colonne D est à remplir avec les données venant du fichier txt

 

[sylvanu]

Re,
Un premier jet en PJ avec :

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.

 

[FCMLE44]

Merci
Je vérifie et reviens en cas de souci
Merci

 

[sylvanu]

Prenez celui là.
Il y a une sécurité si vous annulez l'ouverture du fichier.

 

[FCMLE44]

Ca fonctionne
Merci

Mon fichier peut avoir aussi une extension .dsn

Est il possible de la rajouter ou bien de mettre une fonction pour convertir en txt ?

 

[sylvanu]

Bonjour,
PJ à tester. Ouvre les txt et dsn.
( j'ai supposé que les dsn étaient bien en format txt avec la même strcture )

 

[FCMLE44]

Merci beaucoup
Sauriez vous aussi m'aide pour mon post Combobox impression et enregistrement ?