VBA Alimenter listbox avec fichier d'un dossier selon conditions
Résolu/Fermé
A voir également:
- VBA Alimenter listbox avec fichier d'un dossier selon conditions
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Fichier rar - Guide
- Fichier host - Guide
- Mettre un mot de passe sur un dossier - Guide
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
2 avril 2019 à 08:02
2 avril 2019 à 08:02
Bonjour,
Private Sub UserForm_Initialize()
Dim Plage As Range, derlig As Long, Vnf As Long, nf As Variant
repertoire = "C:\Users\Desktop\blabla\"
nf = Dir(repertoire & "*.*") ' premier fichier
With Worksheets("feuil1") 'nom de feuille a adapter
derlig = .Range("B" & .Rows.Count).End(xlUp).Row 'derniere cellule non vide
Set Plage = .Range("B1:B" & derlig) ' definition Plage de cellules fichiers a traiter
End With
Do While nf <> ""
Vnf = Application.CountIf(Plage, nf) 'Fichier est au mois une fois dans liste
If Vnf > 0 Then
Me.ListBox1.AddItem nf
End If
nf = Dir ' fichier suivant
Loop
End Sub
2 avril 2019 à 12:35
J'ai juste modifié,
ça correspond mieux à mon besoin j'avais surement pas été assez claire.
Mais ça fonctionne tip top un grand merci !