Discussion :

[Job3-14]

Bonjour,

j'ai OFFICE 2000, sous excel je peux lancer application.Dialogs(xlDialogPrint) et sous ACCESS je ne peux pas.

Les références cochées dans EXCEL sont :

1) Visuel Basic for applications
2) Microsoft Excel 9.0 object librairy

Ces dernières références sont aussi cochées dans ACCESS

Quel est le moyen de lancer application.Dialogs(xlDialogPrint) dans ACCESS?

Merci!

[Maxence HUBICHE]

???
utiliser la boîte de dialog PRINT de EXCEL depuis ACCESS ????


bon...
Si tu dis Application.xxx depuis une application (ici Access) l'interpréteur VBA comprends que tu fais appel à l'application elle-même (donc ici Access)
et comme Access, l'application, n'a pas de membre Dialogs, ca plante.

Essaie plutôt
Excel.Application.Dialogs...
ou mieux

Code :

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

1
2
3
4
5
6
 
Sub MyPrinter()
    Dim objExcel as Excel.Application
    Set objExcel = New Excel.Application
    objExcel.Dialogs(xlDialogPrint).show
End Sub

Mais, je ne comprends toujours pas l'intérêt

[Job3-14]

j'ai un message d'erreur lorsque j'éxécute le code....


Erreur d'exécution 1004
La méthode Show de la classe Dialog à échoué.

???

[Maxence HUBICHE]

ben vi... j'ai oublié de te dire que, pour voir la boîte de dialogue PRINT d'EXCEL, il faut que l'application Excel soit elle-même visible !

Donc, il faut ajouter la ligne

Code :

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

objExcel.Visible = True

AVANT de faire le Show

[Job3-14]

bon,

avec objExcel.Visible = True

Excel ouvre sans boite de dialogue. ???

Merci pour votre aide...

[Job3-14]

Pour l'intérêt,

je veux imprimer un graphique MSCHART à partir d'ACCESS...

[Maxence HUBICHE]

erf !
C'est vrai que tu ne peux pas demander la boîte de dialogue PRINT d'excel, s'il n'y a pas de classeur ouvert ...

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub MyPrinter()
    Dim objExcel As Excel.Application
    Set objExcel = New Excel.Application
    objExcel.Visible = True
    objExcel.Workbooks.Add
    objExcel.Dialogs(xlDialogPrint).show
stop
End Sub

Le stop est mis pour qu'Excel reste à l'écran, le temps que tu vérifies que tu as la boîte de dialogue...
Fais F5 pour reprendre le programme...

bon,

avec objExcel.Visible = True

Excel ouvre sans boite de dialogue. ???

Merci pour votre aide...