K
kohafa
Guest
Bonjour à tous
permettez moi de poser ma question toute en espérant trouver de l'aide, que je trouve toujour et à chaque fois que je retourne sur ce forum auquel je suis très reconnaissant.
j'utilise le code suivant pour ouvrir les fichier d'un dossier, sachant que ces fichier contier une ligne de donnée par fichier.
càd : le fichier 'fichier1.csv' contient juste une ligne (des champs d'une table access, séparé par des ';' (point virgule)
************************
Sub ChercheetOuvreFichier()
Set fichcherche = Application.FileSearch
With fichcherche
.LookIn = 'C:\\Contact'
.Filename = '*.csv' 'ou '*.txt'
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)
On Error Resume Next
Next I
Else
MsgBox 'Aucun fichier n'a été trouvé.'
End If
End With
End Sub
*****************************
j'espère si quelqu'un peu m'aider à lire les fichier(tous les fichiers) sans les ouvrir. et mettre leurs contenu dans ma feuille excel. j'explique bien.
lire le premier fichier, mettre son contenu dans la 1ere ligne de ma feuille excel, puis lire le 2eme et mettre son contenu dans le 2eme ligne de ma feuille excel et ainsi de suite.
j'espère que vous comprenez ma question et que vous pouvez m'aider. avec tous mes respect
************************
permettez moi de poser ma question toute en espérant trouver de l'aide, que je trouve toujour et à chaque fois que je retourne sur ce forum auquel je suis très reconnaissant.
j'utilise le code suivant pour ouvrir les fichier d'un dossier, sachant que ces fichier contier une ligne de donnée par fichier.
càd : le fichier 'fichier1.csv' contient juste une ligne (des champs d'une table access, séparé par des ';' (point virgule)
************************
Sub ChercheetOuvreFichier()
Set fichcherche = Application.FileSearch
With fichcherche
.LookIn = 'C:\\Contact'
.Filename = '*.csv' 'ou '*.txt'
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)
On Error Resume Next
Next I
Else
MsgBox 'Aucun fichier n'a été trouvé.'
End If
End With
End Sub
*****************************
j'espère si quelqu'un peu m'aider à lire les fichier(tous les fichiers) sans les ouvrir. et mettre leurs contenu dans ma feuille excel. j'explique bien.
lire le premier fichier, mettre son contenu dans la 1ere ligne de ma feuille excel, puis lire le 2eme et mettre son contenu dans le 2eme ligne de ma feuille excel et ainsi de suite.
j'espère que vous comprenez ma question et que vous pouvez m'aider. avec tous mes respect
************************