Discussion :

[sullivan95]

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?

Pour le moment voici le code complet de mon UF :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[dudule]

Bonjour,
Je pense que ca :

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

ca peut t'aider. non ?

[sullivan95]

Bonjour,
Je pense que ca :

ca peut t'aider. non ?

Non ce code ne marche pas.

Ca fait des jours que je cherche! J'en peux plus...

[Chris@Xerox]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[sullivan95]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[sullivan95]

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

merci quand meme

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Non?

edit: Ok. Tout s'explique.