combobox VBA

JNP

XLDnaute Barbatruc

• 5 Avril 2013

• #2

Re : combobox VBA

Bonjour 🙂
Voici un code qui permet de mettre la liste dans un tableau, tu peux facilement le mettre dans ton ComboBox avec la méthode AddItem à la place du tableau 🙂

Code:

Sub Liste()
Chemin = "C:\temp"
ReDim ATraiter(0)
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
For Each Fichier In Dossier.Files
    If Right(Fichier.Name, 4) = ".xml" Then ' liste les fichier XML seulement
        ReDim Preserve ATraiter(UBound(ATraiter) + 1) ' fichiers valides
        ATraiter(UBound(ATraiter)) = Fichier.Name
    End If
Next
End Sub

Bonne soirée 🙂

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 5 Avril 2013

• #3

Re : combobox VBA

Re 🙂
Un Objet WorkBook est un classeur Excel, pas un fichier... 😛
Bon courage 🙂

 

Vote positif 0 Vote négatif

P

pwolff

XLDnaute Nouveau

• 5 Avril 2013

• #4

Re : combobox VBA

Merci pour ta réponse. voila le code final qui fonctionne :

il fallait définir les variables

Private Sub UserForm_Initialize()


Dim chemin As String
Dim Dossier As Object
Dim fichier As Object



chemin = "Z:\............."
ReDim ATraiter(0)
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
For Each fichier In Dossier.Files

ComboBox1.AddItem fichier.Name



Next
End Sub

je n'ai pas compris la ligne ReDim ATraiter(0)

encore merci !!!!!!!!!!!!!!!!!!!!!!!!

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 5 Avril 2013

• #5

Re : combobox VBA

bonjour tous 🙂
l'occasion de saluer Jnp🙂

autrement a rien dans ton cas supprimer la ligne

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 5 Avril 2013

• #6

Re : combobox VBA

Bonjour Pwolff, JNP, laetitia90; le forum

Oui en effet le File Scripting Objet est bien plus simple que d'utiliser un Module de Classe depuis que Microsoft a supprimé le bon vieux "FileSearch" depuis Office 2007.

Ici de la documention sur FSO
Ce lien n'existe plus

Et ci-joint une mini Démo associée au "BrowseForFolder" qui peut être aussi très utile dans un UserForm...

J'ai aussi ajouté une micro astuce pour chercher des Extensions, soit XLS (qui remontera tous les XLSX ou M etc), ou directement QUE les XLSX ou XLSM si on veut cibler... et c'est facultatif...


Cordialement
@+Thierry

 

Pièces jointes

• Pwolff_FSO_List_Files_Thierry_V00.xls

  49 KB · Affichages: 82

Dernière édition: 5 Avril 2013

Vote positif 0 Vote négatif

P

pwolff

XLDnaute Nouveau

• 23 Avril 2013

• #7

Re : combobox VBA

Re bonjour à tous,
Je souhaiterais aller plus loin.
J'ai ma Combobox (que j'ai nommée listefichier) qui a été initialisée avec une liste de fichiers.
je lance une macro via un bouton qui va ouvrir le fichier sélectionné dans la liste

listefichier.RemoveItem listefichier.Value
j'ai également essayé
listefichier.RemoveItem (listefichier.Value)

Ca ne passe pas.

Merci à celle ou celui qui pourrait m'éclairer.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 23 Avril 2013

• #8

Re : combobox VBA

Re 🙂
Si tu veux ouvrir un fichier, il faut utiliser son chemin et son nom... C'est des fichiers Excel ou autres ?
Bonne suite 🙂

 

Vote positif 0 Vote négatif

P

pwolff

XLDnaute Nouveau

• 23 Avril 2013

• #9

Re : combobox VBA

Désolé, je me suis mal exprimé. je reformule ma question :

J'ai une combobox qui a été initialisée au moment de l'ouverture du userform avec une liste donnée. Dans mon exemple, il s'agit d'une liste de fichiers.

J'utilise mon userform, et je sélectionne dans ma liste un item.
je lance une macro à l'aide d'un bouton qui doit supprimer de ma liste l'item que j'ai selectionné.

Pour plus de clarté, j'ai démarré une nouvelle discussion :
https://www.excel-downloads.com/threads/combobox-vba-combobox1-removeitem.204941/

 

Dernière édition: 23 Avril 2013

Vote positif 0 Vote négatif