Impossible d'ouvrir Excel depuis VB

Question

Hello,

J'essaie désespérément de lancer excel depuis ma form avec le code suivant:


Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet

Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open(App.Path & "\Essai.xls")
Set wsExcel = wbExcel.Worksheets(1)


Et j'obtiens le msg d'erreur suivant:

"Erreur d'execution 80010105.
La méthode 'Open de l'objet 'Workbooks' a échoué."

Malgré toutes mes recherches, je n'ai trouvé aucune solution à mon pb...

Quelqu'un pourrait m'aider?

Merci d'avance!!!

aurelie_devplus · Answer

'Ouvre l'application Excel
Set MonXL = CreateObject("Excel.Application") 'Ceci initialise la variable et charge Excel en arrière plan
MonXL.Visible = True 'Rend Excel visible...
MonXL.UserControl = True

    'Ouvre MonFichier
    MonXL.Workbooks.Open FileName:=App.Path & "" & MonFichier
    MonXL.Application.DisplayAlerts = False  'évite d'avoir des messages d'erreur

    'Copie les valeurs
    MonXL.Range("B1").Value = "coucou"

'imprime    
MonXL.Sheets(1).PrintOut
'ferme
MonXL.Workbooks.Close

legofan · Answer

Merci bcp...

Tu me sors une sale épine du pied!!!

 :big)

Impossible d'ouvrir Excel depuis VB

2 réponses

Discussions similaires