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