Recuperer des noms de fichier dans un repertoire precis SOUS EXCEL
cs_jerome1983
Messages postés13Date d'inscriptionmercredi 14 avril 2004StatutMembreDernière intervention30 juin 2004
-
14 avril 2004 à 15:32
cs_Francky56
Messages postés8Date d'inscriptionvendredi 12 décembre 2003StatutMembreDernière intervention14 avril 2004
-
14 avril 2004 à 17:56
Bonjour,
Jai un pb qui me bloque dans mon taf.
jai une boite de dialogue ou il ya une liste déroulante (COMBOBOX).
Sur mon bureau jai un repertoire composé uniquement de fichiers excel
En fait jaimerai que dans ma liste deroulante il y ai tous les fichiers excel de mon repertoire.
Et lorsque que je selectionne un fichier et que je clique sur mon bouton Ok le fichier correspondant souvre.
Je precise bien que je suis sur excel. Alt+f11 me donne microsoft visual basic.
Il n'exite pas de fileListbox...
es ce possible? si oui quel est le code?
si vous pouvez bien detaillé car je suis à la rue complet
merci
A voir également:
Recuperer des noms de fichier dans un repertoire precis SOUS EXCEL
cs_Francky56
Messages postés8Date d'inscriptionvendredi 12 décembre 2003StatutMembreDernière intervention14 avril 2004 14 avril 2004 à 17:56
a metttre a l'init de ta userform sert à repertorier tes fichiers excel
Private Sub UserForm_Initialize()
combobox.AddItem "Sélectionnez un fichier excel..."
Dim MyFile, MyPath, MyName
' Affiche les noms représentant des
' fichiers .xls
MyPath = "c:\...le repertoire\*.xls" ' Définit le chemin d'accès.
' Extrait la première entrée.
MyName = Dir(MyPath)
Do While MyName <> "" ' Commence la boucle tant qu'il trouve des .xls
combobox.AddItem MyName 'ajoute dans la combobox
MyName = Dir ' Extrait l'entrée suivante.
Loop
CbBEtDangers.ListIndex = 0
End Sub
et ensuite dans la propriete change de combobox
Private Sub combobox_Change()
'controle ligne -1 et 0 ne sont pas des doc a ouvrir
'-1=>ligne blanche et 0=>"Selectionnez..."
'a partir de 1 sont indique tous les document excel
If CbBEtDangers.ListIndex >= 1 Then
Dim Excel As Excel.Application
Dim ExcelSheet As Object
Dim ExcelWorkbook As Object
' lancement Excel.
Set Excel = New Excel.Application
' en cas d'échec...
If Excel Is Nothing Then
MsgBox "Echec lors du lancement de Excel! ", _
vbCritical, "Appel de Excel"
' Sortir
Exit Sub
End If
'ouverture du document selectionné
Set ExcelWorkbook = Excel.Workbooks.Open("c:\....lerepertoire" & combobox.Text, , True)
'le rendre visible
Excel.Visible = True
'fermer la macro
End
End If
End Sub
je l'ai teste chez moi et ca marche fais attention dans le nom du répertoire et du nom de la combobox en théorie ca fonctionne.....
Ken@vo