Bonjour à tous,

Dans une ListBoxResult j'ai réussi à afficher les classeur présent dans un endroit bien spécifique sur mon Disque dur, mais je voudrais maintenant pouvoir ouvrir un fichier à partir d'un bouton (btnConsMod) que j'aurais au préalable sélectionner dans cette ListBoxResult.

Je crois que le code doit être du genre:
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
 
 
Private Sub btnConsMod_Click()
 
'Déclaration des variables
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
Set appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls") 
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
 
End Sub
Je crois que il faut passer par un ....ListBoxResult.select
Mais je ne sais vraiment plus

Merci de votre aide et à bientôt.