ouverture fichier excelRésolu

Question

Bonjour, je souhaite ouvrir un fichier excel avec vb mais lorsque je clique sur mon bouton, il me met un message :
"automation error"

voila mon code :

Private Sub Command1_Click()
    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:\work\fonct_dep.xls")
'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets(1)
End Sub

et j'ai bien activé la référence excel....

alors je comprend pas

merci d'avance

Xynder  [}:)]  59

Xynder59 · Accepted Answer

Bon ba merci quand même cela venait effectivement de mon pc g désinstallé office et je l'ai réinstallé, et maintenant ça marche...

Xynder  [}:)]  59

jrivet · Answer

Salut,
Sur quelle ligne possède tu l'erreur?

Si tu as cocher la référence, il est inutile de passer par un Create Object
Private Sub Command1_Click()
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 = New Excel.Application
   'Ouverture d'un fichier Excel
   Set wbExcel = appExcel.Workbooks.Open("C:\work\fonct_dep.xls")
   'wsExcel correspond à la première feuille du fichier
   Set wsExcel = wbExcel.Worksheets(1)
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Xynder59 · Answer

C cette ligne là :

    Set wbExcel = appExcel.Workbooks.Open("C:\work\fonct_dep.xls")

Xynder  [}:)]  59

jrivet · Answer

Re,
euh... ben la je vois pas... 
tu es sur ?
- qu'au moment de l'ouverture du WorkBook, L'appli excel n'a pas été fermé?
- Il existe bien un Classeur C:\work\fonct_dep.xls?

@+: Ju£i?n
Pensez: Réponse acceptée

Xynder59 · Answer

oui j'ai bien mon classeur fonct_dep.xls

Xynder  [}:)]  59

Xynder59 · Answer

Quand je le lance avec access, le message est le même mais en plus g aussi 
"le serveur a générée une exception"

Xynder  [}:)]  59

cs_MPi · Answer

As-tu un numéro d'erreur ?

MPi

Xynder59 · Answer

oui mais je me demande si cela ne vient de mon pc ???
j'ai lancé le programme sur un autre pc est celui-ci marche...!!!

je vais désinstaller office et le réinstaller, je me demande si il n'y a pas une erreur... ce qui expliquerait : "le serveur a générée une exception"

Xynder  [}:)]  59

Ouverture fichier excel

8 réponses

Votre réponse

Discussions similaires