Macro pour ouvrir plusieurs fichier txt

[Chemist]

voici la macro que j'utilise elle fonctionne bien pour ouvrir les fichiers Cependant j'aimerais que les fichiers s'ouvrent de façon délimiter avec space et comma comme option.


Sub ChercheetOuvreFichier()
Set fichcherche = Application.FileSearch
With fichcherche

' .LookIn = GetDirectory
.LookIn = 'e:\\répertoire'
.Filename = '*.z'
If .Execute > 0 Then
MsgBox .FoundFiles.Count & ' Fichier(s) a (ont) été trouvé(s).'
For I = 1 To .FoundFiles.Count
Workbooks.Open Filename:=.FoundFiles(I)
Cells.Select
Selection.Columns.AutoFit
ActiveWindow.LargeScroll Down:=4
Range('K142').Select
On Error Resume Next
Next I
Else
MsgBox 'Aucun fichier n'a été trouvé.'
End If
End With
End Sub

 

[2passage]

Bonjour,

Si ja ibien compris, il faut ouvrir les fichiers par cette commande :

Workbooks.OpenText Filename:=.foundfile(I), Comma:=True, Space:=True

A plus

Message édité par: 2passage, à: 04/07/2005 09:56

 

[chemist]

j'ai essayé mais ca me donne name argument not found

 

[2passage]

Bonjour,

Le name ou argument not found, c'est juste un s qui manque a la fin de .Foundfiles
Sinon, j'ai testé avec le code ci dessous (changé répertoire et nom de fichier) et ça a marché ok :

Private Sub CommandButton1_Click()
Set fichcherche = Application.FileSearch
With fichcherche
    .LookIn = 'e:\\test'
    .Filename = '*.txt'
    If .Execute > 0 Then
        For I = 1 To .FoundFiles.Count
            Workbooks.OpenText Filename:=.FoundFiles(I), Comma:=True, Space:=True
            Range('A1').CurrentRegion.EntireColumn.AutoFit 'la selection de ton code plantait chez moi
        Next I
    Else
        MsgBox 'Aucun fichier n'a été trouvé.'
    End If
    ActiveSheet.Range('K142').Select 'sorti de la boucle car pas utile dedans.. quant à la fin.. a toi de voir...
End With
End Sub

vala
A+

Edit : dérapages de clavier

Message édité par: 2passage, à: 04/07/2005 17:16

 

[chemist]

merci c'est parfait

 

[chemist]

j'aimerais modifier la macro pour que l'utilisateur donne le chemin d'accès où sont situé les fichiers à la place d'un chemin d'accès fix.

J'aimerais avoir un genre de fenêtre qui s'ouvre et qui demande dans quel répertoire sont les fichiers


J'utilise excel 2000

Message édité par: chemist, à: 05/07/2005 04:50