Discussion :

[Smogling]

Bonjour,
J'ai fait un petit tour sur le forum mais je n'ai pas trouvé précisemment ce que je cherche.

J'ai un ensemble de fichier excel dans un dossier specifique contenant chacun une feuille "Resultat".
Mon but est de faire une macro qui en ouvrant ce dossier, récupère tous les Sheets resultats des différents classeurs associé au nom de fichier.
Le tout est de mettre ça dans un autre classeur "Résumé".

En fait je bloque pour pouvoir lire un dossier fichier par fichier et recupérer son contenu.

MErci Beaucoup et désolé si cela vous parait trivial.

[Plateforme3]

Bonjour
Sinon pour trouver tous les fichiers d'un répertoire, tu peux utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim Nom_Fichier as String
Dim Chemin as String
 
Chemin =ActiveWorkBook.Path
 
Set fs = Application.FileSearch
With fs
    .LookIn = chemin$
    .Filename = "*.xls"
    .SearchSubFolders = False 'ou True si tu veux lire les sous-répertoires
    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
        For i = 1 To .FoundFiles.Count
            Nom_Fichier = .FoundFiles(i)
            ....... 'execution de ta procédure de récupération de données
       Next
   End If
End With

Slts

[Smogling]

Merci beaucoup, je vais tester la macro en y implémentant ma procédure cet apres mimdi et je vous tiens au courant!
merci encore!

[Smogling]

Re bonjour,

J'aimerai savoir si c'est possible de récupérer dans Nom_Fichier non pas le chemin + nom mais juste le nom .

Aussi pour ma procédure, est ce qu'il existe une fonction qui importe directement une feuille d'un classeur à un autre ou bien je fais une macro enregistrer copier coller??
Merci!!

[LeForestier]

Bonjour,
pour copier une feuille dans un autre classeur,
1°) il faut que les 2 classeurs soient ouvert.
2°) Sélectionner la feuille qui doit étre copiée, et appliqué la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("FeuilleAcopier").Copy Before:=Workbooks("ClasseurOuCopier").Sheets(1)

Ce code copie la feuille au début du classeur 'ClasseurOuCopier'
Pour copier en dernier,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    a = Workbooks("ClasseurOuCopier").Worksheets.Count
    Sheets("FeuilleAcopier").Copy After:=Workbooks("ClasseurOuCopier").Sheets(a)

A+
EDIT:
dans la macro de plateforme3 tu a ta réponse...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Nom_Fichier = .Filename

[ouskel'n'or]

Pour avoir le nom du seul fichier, il me semble que fso propose quelque chose mais là tout de suite...
Une solution de rechange

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Nom_Complet = Split(.FoundFiles(i),"\")
Nom_Fich = Nom_Complet(Ubound(Nom_Complet))

Regarde split dans l'aide

[Smogling]

Oui j'était tenter d'utilisé cela mais comme tu peux le voire dans la boucle je ne sais comment recupérer le nom du fichier sans son chemin d'acces.
Comme il s'agit de plusieurs fichiers dans un dossier je dois faire en sorte de bien distinguer la source et la destination.
Merci!!

Merci, je viens de voir ton message juste après mon denrier post.
j'essaye ça.

Quand je fais un WorkBooks(Nom_Fich).Activate ou WorkBooks(Nom_Complet).Activate , il met met erreur subscript out of range.

En fait j'arrive pas a réutiliser les variables nom de fichier pour bosser dessus apres ( copier coller etc)

[ouskel'n'or]

Mets-nous ton code, et explique ce que tu veux faire, on ne peut pas répondre en aveugle. Exemple : Veux-tu choisir le fichier à ouvrir ou veux-tu ouvrir tous les fichiers du répertoire ?
A+