avoir le choix d'imprimer ou d'envoyer un Fax ou courriel
3 réponses
Daniel Pelletier
Bonsoir à tous
Cet macro me permet d'impimer une certaine selection dans mon fichier, cela
va
Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le courriel.
Tous cela dans l'exécution de ma macro.
Comment la modifier ??
Sub imp_historique()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Démo.xls:2").Activate
ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B1").Select
End Sub
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
sabatier
bonjour daniel il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement jps
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Cet macro me permet d'impimer une certaine selection dans mon fichier, cela
va Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le courriel.
Tous cela dans l'exécution de ma macro. Comment la modifier ??
Sub imp_historique() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Démo.xls:2").Activate ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("B1").Select End Sub
bonjour daniel
il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement
jps
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:eiGQZvFbEHA.2840@TK2MSFTNGP11.phx.gbl...
Bonsoir à tous
Cet macro me permet d'impimer une certaine selection dans mon fichier,
cela
va
Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le
courriel.
Tous cela dans l'exécution de ma macro.
Comment la modifier ??
Sub imp_historique()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Démo.xls:2").Activate
ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B1").Select
End Sub
bonjour daniel il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement jps
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Cet macro me permet d'impimer une certaine selection dans mon fichier, cela
va Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le courriel.
Tous cela dans l'exécution de ma macro. Comment la modifier ??
Sub imp_historique() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Démo.xls:2").Activate ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("B1").Select End Sub
Daniel Pelletier
Bonjour Sabatier Je voudrait avoir un message box qui me demande qu'el imprimante ou ci je veut l'envoyé par courriel.
"sabatier" a écrit dans le message de news:
bonjour daniel il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement jps
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Cet macro me permet d'impimer une certaine selection dans mon fichier, cela
va Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le courriel.
Tous cela dans l'exécution de ma macro. Comment la modifier ??
Sub imp_historique() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Démo.xls:2").Activate ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("B1").Select End Sub
Bonjour Sabatier
Je voudrait avoir un message box qui me demande qu'el imprimante ou ci je
veut l'envoyé par courriel.
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le message
de news:uBXRlbIbEHA.1356@TK2MSFTNGP09.phx.gbl...
bonjour daniel
il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement
jps
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:eiGQZvFbEHA.2840@TK2MSFTNGP11.phx.gbl...
Bonsoir à tous
Cet macro me permet d'impimer une certaine selection dans mon fichier,
cela
va
Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le
courriel.
Tous cela dans l'exécution de ma macro.
Comment la modifier ??
Sub imp_historique()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Démo.xls:2").Activate
ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B1").Select
End Sub
Bonjour Sabatier Je voudrait avoir un message box qui me demande qu'el imprimante ou ci je veut l'envoyé par courriel.
"sabatier" a écrit dans le message de news:
bonjour daniel il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement jps
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Cet macro me permet d'impimer une certaine selection dans mon fichier, cela
va Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le courriel.
Tous cela dans l'exécution de ma macro. Comment la modifier ??
Sub imp_historique() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Démo.xls:2").Activate ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("B1").Select End Sub
sabatier
bonjour daniel pour faire apparaître la boîte du choix de l'imprimante, tu peux écrire ceci :
Application.Dialogs(xlDialogPrinterSetup).Show
pour les emails, je passe la main... jps
"Daniel Pelletier" a écrit dans le message de news:O6dRz%
Bonjour Sabatier Je voudrait avoir un message box qui me demande qu'el imprimante ou ci je veut l'envoyé par courriel.
"sabatier" a écrit dans le message
de news:
bonjour daniel il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement jps
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Cet macro me permet d'impimer une certaine selection dans mon fichier, cela
va Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le courriel.
Tous cela dans l'exécution de ma macro. Comment la modifier ??
Sub imp_historique() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Démo.xls:2").Activate ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("B1").Select End Sub
bonjour daniel
pour faire apparaître la boîte du choix de l'imprimante, tu peux écrire ceci
:
Application.Dialogs(xlDialogPrinterSetup).Show
pour les emails, je passe la main...
jps
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:O6dRz%23MbEHA.1248@TK2MSFTNGP11.phx.gbl...
Bonjour Sabatier
Je voudrait avoir un message box qui me demande qu'el imprimante ou ci je
veut l'envoyé par courriel.
"sabatier" <biscotteUnScudJpsabatdelaile@wanadoo.fr> a écrit dans le
message
de news:uBXRlbIbEHA.1356@TK2MSFTNGP09.phx.gbl...
bonjour daniel
il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement
jps
"Daniel Pelletier" <pellet15@videotron.ca> a écrit dans le message de
news:eiGQZvFbEHA.2840@TK2MSFTNGP11.phx.gbl...
Bonsoir à tous
Cet macro me permet d'impimer une certaine selection dans mon fichier,
cela
va
Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le
courriel.
Tous cela dans l'exécution de ma macro.
Comment la modifier ??
Sub imp_historique()
'
' imp_défault Macro
' Macro recorded 2003/09/06 by pellet15
' pour imprimer les défaut sélectionner
Windows("Insp_Démo.xls:2").Activate
ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("B1").Select
End Sub
bonjour daniel pour faire apparaître la boîte du choix de l'imprimante, tu peux écrire ceci :
Application.Dialogs(xlDialogPrinterSetup).Show
pour les emails, je passe la main... jps
"Daniel Pelletier" a écrit dans le message de news:O6dRz%
Bonjour Sabatier Je voudrait avoir un message box qui me demande qu'el imprimante ou ci je veut l'envoyé par courriel.
"sabatier" a écrit dans le message
de news:
bonjour daniel il faut que tu regardes du côté de ce type de ligne :
Application.ActivePrinter = "Fax sur Ne01:"
ou
Application.ActivePrinter = "Lexmark Z25-Z35 sur Ne00:"
à adapter selon ton équipement jps
"Daniel Pelletier" a écrit dans le message de news:
Bonsoir à tous Cet macro me permet d'impimer une certaine selection dans mon fichier, cela
va Mais je voudrait avoir le choix de l'imprimante ou le fax ,ou le courriel.
Tous cela dans l'exécution de ma macro. Comment la modifier ??
Sub imp_historique() ' ' imp_défault Macro ' Macro recorded 2003/09/06 by pellet15 ' pour imprimer les défaut sélectionner Windows("Insp_Démo.xls:2").Activate ActiveSheet.PageSetup.PrintArea = "$A$2:$K$37" ActiveWindow.SelectedSheets.PrintOut Copies:=1 Range("B1").Select End Sub