Création document Excel à partir d'une requête

Bonjour,
J'utilise le code suivant pour créer un document Excel à partir de ma requête.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Commande81_Click() 'declaration des variables Dim strchemin As String Dim LocalDataa501895Desktoptest As Integer Dim xl As Excel.Application Dim wbk As Excel.Workbook Set xl = New Excel.Application xl.Visible = True 'strchemin = racourcis pour l'endroit ou se trouve le fichier Excel créé strchemin = "I:\cer_dlpa\01380\_Tout_01380\UET_SOLUTIONS\EasyLife_Solution\Temp" strchemin = strchemin + "\DepMarseille.xls"     'Une commande attribuée à la requête utilisée DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Req_Marseille", strchemin, True End Sub

---

Ce code marche parfaitement mais mes besoins ont changé.
Il m'est nécessaire de pouvoir consulter le document dès qu'il est créé.
J’espère que vous pourrez m'aider, il faudrait juste que je puisse voir le document une fois que celui-ci est créé.

Merci d'avance pour votre aide ! :)

Salut,

Si tu veux ouvrir la feuille exportée, dans l'instance Excel créée avec Set xl = New Excel.Application, ajoute à la fin de la routine un xl.Workbooks.Open strchemin.

A+

Bonjour,
C'est Exactement ce qu'il me fallait !
Merci BlueMonkey ! :)

J'ai pu faire fonctionner un code à merveille grâce à ton aide, cependant en voulant l'appliquer pour un autre formulaire je rencontre l'erreur suivant :

Citation:

---

Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie

---

Ca fait une demi heure que je bidouille dessus sans comprendre pourquoi je rencontre ce problème ...
Voici le code utilisé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Commande87_Click() 'declaration des variables Dim strchemin As String Dim LocalDataa501895Desktoptest As Integer Dim xl As Excel.Application Dim wbk As Excel.Workbook   'strchemin = racourcis pour l'endroit ou se trouve le fichier Excel créé strchemin = "I:\cer_dlpa\01380\_Tout_01380\UET_SOLUTIONS\EasyLife_Solution\Temp" strchemin = strchemin + "\DepFrance.xlsx"   'Une commande attribuée à la requête utilisée DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Req_DIC", strchemin, True   xl.Workbooks.Open strchemin End Sub

---

Le débogage me renvoie à la ligne suivante :

Code:

---

xl.Workbooks.Open strchemin

---

Merci d'avance pour votre aide :ccool:

Bonjour,

Peut-être un simple

Code:

---

xl.wbk .Open strchemin

---

au lieu de

Code:

---

xl.Workbooks.Open strchemin

---

Bonne continuation

Bonjour,

Afin de pouvoir utiliser un objet du type Excel.Application, il faut lui affectuer un objet de ce type.
Sinon tu utilises une variable initalisé à Nothing :aie:

Dans ton code d'origine il n'y avait pas cette erreur.

Code:

---

1 2 3 4

Dim xl As Excel.Application ' déclare la variable qui contiendra l'objet ' ici xl vaut Nothing, et Excel n'est pas lancé Set xl = New Excel.Application 'initialise la variable avec une nouvelle xl.Visible = True 'rend cette instance visible.

---

Donc ton cas il manque la(les) ligne(s) 3 (et 4 si tu veux voir l'instance d'Excel ouverte.).

A+

Merci beaucoup à vous deux ! :)
Voici le code final et fonctionnel :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Commande87_Click() 'declaration des variables Dim strchemin As String Dim LocalDataa501895Desktoptest As Integer Dim xl As Excel.Application Dim wbk As Excel.Workbook Set xl = New Excel.Application 'initialise la variable avec une nouvelle xl.Visible = True 'rend cette instance visible.   'strchemin = racourcis pour l'endroit ou se trouve le fichier Excel créé strchemin = "I:\cer_dlpa\01380\_Tout_01380\UET_SOLUTIONS\EasyLife_Solution\Temp" strchemin = strchemin + "\DepFrance.xlsx"   'Une commande attribuée à la requête utilisée DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Req_DIC", strchemin, True   xl.Workbooks.Open strchemin End Sub

---