ouvrir classeur excel en vba

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:

---

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.

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)

Salut,

Pas testé mais si tu fais à la place de

Code:

---

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

---

plutôt un truc du genre

Code:

---

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

---

Ca pourrait marcher je pense.

Dis si ca va

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:

---

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:

Citation:

---

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

bonjour,

la propriété .selected renvoie vrai ou faux

Citation:

---

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é

bonjour

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

Code:

---

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

---

michel

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

Citation:

---

'"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

Citation:

---

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

---

Code:

---

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:oops:
Un tout grand merci pour votre aide à tous les deux et @ bientôt.:)

bonjour

Il me semble que tu as la réponse dans le message d'erreur:

Citation:

---

Vérifiez l'orthographe du nom de classeur et la validité de l'emplacement.

---

Revérifie que tu as bien un classeur "vrai.xls" dans le répertoire "C:\Documents and Settings\vincent\Bureau"


tu peux aussi faire un essai en ouvrant manuellement ton classeur "vrai.xls" et y placer cette macro qui récupère le nom et le chemin complet du fichier. Tu pourras ainsi le comparer avec l'emplacement que tu indiques dans ta procédure:

Code:

---

MsgBox ThisWorkbook.FullName

---

michel

Citation:

---

Envoyé par SilkyRoad

bonjour

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

Code:

---

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:

---

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:

---

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+

bien vu ... ;o)

bonne journée
michel

bien vu pour le vrai faux
je vient de faire les changements mais il me trouve une erreur

Citation:

---

erreur d'éxécution 91
Variable objet ou variable de bloc with non définie

---

à la ligne:

Citation:

---

Set wsExcel = wbExcel.Worksheets(1)

---

et mon MultiSelect est sur: fmMultiSelectSingle
Comment faire?
Un tout grand merci d'avance et @ bientôt:P