Application.Dialogs(xlDialogPrint)

Version imprimable

24/12/2007, 12h53
Job3-14

Application.Dialogs(xlDialogPrint)

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!
24/12/2007, 12h58
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:

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 :koi:
24/12/2007, 13h05
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é.

???
24/12/2007, 13h07
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:

objExcel.Visible = True

AVANT de faire le Show
24/12/2007, 13h13
Job3-14

bon,

avec objExcel.Visible = True

Excel ouvre sans boite de dialogue. ???

Merci pour votre aide...
24/12/2007, 13h24
Job3-14

Pour l'intérêt,

je veux imprimer un graphique MSCHART à partir d'ACCESS...
24/12/2007, 13h27
Maxence HUBICHE

Ben... fais un état !
Et tu n'auras donc pas besoin de la boîte de dialogue ;)

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:

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

Citation:

Envoyé par Job3-14

bon,

avec objExcel.Visible = True

Excel ouvre sans boite de dialogue. ???

Merci pour votre aide...

25/12/2007, 14h45
Job3-14

1 pièce(s) jointe(s)

Un exemple
25/12/2007, 17h40
Maxence HUBICHE

le même en zip ???
25/12/2007, 18h15
AlainTech

A partir d'une autre application, les constantes nommées telles que xlDialogPrint ne sont pas connues.
Il faut les définir avant usage ou utiliser leur valeur.
Dans le cas présent, la valeur est 8.
25/12/2007, 20h38
Maxence HUBICHE

pas s'il référence la bibliothèque ;)
25/12/2007, 21h10
Job3-14

1 pièce(s) jointe(s)

Et voilà le ZIP.
25/12/2007, 22h44
Maxence HUBICHE

Au vu de ce que tu as mis dans le zip ...
Je réitère !

Citation:

Envoyé par Maxence HUBICHE

Ben... fais un état !
Et tu n'auras donc pas besoin de la boîte de dialogue ;)
26/12/2007, 00h55
Job3-14

ok pour l'état....

j'ai plusieurs bases de données sous la forme citée en exemple. J'aimerais plutôt continuer avec le style de l'exemple.

Merci de votre compréhension!