Pb Lecture Fichier Séquentiel

Bonjour,

Je rencontre une difficulté dans l’exécution de cette macro. En effet, la lecture ce fait bien sur la première ligne, mais n'accede pas à la 2e.

et voici le fichier à traiter : https://www.cjoint.com/c/HAAl7HviFwS

Pouvez vous m'aider ?

Un grand merci pour votre aide.

Philippe

Bonjour,

macro protégée par un mot de passe. tu devrais aussi fournir ton fichier séquentiel...

oups !

fichier et message rectifiés !

Philippe

Bonjour,

tes données ne contiennent pas de fin de ligne, donc quand tu fais un line input, ta variable chaine reçoit tout le contenu du fichier.

une manière de faire et de lire les données morceaux par morceaux en indiquant le nombre de caractères pour avoir un ensemble de données pour une personne (dans le cas de ton fichier exemple c'est 994 caractères)

Private Sub TraitementComplet_Click()
    Fichier = Application.GetOpenFilename("Tous les Fichiers,*.*")
    Ligne = 1
    Lg = 3
    Compteur = 0
    Open Fichier For Input As 1
    While Not EOF(1)
        Chaine = Input(994, #1)
        Chaine = Trim(Chaine)
        NomPrenom = Mid(Chaine, 130, 50)
        Cells(Lg, 1) = NomPrenom
        Montant = Mid(Chaine, 35, 10)
        Cells(Lg, 2) = Montant
        Total = Total + Montant
        Lg = Lg + 1
    Wend
    Close
    Cells(1, 2) = Total
End Sub

Merci beaucoup de ton aide !

C'est exactement cela !

Bonne fin d'après midi et bon week end par avance

Philippe