Liste de fichiers dans combobox

Version imprimable

23/09/2012, 11h11
Pierre67

Liste de fichiers dans combobox

Bonjour,

j'ai dans un userform une combobox qui me liste les fichiers xls d'un répertoire
est-il possible de supprimer de cette liste le fichier en cours ?
cordialement
23/09/2012, 16h02
Daniel.C

Bonjour,

Ça dépend de la manière dont ta combobox a été remplie. Est-ce que tu as utilisé la propriété "RowSource", "List" ou la méthode "AddItem" ?
Dans ce dernier cas, utilise "RemoveItem". Sinon, il faut redéfinir la plage source avant de réutiliser "RowSoource".

l'alimentation de la combo est la suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub UserForm_Initialize()
Dim fichierorigine As String, nf As String, repertoire As String
' recherche du chemin complet du fichier contenant le MENU
fichierorigine = Workbooks(ActiveWorkbook.Name).FullName
cbliste.Visible = False
' repertoire du fichier MENU
repertoire = ThisWorkbook.Path & "\" '
nf = Dir(repertoire & "*.xls") 'premier fichier xls tel qu'exporté de la MCT
Do While nf <> ""
     Me.cbliste.AddItem nf
     nf = Dir
Loop
End Sub

23/09/2012, 20h59
Daniel.C

Utilise alors "RemoveItem" en passant en paramètre le nom de fichier à ôter de la liste.
23/09/2012, 21h53
SfJ5Rpw8

Bonsoir,
A quoi te sert ta variable fichierorigin, sinon a conditionner ton Additem ?
24/09/2012, 18h48
Pierre67

Bonjour

fichierorigine m'a permis de vérifier dans une msgbox que j'étais bien dans le bon répertoire:oops:
mais je ne vois pas où placer cette ligne removeitem :calim2:
24/09/2012, 18h55
Daniel.C

Code:

Me.cbliste.RemoveItem nf

où nf contient le nom de ton fichier.
24/09/2012, 19h03
Pierre67

merci pour la syntaxe mais où placer cette ligne
dans l'extrait de code ci-dessus
là je galère

Le bout de code concerne le remplissage de la combobox. Si c'est à ce niveau que tu veux ne pas le prendre en compte :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub UserForm_Initialize()
Dim fichierorigine As String, nf As String, repertoire As String
' recherche du chemin complet du fichier contenant le MENU
fichierorigine = Workbooks(ActiveWorkbook.Name).FullName
cbliste.Visible = False
' repertoire du fichier MENU
repertoire = ThisWorkbook.Path & "\" '
nf = Dir(repertoire & "*.xls") 'premier fichier xls tel qu'exporté de la MCT
Do While nf <> ""
     If nf <> "FichierANePasPrendreEnCompte" Then
        Me.cbliste.AddItem nf
     End If
     nf = Dir
Loop
End Sub

24/09/2012, 19h39
Pierre67

incroyable mais vrai

trop puissant ce forum
je le parcoure souvent rien que me rendre compte du niveau élevé des réponses obtenues

merci à vous tous les AS du VBA
à bientôt pour un autre problème :P

:ccool: