Récupérer noms fichier et plus encore

Bonjour

Je viens à vous pour une petite demande d'aide.

Voici ma configuration :

Dossier A contient :

• Fichier_gestion_individu_1.xlsm
• Fichier_gestion_individu_2.xlsm
• Fichier_gestion_individu_3.xlsm
• etc...

J'aimerai créer un fichier bilan_individu.xlsm qui récupère automatiquement les éléments suivants :

• la partie texte "gestion_individu_1" du nom de tous les fichiers de ce dossier A
• des valeurs de certaines cellules de chaque fichier A

Pensez-vous cela réalisable ?

d'avance.

bonsoir,

à tester après avoir adapté la variable chemin et les cellules à copier

Sub aargh()
    Set wsh = ThisWorkbook.Sheets(1)
    chemin = "c:\data\a\" ' à adapter
    f = Dir(chemin & "Fichier_gestion_individu_*.xls*")
    While f <> ""
        set wb=Workbooks.Open(chemin & f)
        with wb.sheets(1)
            i = i + 1
            wsh.Cells(i, 1) = f ' copier nom du fichier en ligne i, colonne 1
            ' à toi de déterminer les cellules que tu veux copier
            wsh.Cells(i, 2) = .Range("A1") 'copier cellule A1 en ligne i colonne 2
            wsh.Cells(i, 3) = .Range("B1") 'copier cellule A2 en ligne i colonne 3
        End With
        wb.close
    Wend
End Sub

Je vais regarder tout ça et vous tiens au courant, beaucoup en tout cas

Alors effectivement cela marche mais ne convient pas tout à fait.

En effet le fichier source individu fait déjà appel à du VBA et du coup je n'arrive pas à obtenir exactement ce que je veux.

Je vous ai joint le fichier suivi_global_test.xlsm avec la mise en forme souhaitée.

Le but étant d'avoir dans le fichier suivi_global_test :

• colonne A : les noms de fichier "individu_1" récupérés automatiquement dans un dossier défini
• case B2 : menu déroulant de mois (janvier -> décembre)
• colonne B, C, D, E : reprise de la couleur des cases "total général par trimestre" (ligne 9) onglet "recapitulatif" du fichier gestion_individu_1.xlsm, (cela en fonction du mois indiqué en case B2). Et avec la condition suivante : si la ligne 11 du fichier gestion_individu_1.xlsm n'est pas vide, alors la couleur est verte et le mot TAP est indiqué dans le fichier suivi_global.xlsm

Je ne sais pas si j'ai été clair dans mes explications