Importer fichier txt

Résolu
Claire -  
 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.
A voir également:

3 réponses


 
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

0
Claire
 
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.
0
ozone_ Messages postés 1518 Date d'inscription   Statut Membre Dernière intervention   478
 
Salut,

Voici une ébauche pour extraire tes données :

http://www.cjoint.com/data3/3DireKSiowm.htm
0
Claire
 
Merci, j'ai un soucis pour l'ouvrir j'ai oubliée de précisé que je suis sous Word 2003.
0
ozone_ Messages postés 1518 Date d'inscription   Statut Membre Dernière intervention   478
 
Ah peut être un problème de compatibilité, il dit quoi ?
Word ? Plutôt Excel non ?
0
Claire
 
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
0
ozone_ Messages postés 1518 Date d'inscription   Statut Membre Dernière intervention   478
 
Bon alors si tout fonctionne, tant mieux ;)
0
Maurice
 
Bonjour

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

A+
Maurice
0