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
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