Importer fichier txt

[Résolu/Fermé]
Signaler
-
 Maurice -
Bonjour tout le monde,
Je recherche à automatiser l'import d'un fichier txt sous excel avec un traitement de celui-ci derrière. Etant débutante sous Excel je fait appel à votre aide.
Voici les fichiers en questions (mon document txt + mon fichier excel):
http://cjoint.com/?3DipgEwx2Sk

Cordialement.
Claire.

3 réponses

Messages postés
7462
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
29 juillet 2021
644
Bonjour,

Pour importer un fichier texte dans Excel on utilise vba.

faire Alt F11 pour accéder à l'éditeur, ensuite Insertion UserForm ajouter un bouton de commande.
Double cliquer sur ce bouton et mettre ce code:

Option Explicit
Private Sub CommandButton1_Click()
ImportText "C:\Chemin complet fichier.txt", Range("A1")
End Sub
Sub ImportText(FileName As String, PosImport As Range)
    Dim QT As QueryTable
    Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
    With QT
        .TextFileSemicolonDelimiter = True
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .Refresh
    End With
End Sub

Merci de votre réponse, l'import fonctionne.
Pour ma culture pouvez-vous me commenter vos lignes de codes afin de les comprendre si vous avez du temps ?
Merci.
Messages postés
1429
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
8 juin 2021
479
Salut,

Voici une ébauche pour extraire tes données :

http://www.cjoint.com/data3/3DireKSiowm.htm
Merci, j'ai un soucis pour l'ouvrir j'ai oubliée de précisé que je suis sous Word 2003.
Messages postés
1429
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
8 juin 2021
479
Ah peut être un problème de compatibilité, il dit quoi ?
Word ? Plutôt Excel non ?
Oui sous Excel, c'est la fatigue ça
C'est bon en fait y avait un conflit avec un autre fichier !

Super merci beaucoup ! Moi qui m'y connais pas en VBA
Messages postés
1429
Date d'inscription
lundi 13 juillet 2009
Statut
Membre
Dernière intervention
8 juin 2021
479
Bon alors si tout fonctionne, tant mieux ;)
Bonjour

avec une mouvelle macro
http://cjoint.com/?3DivIcmziSX

A+
Maurice