Discussion :

[NoursBegin]

Bonjour,

Etant nouveaux sur le forum veuillez m'excuser par avance si je fais certaines erreurs, si cela est le cas dites le moi que je puisses les corriger.
Je débute sur les macros excel et ayant fais quelques heures de recherche et ne trouvant pas de solutions à mon problème me voici.
J'ai environs 100 fichiers excel à ma disposition et j'aimerais faire un récapitulatif de tous dans un classeur
Je m'explique dans la colonne B j'aimerais avoir tout les noms des fichiers et dans la colonne C tous les noms des feuilles associées aux fichiers.
Pour ce faire j'ai créer un dossier avec 4 classeurs dont chacun à un nombre de feuilles différentes.
J'ai donc réaliser la macro suivante qui malheureusement ne m'affiche que les deux premiers fichiers.

En vous remerciant par avance !!!

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Test()
 
        Dim Chemin, Fichier As String
        Dim i, c, k, H As Long
 
        recap = "U:\...\Recap.xlsm"
        Chemin = "U:\...\test\"
        Fichier = Dir(Chemin)
 
        Sheets("Feuil1").Select
        Range("C2").Select
 
' Fonction de mise en place nom
 
                c = 2
 
              Do While Fichier <> ""
 
                Range("B" & c) = Fichier
                Fichier = Dir()
 
                    Nom = Chemin & Sheets("Feuil1").Range("B" & c)
 
                    Workbooks.Open Nom, ReadOnly:=True
                    H = Sheets.Count
 
               For i = 1 To H
                     k = c + i - 1
                     Workbooks(Dir(recap)).Sheets("Feuil1").Range("C" & k) = Sheets(i).Name
 
              Next i
                    Workbooks(Dir(Nom)).Close
 
                c = c + i - 1
             Loop
 
 
         End Sub

[kiki29]

Salut, voir Excel 2007 : Fusion Feuilles Classeurs en PDFs en élaguant ce qui ne t'intéresse pas ( fusion )

P.-S. 1 : Inutile de faire des copies d'écran style drap de lit, qui encombrent et n'apportent rien.
P.-S. 2 : Balise ton code
P.-S. 3 : A lire

[NoursBegin]

Merci beaucoup pour cette réponse rapide.
Pour ce qui est des P.S j'ai tout pris en compte et par conséquent effectué les modifications.
Pour ce qui est du lien merci beaucoup mais malheureusement je n'y comprends pas grands choses, il y a beaucoup de fonctions que je ne comprends pas, il est donc difficile pour moi d'élaguer ton code et j'ai pu voir que le noms des feuilles était marquées en ligne malheureusement je dois les avoir en colonne car je vais devoir par la suite y associer plusieurs informations (j'ai déjà un bout de code qui fonctionne pour cette partie)
Comme mentionné plusieurs fois sur le Forum je ne cherche pas à ce que l'on fasse mon travail je cherche juste à trouver les erreurs de mon code !!

En vous remerciant