Bonjour, sur un usf j'ai un bouton pour envoyer une=20
feuille vers l'impression mais j'ai plusieurs imprimantes=20
donc j'ais fais appel a la fonction Dialogs, le probl=E8me=20
c'est si je d=E9cide d'annuler la t=E2che quand la ^bo=EEte de=20
dialogue xlDialogPrinterSetup et active il me met un=20
message d'erreur, que faut t'il ajouter a mon code.
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
papou
Bonjour DemandeImp = Application.Dialogs(xlDialogPrint).Show If Not DemandeImp Then MsgBox "La demande a été annulée" Else '...... End If Cordialement Pascal
"STEN" a écrit dans le message de news: 2a6701c42847$4e2875c0$ Bonjour, sur un usf j'ai un bouton pour envoyer une feuille vers l'impression mais j'ai plusieurs imprimantes donc j'ais fais appel a la fonction Dialogs, le problème c'est si je décide d'annuler la tâche quand la ^boîte de dialogue xlDialogPrinterSetup et active il me met un message d'erreur, que faut t'il ajouter a mon code.
Bonjour
DemandeImp = Application.Dialogs(xlDialogPrint).Show
If Not DemandeImp Then
MsgBox "La demande a été annulée"
Else
'......
End If
Cordialement
Pascal
"STEN" <jsterjean@aol.com> a écrit dans le message de news:
2a6701c42847$4e2875c0$a001280a@phx.gbl...
Bonjour, sur un usf j'ai un bouton pour envoyer une
feuille vers l'impression mais j'ai plusieurs imprimantes
donc j'ais fais appel a la fonction Dialogs, le problème
c'est si je décide d'annuler la tâche quand la ^boîte de
dialogue xlDialogPrinterSetup et active il me met un
message d'erreur, que faut t'il ajouter a mon code.
Bonjour DemandeImp = Application.Dialogs(xlDialogPrint).Show If Not DemandeImp Then MsgBox "La demande a été annulée" Else '...... End If Cordialement Pascal
"STEN" a écrit dans le message de news: 2a6701c42847$4e2875c0$ Bonjour, sur un usf j'ai un bouton pour envoyer une feuille vers l'impression mais j'ai plusieurs imprimantes donc j'ais fais appel a la fonction Dialogs, le problème c'est si je décide d'annuler la tâche quand la ^boîte de dialogue xlDialogPrinterSetup et active il me met un message d'erreur, que faut t'il ajouter a mon code.
-----Message d'origine----- Bonjour DemandeImp = Application.Dialogs(xlDialogPrint).Show If Not DemandeImp Then MsgBox "La demande a été annulée" Else '...... End If Cordialement Pascal
"STEN" a écrit dans le message de news:
2a6701c42847$4e2875c0$ Bonjour, sur un usf j'ai un bouton pour envoyer une feuille vers l'impression mais j'ai plusieurs imprimantes donc j'ais fais appel a la fonction Dialogs, le problème c'est si je décide d'annuler la tâche quand la ^boîte de dialogue xlDialogPrinterSetup et active il me met un message d'erreur, que faut t'il ajouter a mon code.
Private Sub CmdPrint_Click()
Application.Dialogs (xlDialogPrinterSetup).Show
If MsgBox ("Vous avez demander l'impression de " _ & ActiveSheet.Name & Chr(13) & " Voulez-vous continuer?" _
-----Message d'origine-----
Bonjour
DemandeImp = Application.Dialogs(xlDialogPrint).Show
If Not DemandeImp Then
MsgBox "La demande a été annulée"
Else
'......
End If
Cordialement
Pascal
"STEN" <jsterjean@aol.com> a écrit dans le message de
news:
2a6701c42847$4e2875c0$a001280a@phx.gbl...
Bonjour, sur un usf j'ai un bouton pour envoyer une
feuille vers l'impression mais j'ai plusieurs imprimantes
donc j'ais fais appel a la fonction Dialogs, le problème
c'est si je décide d'annuler la tâche quand la ^boîte de
dialogue xlDialogPrinterSetup et active il me met un
message d'erreur, que faut t'il ajouter a mon code.
Private Sub CmdPrint_Click()
Application.Dialogs (xlDialogPrinterSetup).Show
If MsgBox ("Vous avez demander l'impression de " _
& ActiveSheet.Name & Chr(13) & " Voulez-vous continuer?"
_
-----Message d'origine----- Bonjour DemandeImp = Application.Dialogs(xlDialogPrint).Show If Not DemandeImp Then MsgBox "La demande a été annulée" Else '...... End If Cordialement Pascal
"STEN" a écrit dans le message de news:
2a6701c42847$4e2875c0$ Bonjour, sur un usf j'ai un bouton pour envoyer une feuille vers l'impression mais j'ai plusieurs imprimantes donc j'ais fais appel a la fonction Dialogs, le problème c'est si je décide d'annuler la tâche quand la ^boîte de dialogue xlDialogPrinterSetup et active il me met un message d'erreur, que faut t'il ajouter a mon code.
Private Sub CmdPrint_Click()
Application.Dialogs (xlDialogPrinterSetup).Show
If MsgBox ("Vous avez demander l'impression de " _ & ActiveSheet.Name & Chr(13) & " Voulez-vous continuer?" _
