EXCEL ComboBox: Objet requis
Résolu
Wolf
-
Wolf -
Wolf -
Bonjour,
J'ai un problème avec mon code car quand je l'exécute un message s'affiche et me dis objet requis j'essaye d'afficher une liste de fichiers d'un répertoire à l'aide d'une macro dans une liste déroulante et voici mon code:
Sub Liste(Repertoire As String)
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim FileItem As Scripting.File
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder("C:\Documents and Settings\visiteur\Bureau\sources")
'Boucle sur tous les fichiers du répertoire
For Each FileItem In SourceFolder.Files
'Inscrit le nom du fichier dans la liste déroulante
ComboBox1.AddItem FileItem.Name (Voici la ligne qui pose problème)
Next FileItem
End Sub
Je ne vois vraiment pas le souci merci.
J'ai un problème avec mon code car quand je l'exécute un message s'affiche et me dis objet requis j'essaye d'afficher une liste de fichiers d'un répertoire à l'aide d'une macro dans une liste déroulante et voici mon code:
Sub Liste(Repertoire As String)
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim FileItem As Scripting.File
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder("C:\Documents and Settings\visiteur\Bureau\sources")
'Boucle sur tous les fichiers du répertoire
For Each FileItem In SourceFolder.Files
'Inscrit le nom du fichier dans la liste déroulante
ComboBox1.AddItem FileItem.Name (Voici la ligne qui pose problème)
Next FileItem
End Sub
Je ne vois vraiment pas le souci merci.
2 réponses
-
Bonjour,
Essaye avec..UserForm1.ComboBox1.AddItem FileItem.Name
Adapter UserForm1 au nom réel de ton UserForm
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
Note: Je ne répond pas aux MP pour les questions techniques. Et ma boule de cristal est cassée . -
