Discussion :

[totoche]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Form_Load()
Dim fso As New Scripting.FileSystemObject
Set dossier = fso.GetFolder(App.Path & "\Test")
For Each fileName In dossier.Files
cbGE.AddItem (fileName.Name)
Next
End Sub
 
 
Private Sub cbGE_Click()
Kill (App.Path & "\Test\" & cbGE.Text)
cbGE.RemoveItem (cbGE.Index)
End Sub

Une fois le fichier supprimé du repertoire je veux utiliser la methode remove pour actualiser le combobox, j'ai l'erreur :
Cet objet n'est pas un tableau

[SfJ5Rpw8]

de mémoire j'écrirai plutôt :

Code :

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

cbGE.RemoveItem cbGE.ListIndex

[totoche]

c'est bon

Pour que mon combo se positionne sur la première valeur des items restant comment dosi je faire

[SfJ5Rpw8]

Pour définir la sélection d'un combobox tu peui utilise ListIndex...

Code :

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

cbGE.ListIndex = 0

[totoche]

Erreur : Valeur de propriété incorrecte

[zazaraignée]

Code :

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

cbGE.Text = cbGE.List(0)