Macro importer un fichier texte avec un chemin relatif

**oekoniko** · 03/04/2015, 16h38

Bonjour la communauté,

Après avoir fouillé le web, je fais appel à votre expertise car ce problème parait simple mais je n'arrive pas a m'en dépatouiller...

Je souhaite que ma macro VBA importe un fichier texte présent dans un dossier. Je ne connais pas le nom de fichier a l'avance car chaque jour, c'en sera un nouveau.
J'ai utilisé la fonction d'enregistrement pour avoir un bout de code, et ça marche nickel. Puis j'ai ajouté la fonction "Application.GetOpenFilename" pour laisser l'utilisateur choisir le fichier, mais ça ne marche plus... j'obtiens "erreur d’exécution 1004, impossible de trouver le fichier texte..."

Quelqu'un saurait comment résoudre ça?

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub Macro1()
 
Dim File_Name As String
File_Name = Application.GetOpenFilename
 
With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;File_Name" _
    , Destination:=Range("$A$1"))
    .Name = "List"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 65001
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = False
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = True
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With
 
End Sub

Merci d'avance,
oekoniko

**Hankow** · 03/04/2015, 16h49

Bonjour,

J'ai fais dernièrement le même type de travail. Adapte le à ton programme.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub ImportFichierTexte()
    Dim NewFeuille As Worksheet                                                     'Déclaration d'une variable en Feuille de calcul
    Dim Fichier, Chemin, NomFichier, NomFeuille As String                           'Déclaration des variables en chaîne de caractères
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")              'Ouvrir une fenêtre explorer qui affiche que les fichiers.txt
    NomFichier = ""                                                                 'Variable ne contitent rien
    NomFeuille = ""                                                                 'Variable ne contitent rien
 
    If Fichier = False Then                                                         'SI Fichier est faux (null/ne contient rien), alors :
        MsgBox "Vous n'avez pas selectionné de fichier TEXTE !"                     'Affichage d'un message
        Exit Sub                                                                    'Sortie forcée de la fonction
    End If
 
    If Fichier <> "" Then                                                           'Si Fichier contient quelque chose, alors :
        NomFichier = Dir(Fichier & "")                                              'Recherche le nom du fichier qui sera importé
        NomFeuille = Left(NomFichier, Len(NomFichier) - 4)                          'On supprime l'extenstion ".txt" du nom que l'on affectera au nom de la feuille créée
        Set NewFeuille = Sheets.Add(after:=Sheets(Sheets.Count))                    'La nouvelle feuille créée se place en dernière position
        NewFeuille.Name = NomFeuille                                                'Renomme la feuille avec le nom qui a été modifié par la valeur de la variable NomFeuille
        Set NewFeuille = Nothing                                                    'Libération de l'objet NomFeuille
        Worksheets("DONNEES").QueryTables.Add("TEXT;" & Fichier, _
            Worksheets("DONNEES").[A1]).Refresh                                     'Insert le fichier.txt choisi par l'utilisateur dans la page de calcul DONNEES à partir de la colonne A1
        Moulinette                                                                  'Appel de la fonction Moulinette qui regroupe tout le système de traitement des données
    End If
End Sub

**oekoniko** · 03/04/2015, 17h13

Bonjour Hankow et merci de ta réponse rapide.

Étrangement, ça ne passe pas... :-(
J'ai enlevé les quelques lignes qui ne me servent pas, mais ca plante a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Worksheets("DONNEES").QueryTables.Add("TEXT;" & Fichier, _
            Worksheets("DONNEES").[A1]).Refresh

avec une erreur 9 "l'indice n'appartient pas a la selection"

Es-tu sur du code? Est-ce que cela marche chez toi?

Merci d'avance.

**Hankow** · 03/04/2015, 21h12

Oui il reste encore un bout de mon code dans cette ligne !

Il faut que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Worksheets("Ta_Feuille_Où_sera_importe_le_fichier").QueryTables.Add("TEXT;" & Fichier, _
            Worksheets("Ta_Feuille_Où_sera_importe_le_fichier").[A1]).Refresh

