Salut,
Une fois le fichier supprimé du repertoire je veux utiliser la methode remove pour actualiser le combobox, j'ai l'erreur :
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
Cet objet n'est pas un tableau
Partager