ouverture alpha des fichiers d'un dossier

[phil75016]

Bonjour
J'utilise les codes suivants pour récupérer des données dans tous les fichiers d'un dossier :
ChDir "c:\privé\Dossiers reçus"

MONFICHIER = Dir("* - dossier 2006.xls")

Do Until MONFICHIER = ""
Workbooks.Open Filename:=MONFICHIER, UpdateLinks:=3

Mon problème est qu'il ouvre les fichiers dans un ordre que je ne comprends pas. N'y a t'il pas la possibilité qu'il ouvre les fichiers dans l'ordre alphabétique?

Merci d'avance

 

[skoobi]

Re : ouverture alpha des fichiers d'un dossier

Bonjour,

essaye avec "FileSearch":

With Application.FileSearch
    .LookIn = "c:\my documents"
    .FileType = msoFileTypeExcelWorkbooks
    [B].Execute (msoSortByFileName)[/B]
   For I = 1 To .FoundFiles.Count
       MsgBox .FoundFiles(I)
   Next I
    
End With

 

[phil75016]

Re : ouverture alpha des fichiers d'un dossier

Merci mais je ne sais pas utiliser ton code pour ce que j'ai à faire. Je précise : dans chaque fichier nommés "* - dossier comptable 2005.xls" contenu dans un répertoire x, je veux qu'il me récupère le contenu de telle ou telle cellule et qu'il le regroupe dans un fichier unique. J'espère m'être fait comprendre. Voici la macro que j'utilise :

Sub recup_CODE_NOM_COMPTABLE()

ChDir "c:\prive\2005\"

MONFICHIER = Dir("* - dossier comptable 2005.xls")

Do Until MONFICHIER = ""
Workbooks.Open Filename:=MONFICHIER, UpdateLinks:=3
Sheets(1).Select
code = Cells(5, 1).Value
nom = Cells(5, 2).Value

Windows("fichiers récup.xls").Activate
Cells(200, 1).Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = code
ActiveCell.Offset(0, 1).Value = nom
Else
End If
Windows(MONFICHIER).Activate
ActiveWorkbook.Close False
MONFICHIER = Dir
Loop
End Sub

Merci pour votre aide

 

[skoobi]

Re : ouverture alpha des fichiers d'un dossier

Re,
essaye ceci:

With Application.FileSearch
    .LookIn = "c:\prive\2005\"
    .FileName = "* - dossier comptable 2005.xls"
    .FileType = msoFileTypeExcelWorkbooks
    .Execute (msoSortByFileName)
   For i = 1 To .FoundFiles.Count
    Workbooks.Open Filename:=FoundFiles(i), UpdateLinks:=3
    Sheets(1).Select
    code = Cells(5, 1).Value
    nom = Cells(5, 2).Value
    
    Windows("fichiers récup.xls").Activate
    Cells(200, 1).Select
    ActiveCell.End(xlUp).Select
    ActiveCell.Offset(1, 0).Select
    ActiveCell.Value = code
    ActiveCell.Offset(0, 1).Value = nom
    Else
    End If
    Windows(FoundFiles(i)).Activate
    ActiveWorkbook.Close False
   Next i
    
End With

 

[phil75016]

Re : ouverture alpha des fichiers d'un dossier

Merci encore pour ta réponse mais elle ne fonctionne pas tel quel. Que faut il mettre avant with application.filesearch? La macro buggue sur "FoundFiles" dans la ligne Workbooks.Open Filename:=FoundFiles(i), UpdateLinks:=3 avec le message "sub ou fonction non définie".


Merci

 

[skoobi]

Re : ouverture alpha des fichiers d'un dossier

Ajoute un point "." devant FoundFiles(i) -> .FoundFiles(i)

 

[phil75016]

Re : ouverture alpha des fichiers d'un dossier

merci pour ta réaction. Maintenant il y a un autre bug sur la ligne "Windows(.FoundFiles(i)).Activate" avec le message "l'indice n'appartient pas à la sélection" Je pense que dans .foundFiles(i) il y a le chemin complet du fichier alors qu'il ne faut que le nom du fichier?

 

[skoobi]

Re : ouverture alpha des fichiers d'un dossier

C'est exact!
Il faut que tu récupères uniquement le nom du fichier:

fichier = Right(.FoundFiles(i), Len(.FoundFiles(i)) - 14)

14 correspond au nombre de caractères depuis c:\.... jusqu'au "\" avant le nom du fichier.
Si j'ai bien compté....
Et tu fais:

Windows(fichier).Activate

Essaye

 

[phil75016]

Re : ouverture alpha des fichiers d'un dossier

Merci skoobi, ca marche