Pb avec Combobox

Version imprimable

Pb avec Combobox

Bonjour,

Je rencontre un petit problème au niveau d'une combobox activé dans un userform.
En effet, celle-ci liste les fichiers d'un répertoire, jusque là pas de soucis.
Ce que je souhaite, c'est lorsque l'utilisateur sélectionne un fichier dans la combobox et qu'il appuie sur un bouton de commande ("ouvrir"), alors ce fichier s'ouvre.

Quelqu'un saurait-il comment faire?:oops:

Pour le moment voici le code complet de mon UF :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Option Explicit Private Sub CommandButton1_Click() C'est ici qu'il me manque le code qui permettra d'ouvrir le fichier sélectionné dans la combobox End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub UserForm_Activate() Dim I As Integer, Chemin As String, Fichier As String Chemin = "S:\257S\Fiches sociétés\*.xls" Fichier = Dir(Chemin) Do While (Len(Fichier) > 0) Me.ComboBox1.AddItem Fichier Fichier = Dir() Loop End Sub

31/03/2009, 16h36
dudule

Bonjour,
Je pense que ca :

Citation:

System.Diagnostics.Process.Start("Valeur selectionnée dans ta combo")

ca peut t'aider. non ?
31/03/2009, 16h45
sullivan95

Citation:

Envoyé par dudule

Bonjour,
Je pense que ca :

ca peut t'aider. non ?

Non ce code ne marche pas.:cry:

Ca fait des jours que je cherche! J'en peux plus...
31/03/2009, 16h59
Chris@Xerox

Bonjour,

Normalement Process.Star devrait fonctionner. Mais il faut le chemin complet du fichier. Exemple:

Code:

Process.Start("C:\File.xls")
31/03/2009, 17h03
sullivan95

Citation:

Envoyé par Chris@Xerox

Bonjour,

Normalement Process.Star devrait fonctionner. Mais il faut le chemin complet du fichier. Exemple:

Code:

Process.Start("C:\File.xls")

Et oui mais le truc, c'est que le fichier est sélectionné dans une liste de plusieurs autres fichiers...
31/03/2009, 17h10
sullivan95

Désolé j'ai mis le post ailleurs dans le forum... c'est VBA excel que j'utilise.

merci quand meme
31/03/2009, 17h12
Chris@Xerox

Peux-tu donner plus de détails stp car je ne vois pas le problème. Dans ton cas, je pense que ceci devrait fonctionner:

Code:

Process.Start("S:\257S\Fiches sociétés\" & ComboBox1.text)

ou ceci si tu ne mets pas l'extension dans ton Combobox

Code:

Process.Start("S:\257S\Fiches sociétés\" & ComboBox1.text & ".xls")

Non?

edit: Ok. Tout s'explique. ;)