Discussion :

[isis1be]

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.

[Jean-Philippe André]

bonjour, ca va un peu dépendre de ce que tu affiches et de ce que tu récupères de ta listbox, mais tu mettras le résultat (traité ou non) dans la partie .open(resultat_ici)

[melouille56]

Salut,

Pas testé mais si tu fais à la place de

Code :

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

Set wbExcel = appExcel.Workbooks.Open("C:\MonFichierExcel.xls")

plutôt un truc du genre

Code :

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

Set wbExcel = appExcel.Workbooks.Open(ListBoxResult.Selected(0))

Ca pourrait marcher je pense.

Dis si ca va

[isis1be]

Voila l'essais avec ce que tu m'a proposé melouille56, mais il me trouve une erreur que je ne comprend pas pour rappel j'ai mis le code suivant pour ouvrir le fichier se trouvant dans ma ListBoxResult

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
 
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(ListBoxResult.Selected(0))
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
 
End Sub

Mais il me dit:

erreur d'exécution '1004':
'vrai.xls' intouvable. Vérifiez l'orthographe du nom de classeur et la validité de l'emplacement.

mais je ne copmprend pas pourquoi il me dit que vrai.xls est introuvable puisqu'il n'existe pas du tout et que ce n'est pas celui qui était présent dans ma ListBoxResult, donc je ne voit pas vu que en aucun moment dans mon code je ne renseigne un fichier "vrai.xls".
Merci pour ta réponse et ton aide.@++

[patbou]

bonjour,

la propriété .selected renvoie vrai ou faux

Selected, propriété


Renvoie ou définit l'état de sélection des éléments dans un contrôle ListBox.

Syntaxe

object.Selected( index ) [= Boolean]

La syntaxe de la propriété Selected comprend les éléments suivants :

Élément Description
object Objet valide.
index Nombre entier compris entre 0 et le nombre d'éléments de la liste moins un.
Boolean Facultatif. Spécifie si un élément est sélectionné.


Valeurs

Les valeurs de Boolean sont les suivantes :

Valeur Description
True L'élément est sélectionné.
False L'élément n'est pas sélectionné.

je pense qu il faut utilser .value


non testé

[SilkyRoad]

bonjour

si la listbox contient uniquement le nom du classeur, tu dois ajouter le nom du répertoire:

Code :

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

appExcel.Workbooks.Open("C:\dossier\" & ListBoxResult.Selected(0))

michel

[isis1be]

Je vient de faire les modifications mais il me renvoie toujours la même erreur sans le code erreur

'"C:\Documents and Settings\vincent\Bureau\vrai.xls' intouvable. Vérifiez l'orthographe du nom de classeur et la validité de l'emplacement.

et j'ai également essayez le .value mais il me dit

erreur d'éxécution 13
incompatibilité de type

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
appExcel.Workbooks.Open ("C:\Documents and Settings\vincent\Bureau\" & ListBoxResult.Selected(0))
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)
 
End Sub

avec toutes ses erreurs ca commence à être trop dur pour mes petites connaissances
Un tout grand merci pour votre aide à tous les deux et @ bientôt.

[LeForestier]

bonjour

si la listbox contient uniquement le nom du classeur, tu dois ajouter le nom du répertoire:

Code :

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

appExcel.Workbooks.Open("C:\dossier\" & ListBoxResult.Selected(0))

michel

Bonjour,
OK pour le chemin du/des répertoirs..
Sauf que la fonction 'Selected' renvoi vrai ou faux suivant que la ligne est sélectionnée ou pas, d'ou la recherche d'un fichier 'Vrai'
A mon sens il faudrait voir..

Code :

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

appExcel.Workbooks.Open("C:\dossier\" & ListBoxResult.List(ListBoxResult.listindex))

Par contre, si la listbox est avec MultiSelect=True
il faut un bouton pour lancer l'opératiopn et la macro suivante dans l'événement clic du bouton

Code :

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

1
2
3
4
5
6
dim i as integer
    For i = 0 to ListBoxResult.count-1
        if ListBoxResult.selected(i) then
            appExcel.Workbooks.Open("C:\dossier\" & ListBoxResult.List(i))
        end if
    next i

A+