Rq : [A1] correspond à la 1ère cellule où sera importé la première ligne de ton fichier.txt

Tiens moi au courant

**oekoniko** · 06/04/2015, 14h31

Bonjour Hankow,

Bon, effectivement, ca marche avec ma feuille "List":

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Worksheets("List").QueryTables.Add("TEXT;" & Fichier, _
        Worksheets("List").[A1])

Faut croire que j'avais juste besoin d'un week-end de repos et de reprendre ca au calme ce matin! ;-)

Toutefois, ca me l'importe en texte pur, sans conversion. J'ai essayé de compiler ca avec les parametres obtenus en enregistrant une macro...Mais ca ne marche pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
 If Fichier <> "" Then                                                           'Si Fichier contient quelque chose, alors :
        NomFichier = Dir(Fichier & "")                                              'Recherche le nom du fichier qui sera importé
        NomFeuille = "Test"                                                         'On supprime l'extenstion ".txt" du nom que l'on affectera au nom de la feuille créée
        Set NewFeuille = Sheets.Add(after:=Sheets(Sheets.Count))                    'La nouvelle feuille créée se place en dernière position
        NewFeuille.Name = NomFeuille                                                'Renomme la feuille avec le nom qui a été modifié par la valeur de la variable NomFeuille
        Set NewFeuille = Nothing                                                    'Libération de l'objet NomFeuille
        Worksheets("List").QueryTables.Add("TEXT;" & Fichier, _
        Worksheets("List").[A1]).Refresh
        .Name = "liste_entiere"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End If

J'obtiens une erreur "reference incorrecte". Quelqu'un aurait-il une idee?
Merci et joyeuse paques a tous!

**oekoniko** · 06/04/2015, 14h40

Pour resumer, jai d'un coté un premier code (fourni par l'enregistrement) qui importe et formate comme je veux le fichier, mais qui ne prends qu'un seul fichier:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\tesfilefortest.txt" _
        , Destination:=Range("$A$1"))
        .Name = "Liste_entiere"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

et de l'autre un code qui me permets de choisir un fichier mais qui ne formate pas...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Dim NewFeuille As Worksheet                                                     'Déclaration d'une variable en Feuille de calcul
    Dim Fichier, Chemin, NomFichier, NomFeuille As String                           'Déclaration des variables en chaîne de caractères
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")              'Ouvrir une fenêtre explorer qui affiche que les fichiers.txt
    NomFichier = ""                                                                 'Variable ne contitent rien
    NomFeuille = ""                                                                 'Variable ne contitent rien
 
    If Fichier = False Then                                                         'SI Fichier est faux (null/ne contient rien), alors :
        MsgBox "Vous n'avez pas selectionné de fichier TEXTE !"                     'Affichage d'un message
        Exit Sub                                                                    'Sortie forcée de la fonction
    End If
 
    If Fichier <> "" Then                                                           'Si Fichier contient quelque chose, alors :
        NomFichier = Dir(Fichier & "")                                              'Recherche le nom du fichier qui sera importé
        NomFeuille = "Test"                                                         'On supprime l'extenstion ".txt" du nom que l'on affectera au nom de la feuille créée
        Set NewFeuille = Sheets.Add(after:=Sheets(Sheets.Count))                    'La nouvelle feuille créée se place en dernière position
        NewFeuille.Name = NomFeuille                                                'Renomme la feuille avec le nom qui a été modifié par la valeur de la variable NomFeuille
        Set NewFeuille = Nothing                                                    'Libération de l'objet NomFeuille
        Worksheets("List").QueryTables.Add("TEXT;" & Fichier, _
        Worksheets("List").[A1]).Refresh
        .Name = "SPAM_REPORT_2015-03-25_fr_FR-fr_FR_elite"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 65001
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End If

Et j'aimerais pouvoir combiner les deux: choisir le fichier texte et l'importer correctement converti!

Merci!

Macro importer un fichier texte avec un chemin relatif [XL-2007]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager