Discussion :

[Mennen]

Bonjour ,

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

Voici ma configuration :

Dossier A contient :
- individu_1.xlsm
- individu_2.xlsm
- individu_3.xlsm
- etc...

J'aimerai créer un fichier suivi_global_test.xlsm qui récupère automatiquement les éléments suivants :
- la partie texte "individu_1" du nom de tous les fichiers de ce dossier A
- des valeurs de certaines cellules de chaque fichier A


Je vous ai joint le fichier individu_1.xlsm (via free : http://dl.free.fr/jhlcF7jAx mdp:excel)

Je vous ai également 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

Pensez-vous cela réalisable ?

:thx: d'avance.

[Slooby]

Bonjour,

Pour ce qui concerne les fichiers d'un répertoire voici de quoi t'aider, tu trouveras ton bonheur ici: http://excel.developpez.com/faq/?page=FichiersDir

Slooby.

[eric4459]

Bonjour Mennen
Voici un bout de code pour lister les fichier d'un répertoire qui contiennent "individu"

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
Sub BoucleFichiers2()
Dim Chemin As String, Fichier As String, sNom As String, sDt As String
Dim SF As Object 'déclare la variable SF (Système de Fichiers)
Dim D As Object 'déclare la variable D (Dossier)
Dim EF As Object 'déclare la variable EF (Ensemble de Fichiers)
Dim F As Object 'déclare la variable F (Fichier)
Dim DEST As Range 'déclare la variable DEST (Cellule de DESTination)
 
Set SF = CreateObject("Scripting.FileSystemObject") 'définit le système de fichier SF
Set D = SF.GetFolder("C:\le chemin de ton fichier\") 'définit le dossiers D
Set EF = D.Files 'définit l'ensembles des fichiers EF du dossier D
 
For Each F In EF 'boucle sour tous les fichiers F de l'ensemble de ficiers EF
    'condition : si le nom du fichier commence par...
    If F.Name Like "individu" & "*.xlsm" Then 'xlsx ou  xls selon ta version d'EXCEL
        'définit la cellule de destination DEST (A3 si A3 est vide, sinon, la première ligne vide de la colonne A)
        Set DEST = IIf(Range("A3").Value = "", Range("A3"), Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
        DEST.Value = F.Name 'récupere le nom du fichier dans DEST
    End If 'fin de la condition
Next F 'prochain fichier de la boucle
End Sub

A adapter a ton cas
Eric

[AlainTech]

Bonjour,

Pas besoin de FSO pour lister des noms de fichiers.
Dir fait ça très bien:

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
  Dim strfile As String
  strfile = Dir("C:\Users\Alain\Documents\Factures\2015\Fact*.pdf")
  Do While Not strfile = vbNullString
    DoEvents
    Debug.Print strfile
    strfile = Dir
  Loop
End Sub

[Mennen]

Merci pour vos réponses qui m'auront bien aiguillées