Discussion :

[jbsushi]

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

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
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 !

[BlueMonkey]

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+

[jbsushi]

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

[jbsushi]

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 :

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 :

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
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 :

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

xl.Workbooks.Open strchemin

Merci d'avance pour votre aide

[madefemere]

Bonjour,

Peut-être un simple

Code :

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

xl.wbk .Open strchemin

au lieu de

Code :

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

xl.Workbooks.Open strchemin

Bonne continuation

[BlueMonkey]

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

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

Code :

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

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+

[jbsushi]

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

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
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