importation du fichier texte vers excel à l'aide de VBA

Version imprimable

02/03/2015, 12h44
ghita lay

importation du fichier texte vers excel à l'aide de VBA

Bonjour,
je suis stagiaire ingénieure je créer une application dont la première étape est d'importer les fichier texte(bloc note) dans un dossier dans classeur excel et séparer les différentes mots dans chaque colonnes (les mots sont séparés par des points-virgules dans fichier text) , le problème qui se pose que le fichier texte est variable et le dossier est variable.Merci pour votre aide

Bonjour !

Alors, si j'ai bien compris tu gères deux choses : un fichier .txt, qui contient les titres des colonnes de ton fichier excel, séparés par des points-virgules, et le fichier excel en question. Tu souhaiterais donc créer une macro VBA qui importe ce fichier txt et place les mots dans les bonnes colonnes.

Ce qui sera variable c'est le contenu du fichier txt c'est bien ça ? Si les deux fichiers sont variables, alors ce que je préconise c'est que l'utilisateur de ta macro ( ton fichier excel ) puisse renseigner sur le fichier excel le chemin d'accès aux différents fichiers via un simple hyperlien ( clique droit sur la cellule, Hyperlien -> etc ). De cette façon tu auras dans ta macro accès aux fichiers et tu pourras les manipuler.

Concernant le code pur je vois le problème en plusieurs étapes :

1) lecture des fichiers concernés par exemple s'il s'agit d'un doc word :
Code:

1 2 3 4 5 6 7 8 Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = CreateObject("Word.Application") WordApp.Visible = True Set WordDoc = WordApp.Documents.Open("D:\Fichier_Texte.txt", ReadOnly:=True)
Ici à la place du nom en dur tu peux mettre Range de la cellule contenant l'adresse du fichier

2) a) Un code qui parcourt tout le fichier et cherche tous les points-virgules. Dès qu'il en trouve un il copie tout ce qu'il y a avant et tu mettrais un flag ou compteur pour qu'il ne prenne que ce qu'il y a entre deux points-virgules

b) Dans la même boucle, tu ouvres ton fichier excel et place tes mots récupérés dans tes colonnes avec un " Offset" pour passer à la suivante

J'espère avoir éte clair, n'hésite pas à préciser ta pensée et donner des exemples

02/03/2015, 14h44
mercatog

Non non Julien S, il y a mieux

Tu as sur excel (onglet données externes > à partir du texte...)

Tu lances l'enregistreur de macro, tu auras un code (non optimisé) mais qui peut être le début d'une amélioration

Bonjour le fil, bonjour le forum,

Si les fichiers txt sont dans des classeurs différents je te propose le code ci-dessous :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro1()
Dim CL As Workbook 'déclare la variable CL (Classeur)
Dim O As Worksheet 'déclare la variable O (Onglet)
 
With Application.FileDialog(msoFileDialogFilePicker) 'prend en compte la boîte de dialogue "Ouvrir"
    .Show 'affiche la boîte
    On Error Resume Next 'gestion des erreurs (en cas d'erreur passe a la ligne suivante
    Workbooks.Open (.SelectedItems(1)) 'ouvre le fichier sélectionné
    If Err <> 0 Then Exit Sub 'si une erreur est générée, sort de la procédure
End With
On Error GoTo 0 'annule la gestion des erreurs
Set CL = ActiveWorkbook 'définit le classeur CL
Set O = ActiveSheet 'définit l'onglet O
'convertion des données avec séparation en colonne a chaque point-virgule (;)
O.Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
O.Range("A1").Select 'sélectionne la cellule A1
CL.Save 'sauve le fichier
'ou CL.Close SaveChanges:=True'ferme le fichier en enregistrant les modifications
End Sub

02/03/2015, 16h55
ghita lay

Merci Julien S , le but de faire une application et le premier but est d'importer un dossier qui contient des fichiers texte dans bloc note dans un fichier excel et mettre chaque fichier txt dans une feuille excel donc ,fichier texte 1 dans feuille 1 et fichier excel 2 dans feuille excel 2 ... et dans chaque fichier on va mettre les mots séparer par un point virgule dans chaque colonne et tout cela VB sous excel .

Merci mercatog ,j'ai déjà essayer votre méthode mais le nom du fichier est spécifié dans le code,par contre je veux qu'il importe n'importe qu'il fichier sans préciser le nom.

Merci Thautheme, votre programme m'as aidé pour l'excution de ma tâche mais il reste le problème du point virgule il n'est pas actif parce qu'il m'importe tout le fichier dans une colonne sans séparer les mots

MERCI
02/03/2015, 17h28
Thautheme

Bonjour le fil, bonjour le forum,

La proposition faite fait la séparation des données en plusieurs colonnes si ces dernières sont dans la colonne A. Sinon il faut adapter le code en remplaçant A:A et A1 de la ligne 15 du code par la bonne colonne et la bonne cellule...
Je me demande parfois à quoi ça sert de commenter le code ?!...

Citation:

Envoyé par ghita lay

Merci mercatog ,j'ai déjà essayer votre méthode mais le nom du fichier est spécifié dans le code,par contre je veux qu'il importe n'importe qu'il fichier sans préciser le nom.

Ghita, Getopenfilename permet à l'utilisateur de choisir le fichier à importer

Exemple adapté à partir de l'enregistreur de macro et qui permet d'importer les données d'un fichier texte choisi par l'utilisateur et d'insérer les données dans Feuil1
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub ImportTxt() Dim FichierTxt FichierTxt = Application.GetOpenFilename("Text Files (*.txt), *.txt") If FichierTxt <> False Then With Worksheets("Feuil1") .UsedRange.ClearContents With .QueryTables.Add(Connection:="TEXT;" & FichierTxt & "", Destination:=.Range("A1")) .TextFileSemicolonDelimiter = True .Refresh BackgroundQuery:=False .Delete End With End With End If End Sub
Maintenant si tu désire importer par exemple tous les fichiers d'un dossier ou un ensemble de fichiers, la logique diffère peu