Bonjour à tous,
voila ca fait deux jours que je veux créer une macro qui prend le mois selectionner d'une liste déroulante sous excel et qui affiche les fichier associer a ce mois ci sur la liste box ex: je choisis février dans ma liste déroulante et je veux que ca m affiche la liste des fichier (qui se trouve dans un repertoire nommé ) qui finisse par 02
voici mon code il fonctionne mais il m'affiche tous les fichier du repertoire mais pas seulement de la date selectionné
Private Sub Worksheet_Activate()
Dim F
Dim indice, mois As String
Dim LongFilename As String
With Application.FileSearch
.NewSearch
.LookIn = "Y:\01_commun\Equipe\Jean-Louis\Etude Masse Salariale"
.Execute
On Error Resume Next
For Each F In .FoundFiles
LongFilename = F
G = ShortFilename(LongFilename)
indice = Right(NameSansExtension, 5)
mois = Mid(Range("D3").Value, 4, 2) |
| essayé avec ca mais ca ne marche pas
If mois = indice Then Me.List_ADV.AddItem NameSansExtension |
Next F
End With
Debug.Print NameSansExtension
ThisWorkbook.Worksheets(1).Show
End Sub
Cordialment