problème Ouverture Excel

**sihammaster** · 21/04/2011, 12h23

Bonjour,
Je me redirige vers vous aprés des semaines de recherche et de test, mais sans résultat, je travail sur une app qui permet d'extraire des données excel vers la BDD, voila mon code:

Code :

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

1
2
3
4
5
6
7
8
        Dim xlApp As Excels.Application
        Dim xlWorkSheet As Excels.Worksheet
        Dim xlWorkBook As Excels.Workbook
        xlApp = New Excels.ApplicationClass
    xlWorkBook = xlApp.Workbooks.Open(chemin) 'la ligne d'erreur
        xlWorkSheet = xlApp.ActiveWorkbook.ActiveSheet
        xlWorkSheet = xlWorkBook.Worksheets(1)

j'obtiens un débogage automatique sur la ligne en rouge, je sais pas d'ou viens le problème, Aidez moi SVP, Merci d'avance.
L'Erreur:

System.Runtime.InteropServices.COMException (0x800706BE): The remote procedure call failed. (Exception from HRESULT: 0x800706BE)

**Treize_** · 21/04/2011, 13h16

J'ai eu le même problème.
Moi ça fonctionne avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Dim appExcel As Excel.Application
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
 
'Ouverture de l'application
appExcel = CreateObject("Excel.Application")
'Ouverture d'un fichier Excel
wbExcel = appExcel.Workbooks.Open(fichier)
'wsExcel correspond à la première feuille du fichier
wsExcel = wbExcel.Worksheets(1)

Le problème a des chances de venir de ton chemin aussi, regarde si celui-ci est juste.

Treize.

**sihammaster** · 21/04/2011, 13h59

Bonjour,
Merci pour la reponce,
Oui j'ai adapté mon code à le tien, mais toujours le meme probleme..

**Treize_** · 21/04/2011, 14h10

Tu peux écrire en entier la chaîne de caractère du chemin que tu as mis en argument de
... Workbooks.open(chemin) ' la ligne d'erreur

**sihammaster** · 21/04/2011, 15h25

ok:
En fait le lien contient un mot venu de ma BDD, j'ai deja des fichiers enregistré dans un dossier comporte ces mots avec la date du jour, ce format :

"D:\MD\MonDossier\" & mot & "_" & datedujour & ".xls"

ex:

"D:\MD\MonDossier\A_2011-04-21.xls"

voila le code:

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
18
19
Dim xlApp As Excels.Application
        Dim xlWorkSheet As Excels.Worksheet
        Dim xlWorkBook As Excels.Workbook
        xlApp = New Excels.ApplicationClass
        xlApp.DisplayAlerts = False
        Dim comSelectTicker As New SqlCommand("select * from ETF_Assets", m_con)
        dtt = GetData(comSelectTicker)
        For i = 0 To dtt.Rows.Count - 1
            ticker = dtt.Rows(i).Item(1)
            Dim chemin As String = "D:\MD\ETFdb\Details-Ticker\" & ticker & "_" & datedujour & ".xls"
            If File.Exists(chemin) Then
                xlWorkBook = xlApp.Workbooks.Open(chemin)
                xlWorkSheet = xlApp.ActiveWorkbook.ActiveSheet
                xlWorkSheet = xlWorkBook.Worksheets(1)
                 for x=0 to 80
                  'parcourir les données de la feuille excel
                 Next x
            End If
        Next i

Merci.

**Treize_** · 21/04/2011, 15h34

tu as essayé :

Code :

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

1
2
 
Dim chemin As String = "D:\MD\ETFdb\Details-Ticker\" & ticker & "_" & datedujour & ".xls.xls"

Ca peut paraître stupide mais j'ai déjà cherché pas mal a cause de ce type d'étourderie .. ^^

Sinon t'es extension de fichier sont bien des xls ? Parfois on ouvre avec excel mais le fichier peut avoir une extension différente. (Je parle en connaissance de cause aussi ^^)

