Salut.
J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom
complet de l'imprimante que je dois utiliser pour imprimer un document word.
Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir
créé une instante de Word sous l'objet WApp, linstruction suivante ;
WApp.ActivePrinter = [ImpWord]
Il me répond qu'il y a incompatibilité de type. La portée des plages nommées
ne va pas jusqu'au code des Userfoorms ?
Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne
bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la
celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre
erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
Dans ta plage nommée, as-tu la bonne référence à l'imprimante
avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau
Contenu de la cellule : "HP LaserJet IIISi on \printerslaser"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" <asd@zdifu.fr> a écrit dans le message de news: 4640f084$0$25927$ba4acef3@news.orange.fr...
Salut.
J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom
complet de l'imprimante que je dois utiliser pour imprimer un document word.
Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir
créé une instante de Word sous l'objet WApp, linstruction suivante ;
WApp.ActivePrinter = [ImpWord]
Il me répond qu'il y a incompatibilité de type. La portée des plages nommées
ne va pas jusqu'au code des Userfoorms ?
Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne
bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la
celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre
erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
Gérald ROUSSEL
Bonsoir Gadget, Comme l'indique la page http://support.microsoft.com/kb/177275/fr, la deuxième erreur indique que l'imprimante n'est pas installée... Evidemment, elle l'est (enfin, je l'espère...) mais c'est la résolution de son nom qui ne lui plait pas à mon avis. Voilà, c'était mon grain de sable à l'édifice ;-) Bonne soirée.
Courage et persévérence... Gérald ROUSSEL.
"Gadget" a écrit dans le message de news: 4640f084$0$25927$
Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
Bonsoir Gadget,
Comme l'indique la page http://support.microsoft.com/kb/177275/fr, la
deuxième erreur indique que l'imprimante n'est pas installée...
Evidemment, elle l'est (enfin, je l'espère...) mais c'est la résolution de
son nom qui ne lui plait pas à mon avis.
Voilà, c'était mon grain de sable à l'édifice ;-)
Bonne soirée.
Courage et persévérence...
Gérald ROUSSEL.
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
4640f084$0$25927$ba4acef3@news.orange.fr...
Salut.
J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le
nom complet de l'imprimante que je dois utiliser pour imprimer un document
word.
Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir
créé une instante de Word sous l'objet WApp, linstruction suivante ;
WApp.ActivePrinter = [ImpWord]
Il me répond qu'il y a incompatibilité de type. La portée des plages
nommées ne va pas jusqu'au code des Userfoorms ?
Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me
donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à
la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une
autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Bonsoir Gadget, Comme l'indique la page http://support.microsoft.com/kb/177275/fr, la deuxième erreur indique que l'imprimante n'est pas installée... Evidemment, elle l'est (enfin, je l'espère...) mais c'est la résolution de son nom qui ne lui plait pas à mon avis. Voilà, c'était mon grain de sable à l'édifice ;-) Bonne soirée.
Courage et persévérence... Gérald ROUSSEL.
"Gadget" a écrit dans le message de news: 4640f084$0$25927$
Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
Gérald ROUSSEL
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la syntaxe est : "ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence... Gérald ROUSSEL.
"MichDenis" a écrit dans le message de news:
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la
syntaxe est :
"\ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence...
Gérald ROUSSEL.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
udjsR0bkHHA.1624@TK2MSFTNGP06.phx.gbl...
Dans ta plage nommée, as-tu la bonne référence à l'imprimante
avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau
Contenu de la cellule : "HP LaserJet IIISi on \printerslaser"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
4640f084$0$25927$ba4acef3@news.orange.fr...
Salut.
J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le
nom
complet de l'imprimante que je dois utiliser pour imprimer un document
word.
Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir
créé une instante de Word sous l'objet WApp, linstruction suivante ;
WApp.ActivePrinter = [ImpWord]
Il me répond qu'il y a incompatibilité de type. La portée des plages
nommées
ne va pas jusqu'au code des Userfoorms ?
Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me
donne
bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à
la
celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre
erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la syntaxe est : "ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence... Gérald ROUSSEL.
"MichDenis" a écrit dans le message de news:
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
MichDenis
Les 2 exemples proviennent directement de l'aide de Word...
"Gérald ROUSSEL" a écrit dans le message de news: 4640f84e$0$3459$ Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la syntaxe est : "ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence... Gérald ROUSSEL.
"MichDenis" a écrit dans le message de news:
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
Les 2 exemples proviennent directement de l'aide de Word...
"Gérald ROUSSEL" <gerald.roussel@free.fr> a écrit dans le message de news:
4640f84e$0$3459$a3f2974a@nnrp1.numericable.fr...
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la
syntaxe est :
"\ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence...
Gérald ROUSSEL.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
udjsR0bkHHA.1624@TK2MSFTNGP06.phx.gbl...
Dans ta plage nommée, as-tu la bonne référence à l'imprimante
avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau
Contenu de la cellule : "HP LaserJet IIISi on \printerslaser"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
4640f084$0$25927$ba4acef3@news.orange.fr...
Salut.
J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le
nom
complet de l'imprimante que je dois utiliser pour imprimer un document
word.
Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir
créé une instante de Word sous l'objet WApp, linstruction suivante ;
WApp.ActivePrinter = [ImpWord]
Il me répond qu'il y a incompatibilité de type. La portée des plages
nommées
ne va pas jusqu'au code des Userfoorms ?
Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me
donne
bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à
la
celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre
erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Les 2 exemples proviennent directement de l'aide de Word...
"Gérald ROUSSEL" a écrit dans le message de news: 4640f84e$0$3459$ Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la syntaxe est : "ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence... Gérald ROUSSEL.
"MichDenis" a écrit dans le message de news:
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
jps
gérald, persévérAnce, steplé... jps (un brin irrévérencieux)
"Gérald ROUSSEL" a écrit dans le message de news: 4640f84e$0$3459$
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la syntaxe est : "ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence... Gérald ROUSSEL.
"MichDenis" a écrit dans le message de news:
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
gérald, persévérAnce, steplé...
jps (un brin irrévérencieux)
"Gérald ROUSSEL" <gerald.roussel@free.fr> a écrit dans le message de news:
4640f84e$0$3459$a3f2974a@nnrp1.numericable.fr...
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la
syntaxe est :
"\ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence...
Gérald ROUSSEL.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
udjsR0bkHHA.1624@TK2MSFTNGP06.phx.gbl...
Dans ta plage nommée, as-tu la bonne référence à l'imprimante
avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau
Contenu de la cellule : "HP LaserJet IIISi on \printerslaser"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
4640f084$0$25927$ba4acef3@news.orange.fr...
Salut.
J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le
nom
complet de l'imprimante que je dois utiliser pour imprimer un document
word.
Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après
avoir
créé une instante de Word sous l'objet WApp, linstruction suivante ;
WApp.ActivePrinter = [ImpWord]
Il me répond qu'il y a incompatibilité de type. La portée des plages
nommées
ne va pas jusqu'au code des Userfoorms ?
Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me
donne
bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à
la
celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une
autre
erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
gérald, persévérAnce, steplé... jps (un brin irrévérencieux)
"Gérald ROUSSEL" a écrit dans le message de news: 4640f84e$0$3459$
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la syntaxe est : "ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence... Gérald ROUSSEL.
"MichDenis" a écrit dans le message de news:
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
Gérald ROUSSEL
Oups, désolé, j'avais trop abusé du "jaja" hier... (tu connais le pb ;-)) Merci pour ta remarcation pas du tout vécsante ;-) cou-rage... -- Gérald ROUSSEL.
"jps" a écrit dans le message de news:
gérald, persévérAnce, steplé... jps (un brin irrévérencieux)
"Gérald ROUSSEL" a écrit dans le message de news: 4640f84e$0$3459$
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la syntaxe est : "ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence... Gérald ROUSSEL.
"MichDenis" a écrit dans le message de news:
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Quelqun peut-il m'expliquer ? Merci.
-- Visitez notre site !
www.tohubohu.fr <<<
Oups, désolé, j'avais trop abusé du "jaja" hier... (tu connais le pb ;-))
Merci pour ta remarcation pas du tout vécsante ;-)
cou-rage...
--
Gérald ROUSSEL.
"jps" <jps@wannadoodoo.fr> a écrit dans le message de news:
uWqlxYfkHHA.4900@TK2MSFTNGP05.phx.gbl...
gérald, persévérAnce, steplé...
jps (un brin irrévérencieux)
"Gérald ROUSSEL" <gerald.roussel@free.fr> a écrit dans le message de news:
4640f84e$0$3459$a3f2974a@nnrp1.numericable.fr...
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la
syntaxe est :
"\ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence...
Gérald ROUSSEL.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
udjsR0bkHHA.1624@TK2MSFTNGP06.phx.gbl...
Dans ta plage nommée, as-tu la bonne référence à l'imprimante
avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau
Contenu de la cellule : "HP LaserJet IIISi on \printerslaser"
Dans ton application :
WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" <asd@zdifu.fr> a écrit dans le message de news:
4640f084$0$25927$ba4acef3@news.orange.fr...
Salut.
J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le
nom
complet de l'imprimante que je dois utiliser pour imprimer un document
word.
Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après
avoir
créé une instante de Word sous l'objet WApp, linstruction suivante ;
WApp.ActivePrinter = [ImpWord]
Il me répond qu'il y a incompatibilité de type. La portée des plages
nommées
ne va pas jusqu'au code des Userfoorms ?
Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me
donne
bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à
la
celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une
autre
erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
Oups, désolé, j'avais trop abusé du "jaja" hier... (tu connais le pb ;-)) Merci pour ta remarcation pas du tout vécsante ;-) cou-rage... -- Gérald ROUSSEL.
"jps" a écrit dans le message de news:
gérald, persévérAnce, steplé... jps (un brin irrévérencieux)
"Gérald ROUSSEL" a écrit dans le message de news: 4640f84e$0$3459$
Effectivement Denis "sauf que" dans le cas de l'imprimante réseau, la syntaxe est : "ServeurImpressionNomImprimante sur NE08:" sans oublier les ":"
Pour le vérifier, il suffit d'utiliser MsgBox Application.ActivePrinter
Courage et persévérence... Gérald ROUSSEL.
"MichDenis" a écrit dans le message de news:
Dans ta plage nommée, as-tu la bonne référence à l'imprimante avec la bonne syntaxe ?
Comme ceci :
Contenu de la cellule : "HP LaserJet 4 local on LPT1:" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
Ou réseau Contenu de la cellule : "HP LaserJet IIISi on printerslaser" Dans ton application : WApp.ActivePrinter = Worksheets("MAfeuille").range("ImpWord")
"Gadget" a écrit dans le message de news: 4640f084$0$25927$ Salut. J'ai nommé dans une feuille Excel une cellule ImpWord, et j'y ai mis le nom complet de l'imprimante que je dois utiliser pour imprimer un document word. Sous VBA, dans la procédure d'un bouton de commande, j'ai mis, après avoir créé une instante de Word sous l'objet WApp, linstruction suivante ; WApp.ActivePrinter = [ImpWord] Il me répond qu'il y a incompatibilité de type. La portée des plages nommées ne va pas jusqu'au code des Userfoorms ? Quand le code est interrompu là par l'erreur, un 'Print [ImpWord]' me donne bien le nom de l'imprimante.
Encore plus bizarre, si je remplace [ImpWord] par la référence directe à la celleule, Worksheets("MAfeuille").range("C6").Value, celà génère une autre erreur : '5216 : Erreur d'imprimante' ; que je ne conaissait pas.
