Discussion :

[patrice67]

Bonjour,

Je tente veinement d'ouvrir un fichier Excel 97 avec VB6.0.

Ma démarche est la suivante:
Je sélectionne bien la référence Microsoft EXCEL 8.0. avec VB.

J'écris le code VB suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
 
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel
Private Sub Form_Load()
 
Set appExcel = CreateObject("Excel.Application")
Set wbExcel = appExcel.Workbooks.Open("C:\essai.xls")
Set wsExcel = wbExcel.Worksheets(1)
End Sub

Quand je fais tourner cette appli, le contrôle de gestionnaire de täche signale bien le processus EXCEL, mais à la ligne d'ouverture du classeur.
J'ai l'erreur suivante qui s'affiche:
run-time error -21474117851(80010105)
method Open of object 'workbooks' failed.

Le fichier essai.xls est bien sous la racine.


Merci si vous avez une solution.

[SilkyRoad]

bonjour Patrice

utilises tu WindowsXP & Office 97 ?

tu peux faire un essai en remplaçant

Code :

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

1
2
3
Dim appExcel As Excel.Application 'Application Excel
Dim wbExcel As Excel.Workbook 'Classeur Excel
Dim wsExcel As Excel.Worksheet 'Feuille Excel

par

Code :

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

1
2
3
Dim appExcel As Object
Dim wbExcel As Object
Dim wsExcel As Object

bonne soiree
michel

[patrice67]

Bonjour michel

j'uitlise XP et office 97

Je vais essayer ta solution.

Merci

[patrice67]

Michel

La ligne passe maintenant sans signaler d'erreur.

Je vais essayer de continuer merci et bonne soirée

Patrice.