Quoi qu'il en soit, l'erreur provient forcement de ton "chemin", c'est la seul chose qui diffère avec mon code.

Une autre erreur pourrait provenir de ton exploration des feuilles que tu ferais mal. Tu peux mettre le détails de ton parcours ?

**sihammaster** · 21/04/2011, 17h40

En Fait le code marche bien dés le début mais à un moment; aprés un x de temps il se débogue tout seul.
Avec un message:

System.Runtime.InteropServices.COMException (0x800706BE): The remote procedure call failed. (Exception from HRESULT: 0x800706BE)

**Treize_** · 22/04/2011, 09h19

A cours d'idée, j'ai recherché un peu sur le net, et ce qui me reviens le plus souvent est un .dll endommagée, un problème de permission.

Je vois aussi que ce pourrait être l'envoie d'information incorrecte.

J'avoue que là je ne vois pas vraiment ce que ça pourrait être d'autre.

Tu peux essayé de télécharger System Update Readiness Tool May 2009

http://www.filecluster.fr/logiciel/S...ool-92658.html

System Update Readiness Tool réalise parcourt les clefs registre ci-dessous et les corrige au besoin

**Gurdil le nain** · 22/04/2011, 09h29

Bonjour,

Tu n'aurais pas oublié de fermer ton fichier après lecture ?
C'est la première chose qui me vient en tête si ton code passe au moins une fois et qu'il plante après...

As tu essayé de mettre des doubles antislash ("\\") ? Je sais qu'en Java ça plante, du coup j'ai pris l'habitude d'en mettre partout

**Treize_** · 22/04/2011, 09h36

Personnelement, lorsque je ne fermais pas excel, mon code s'exécutait correctement quand même.

Les processus Excel se multipliaient et faisait ramer le pc mais mis a part ça, aucune erreur de ce type mais bon, ça lui coute rien d'essayé.

Si tu as oublier de fermé correctement Excel j'ai le code :

Code :

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

1
2
3
4
5
6
7
8
 
appExcel.ActiveWorkbook.Close()         'Fermeture d'Excel
        appExcel.DisplayAlerts = True           'remet l'alerte  oui=True   non=False
        appExcel.Quit()
        wsExcel = Nothing
        wbExcel = Nothing
        appExcel = Nothing
        GC.Collect()

**sihammaster** · 22/04/2011, 10h28

Bonjour,
Merci à vous, c'est pas le cas, je ferme le fichier excel aprés chaque traitement...

**Treize_** · 22/04/2011, 14h02

Tu as essayés l'utilitaire que je t'ai proposé ?

Après il y a de forte chance que ça ne change rien mais bon vu comment ça te bloque ça te coûte rien d'essayer

**Kropernic** · 22/04/2011, 14h40

As-tu des macros dans ton fichier qui s'exécute à son ouverture ?

**sihammaster** · 22/04/2011, 15h39

@ Treize_ oui je l'ai testé mais toujour le meme probleme.
@ griftou non y'a aucun macro

**Kropernic** · 02/05/2011, 13h33

Hello,

Sorry pour le retard, j'étais en vacances XD.

Ton problème est-il résolu ?

Si oui, il faut l'indiquer

Si non, peut-être que l'erreur vient d'un problème de culture. Je n'ai pas le code précis sous la main mais en faisant une petite recherche (sur ce forum ou dans google), tu devrais trouver quelque chose.

**sihammaster** · 02/05/2011, 15h40

Bonjour,
Merci Griftou pour l'attention que t'a fait a mon sujet

,
en fait j disais aussi que c'etait un probleme de culture, j'ai essayé ca:

Code :

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

 System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")

mais sans resultat, je viens dernierement de formater mon PC jusqu'au moment tout s passe bien, alors c'etait quoi le probleme.. crois moi je sais pas

Merci quand meme

problème Ouverture Excel

VB.NET

Discussions similaires

Partager

Partager