Ouvrir classeur excell en vba

Question

Salut à tous 
Dans mon code pour ouvrir un classeur xls j'ai:

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.List(ListBoxResult.ListIndex))
'wsExcel correspond à la première feuille du fichier
Set wsExcel = wbExcel.Worksheets(1)

Mais il me trouve une erreur 

erreur d'éxécution 91
Variable objet ou variable de bloc with non définie

à la ligne: 

Set wsExcel = wbExcel.Worksheets(1) 

quelqu'un pourrait me dire comment faire pour ouvrir le classeur car la je ne sais plus et je bloque depuis plusieurs jours.
Un grand merci pour votre aide et à bientôt.

zavier666 · Answer

Salut, j'ai essayé comme cela et cela marche déjà un peu mieux: 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.List(ListBoxResult.ListIndex)) 'wsExcel correspond à la première feuille du fichier Set wsExcel = wbExcel.Worksheets(1) vérifie bien que le nom de ton fichier est correct, le mieux pour débugger serait Dim fichier as string fichier = "C:\Documents and Settings\vincent\Bureau" & ListBoxResult.List(ListBoxResult.ListIndex) msgbox fichier => te permet de vérifier la validité du nom workbooks.open(fichier) enfin j'ai repéré une erreur, workbooks(1) point vers le premier classeur et pas celui que tu viens d'ouvrir -------------------------------------------------- Toujours + de VB et d'API => APi @ le Loupe http://apialaloupe.free.fr

isis1be · Answer

J'ai fait le changement que tu préconisait ctd 
Workbooks.Open ("C:\Documents and Settings\vincent\Bureau" & ListBoxResult.List(ListBoxResult.ListIndex))

mais rien ne change j'ai toujours la même erreur et je ne comprend pas très bien  le truc pour vérifier l'erreur que tu me dit à la fin, car en fait je suis assez nul en vba et il m'a déja fallut longtemp arriver ou j'en suis donc si tu pouvais me détailler plus ce serais super.
Un tout grand merci pour ton aide et à bientôt.

isis1be · Answer

Resalut

En fait je vient de trouver la solution
Par rapport à ce que tu disait j'ai rajouter 

Set wbExcel = appExcel.Workbooks.Open("C:\Documents and Settings\vincent\Bureau" & ListBoxResult.List(ListBoxResult.ListIndex))

Pour cette ligne et après j'ai aussi rajouter

appExcel.Visible = True

et sa tourne.
De toute façon un tout grand merci pour ton aide.

Ouvrir classeur excell en vba

3 réponses

Votre réponse

Discussions similaires