Macro unique pour plusieurs fichiers texte

Version imprimable

Salut le forum,

Est il possible de modifier cette Macro de façon qu'elle prenne en charge tout les fichiers .txt du dossiers D:\test\ au lieu d'un seul fichier essai.txt.
Aussi, Est il possible que les données des fichiers texte serons collé dans des feuilles qui ce trouvent dans le fichier xls lui même qui porte la macro, au lieu de créer un nouveau fichier excel?

Merci d'avance
Code:

1 2 3 4 5 6 7 8 Sub Rectangle1_Clic() Workbooks.OpenText Filename:="D:\test\essai.txt", Origin:=xlMSDOS, _ StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _ Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _ , 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers:=True End Sub

14/12/2009, 02h44
Antoun

Pour prendre tous les fichiers, tu fais une boucle en utilisant soit Dir(), soit un FileSystemObject (fso.getfolder("D:\test").files).

:faq: http://excel.developpez.com/faq/inde...BoucleFichiers
et http://excel.developpez.com/faq/inde...NombreFichiers

Pour désigner le fichier contenant la macro, tu peux utiliser le mot-clé ThisWorkbook.

Bonjour,

Merci pour l'info Antoun.

Mon but maintenant c'est de modifier la macro de façon que tout les fichiers textes "toutes les feuilles" importer serons converti aussi ? possible?

Code:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private NomDuFichierOrigine
Private Répertoire
Sub RechercheDesFichiers()
    Dim MyFile, MyPath, MyName
    Dim NbFeuille As Byte
    Dim compteurDeFeuille As Byte
    Application.ScreenUpdating = False
    NomDuFichierOrigine = ActiveWorkbook.Name
    NbFeuille = ThisWorkbook.Sheets.Count
    compteurDeFeuille = 1
    Do Until compteurDeFeuille > NbFeuille
        If Sheets(compteurDeFeuille).Name <> "FeuilleDeTravail" Then
            Application.DisplayAlerts = False
            Sheets(compteurDeFeuille).Delete
            Application.DisplayAlerts = True
            NbFeuille = NbFeuille - 1
            compteurDeFeuille = compteurDeFeuille - 1
        End If
       compteurDeFeuille = compteurDeFeuille + 1
     Loop
 
    Sheets("FeuilleDeTravail").Select
    Calculate
    Répertoire = Range("A2")
    Range("A11:A100").Value = ""
    Range("A11").Select
    MyFile = Dir(Répertoire & "*.*")
    ActiveCell.Value = MyFile
    ActiveCell.Offset(1, 0).Activate
    Do Until MyFile = ""
        MyFile = Dir
        If MyFile <> NomDuFichierOrigine Then
            ActiveCell.Value = MyFile
            ActiveCell.Offset(1, 0).Activate
        End If
    Loop
    TransfertDeDonnées
    Workbooks(NomDuFichierOrigine).Activate
    Application.GoTo Reference:=Worksheets("FeuilleDeTravail").Range("A1"), Scroll:=True
End Sub
 
Sub TransfertDeDonnées()
 With Sheets("FeuilleDeTravail")
     Dim Cell As Range
         For Each Cell In Workbooks(NomDuFichierOrigine).Sheets("FeuilleDeTravail") _
          .Range("A11:A" & Workbooks(NomDuFichierOrigine).Sheets("FeuilleDeTravail").Range("A65536").End(xlUp).Row)
         NomDuFichier = Cell
         Sheets.Add
         ActiveSheet.Name = NomDuFichier
         Workbooks.Open Filename:=Répertoire & Cell
         Application.DisplayAlerts = False
         Sheets(ActiveSheet.Name).Range("A1:J222").Copy
         Workbooks(NomDuFichierOrigine).Sheets(NomDuFichier).Range("A1").PasteSpecial Paste:=xlPasteValues
         Workbooks(NomDuFichierOrigine).Activate
         Application.GoTo Reference:=Worksheets(NomDuFichier).Range("A1"), Scroll:=True
         Workbooks(NomDuFichier).Close savechanges:=False
         Application.DisplayAlerts = True
        Next
End With
End Sub

15/12/2009, 14h53
Antoun

Citation:

Envoyé par kikim78

Bonjour,

Merci pour l'info Antoun.

Mon but maintenant c'est de modifier la macro de façon que tout les fichiers textes "toutes les feuilles" importer serons converti aussi ? possible?

Pas compris.

De quoi tu pars, et vers quoi veux-tu le convertir ?
15/12/2009, 15h07
kikim78

Merci Antoun pour l'aide

La macro en question me permet d'importer les fichiers texte d'un dossier, mais sans les convertir. "mon but c'est de les convertir aussi"

J'ai essay avec l'enregistreur macro pour enregistrer les manip : selectionner colonne A => Données => convertir => Délimité => coché Espace => coché standard => terminé
Mais ya toujours message d'erreur.

Cette manip doit etre faite pour tout les fichiers du classeur exept "FeuilleDeTravail"

Possible?
20/12/2009, 01h15
Antoun

Je ne suis pas sûr de comprendre où tu bloques ? La boucle des onglets ? La "conversion" des données ?

Peux-tu poster un exemple de tes fichiers texte ?
20/12/2009, 09h19
kikim78

Bonjour Forum,

Merci Antoun pour la réponse,
A vrai dire il y avait un probleme de conversion de fichiers txt apres importation.

Probleme reglé par Jean-Marcel sur autre forum
Merci encors une fois Antoun.

http://www.cijoint.fr/cjlink.php?fil...cijZ0dhi0I.xls