Discussion :

[zouloute]

Bonjour,
je voudrais ouvrir automatiquement un fichier Excel depuis Access. Pour cela, j'ai fait le module suivant:

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
 Sub Test()
 
    Dim Xl As Excel.Application
    Dim Classeur As Excel.Workbook
    Dim Feuille As Excel.Worksheet
 
 
    Set Xl = New Excel.Application
    Xl.Visible = True
 
   Set Classeur = Xl.Workbooks.Open("D:\Mes Documents\proto_1\profil_charge.xls")
   Set Feuille = Classeur.Worksheets("Feuil1")
 
   Debug.Print Feuille.Range("C1")
 
   Classeur.Close False
   Xl.Quit
 
 End Sub

L'erreur suivante s'affiche:

Erreur d'exécution 1004. La méthode Open de l'objet Workbooks a échoué.

Comment faut-il faire??
Merci

[mout1234]

Bonsoir,

Es-tu sur du nom et chemin d'accés au fichier.

Pour vérifier, colle ton chemin

Code :

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

"D:\Mes Documents\proto_1\profil_charge.xls"

directement dans le menu Demarrer/Exécuter de Windows.

[zouloute]

Je viens de le lancer depuis Exécuter et le fichier s'est ouvert normalement...
Il y a un problème avec le "Open" dans Visual Basic j'ai l'impression mais je ne comprends pas pourquoi. Tu as une idée??
Merci beaucoup

[subnox]

Hello,

D'après moi tu dois modifier cette ligne:

Code :

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

Set Xl = New Excel.Application

en cette ligne:

Code :

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

Set Xl = CreateObject("Excel.application")

Redis-moi si ca fonctionne

[zouloute]

J'ai fait la modif mais le même message d'erreur s'affiche: c'est le "Open" qu'il n'a pas l'air de vouloir prendre en compte.

[le_niak]

PEux tu essayer ceci

Code :

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

1
2
3
4
5
6
7
8
 
 'creation des objects excel
Public Appexcel As Excel.Application
Public Wbexcel As Excel.Workbook
 
Set Appexcel = CreateObject("Excel.Application")
Appexcel.Visible = True
Set Wbexcel = Appexcel.Workbooks.Open(""D:\Mes Documents\proto_1\profil_charge.xls")

[zouloute]

Merci pour ton aide mais maintenant l'erreur suivante s'affiche.
Attribut incorrect dans une procédure Sub ou Function

J'ai remis le code en entier ci-dessous:

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
20
21
Sub Test()
'Dim Xl As Excel.Application
'Dim Classeur As Excel.Workbook
   Public Xl As Excel.Application
   Public Classeur As Excel.Workbook
 
    Dim Feuille As Excel.Worksheet
 
    Set Xl = CreateObject("Excel.Application")
    'Set Xl = New Excel.Application
    Xl.Visible = True
 
   Set Classeur = Xl.Workbooks.Open("D:\Mes Documents\proto_1\profil_charge.xls")
 
 Set Feuille = Classeur.Worksheets("Feuil1")
 
 Debug.Print Feuille.Range("C1")
 
   Classeur.Close False
   Xl.Quit
End Sub

Tu as une idée?
Merci bcp!

[le_niak]

Quelle est la ligne qui est soulignée lors de l'erreur?

pS : Pour sélectionner la feuille1

Code :

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

1
2
 
Appexcel.Sheets("Feuil1").Select

[zouloute]

Avant c'était sur :

Code :

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

Set Classeur = Xl.Workbooks.Open("D:\Mes Documents\proto_1\profil_charge.xls")

Maintenant c'est sur:

Code :

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

Public Xl As Excel.Application

[le_niak]

est ce que tu as "activé" les références Microsoft Excel dans VB?

[zouloute]

Oui j'ai activé Microsoft Excel 10.0 Object Library

[le_niak]

Désolé mais je ne vois pas pourquoi ca fonctionne pas.

[mout1234]

Hello,

D'après moi tu dois modifier cette ligne:

Code :

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

Set Xl = New Excel.Application

en cette ligne:

Code :

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

Set Xl = CreateObject("Excel.application")

Redis-moi si ca fonctionne

Pour rappel, le createObject n'est nécessaire que si la bibliothèque Excel n'est pas référencée.

[zouloute]

salut,
c'est ce que j'ai fait mais il me laisse l'erreur
La méthode 'open' de l'objet 'Workbooks' a échoué
Je ne comprends pas...

[mout1234]

salut,
c'est ce que j'ai fait mais il me laisse l'erreur
La méthode 'open' de l'objet 'Workbooks' a échoué
Je ne comprends pas...

...as-tu essayé avec un autre fichier excel (un fichier vide ou équivalent)?

Redonne ton code, tel qu'il est maintenant STP.

[zouloute]

Voilà le code exact:

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
Sub Test()
Dim Xl As Excel.Application
Dim Classeur As Excel.Workbook
 
 
    Dim Feuille As Excel.Worksheet
 
    Set Xl = CreateObject("Excel.Application")
   ' Set Xl = New Excel.Application
    Xl.Visible = True
 
   Set Classeur = Xl.Workbooks.Open("D:\Mes Documents\prototype A\profil charge aux ressources.xls")
   Set Feuille = Classeur.Worksheets("Feuil1")
 
  Debug.Print Feuille.Range("C1")
 
   Classeur.Close False
   Xl.Quit
End Sub

J'avais essayé sans espace dans les noms de fichiers (prototype_A) mais le même message d'erreur s'affiche.