Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ouverture alpha des fichiers d'un dossier

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

phil75016

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
Re : ouverture alpha des fichiers d'un dossier

Bonjour,

essaye avec "FileSearch":

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Re : ouverture alpha des fichiers d'un dossier

Re,
essaye ceci:

Code: 
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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?
 
Vote positif 0 Vote négatif
Re : ouverture alpha des fichiers d'un dossier

C'est exact!
Il faut que tu récupères uniquement le nom du fichier:
Code: 
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:
Code: 
Windows(fichier).Activate

Essaye
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
649
JJ69
J
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
763
patricktoulon
C
  • Question Question
Microsoft 365 Ouverture Dossiers par VBA
Réponses
9
Affichages
706
Chev
C
POWERQUERY :: Combinaison de tableaux structurés Excel pouvant être issus de répertoires différents avec des noms de tableaux structurés différents
Réponses
0
Affichages
297
oguruma
D
  • Question Question
Microsoft 365 Couper Coller Fichiers en VBA
Réponses
3
Affichages
1 K
patricktoulon
T
  • Question Question
XL 2010 VAB - Copier les fichiers manquants d'un dossier et de ses sous-dossiers
Réponses
2
Affichages
513
Titi456
T
L
  • Résolu(e)
Microsoft 365 Décompte via plusieurs fichiers CSV
Réponses
12
Affichages
952
WTF
F
  • Résolu(e)
XL 2010 Importer des données de plusieurs fichiers sans les ouvrir
Réponses
9
Affichages
2 K
Hasco
POWERQUERY :: Combiner tous les fichiers Excel d'un dossier ou combiner des fichiers Excel spécifiques
Réponses
0
Affichages
489
oguruma
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
941
Liner77
L
G
  • Question Question
XL 2019 copier des données à partir d'un autre fichier excel VBA
Réponses
2
Affichages
2 K
Guillaumeg3
G
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
892
Lu76Fer
F
  • Résolu(e)
XL 2019 Ouverture et fermeture de plusieurs fichiers ds un dossier
Réponses
11
Affichages
2 K
cp4
  • Question Question
Microsoft 365 Lister propriétés des fichiers d'un dossier
Réponses
2
Affichages
1 K
kiki29
G
  • Question Question
XL pour MAC VBA export données Excel vers Signets word
Réponses
3
Affichages
1 K
Staple1600
  • Question Question
XL 2010 Lister un dossier comportant des sous-dossiers
2
Réponses
20
Affichages
3 K
TooFatBoy
POWERQUERY :: Combinaisons (Table.Combine) de dossiers contenant des fichiers .CSV ou des fichiers Excel - V2
Réponses
0
Affichages
984
oguruma
  • Question Question
XL 2016 convertir (ou enregistrer) des fichiers CSV to xlsx par lot VBA
Réponses
4
Affichages
2 K
hastaz
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
804
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…