même si il y a un déterrage de topic dans les règle de l'art, quelqu'un peut confirmé ou corriger ce que je dit ? merci
j'ai exactement le même problème, la procédure continue sur l’imprimante dite "par défaut"
le bouton annuler doit surement agir sur l'action CHOIX de l'imprimante et non sur la demande d’annulation d'impression.
du coup j'utilise une msgbox avant ,
Sub imp_selec()
'
' choix de l'impression réseau
'
' premier fenêtre de dialogue.
msg = "Choisir votre imprimante réseau? Cliqué OUI "
'Définit les boutons.
Style = vbYesNo + vbDefaultButton1
' Définit les titres.
Title = "imprimer"
Réponse = MsgBox(msg, Style, Title)
' Vous avez choisi le bouton « Oui ».
If Réponse = vbYes Then
Application.Dialogs(xlDialogPrinterSetup).Show '<==== fenêtre de dialogue choix imprimante, si cliqué sur annuler, l'impression de fera sur l'imprimante par défaut!
Range("A1:Q22").Select 'selection des zones du tableur que je voudrais imprimer
ExecuteExcel4Macro "PRINT(1,,,3,,,,,,,,1,,,TRUE,,FALSE)" 'editer avec l'enregistrer une macro
'confirmation impression
msg = "N'oubliez pas vos documents à l'imprimante !"
Style = vbOKOnly
Réponse = MsgBox(msg, Style, Title)
Else
' Vous avez choisi le bouton « non ».
'confirmation annulation impression actif uniquement sur la première msgbox
msg = "impression réseau annuler !"
Style = vbOKOnly
Réponse = MsgBox(msg, Style, Title)
End If
End Sub
vodkaddict a écrit :
Merci beaucoup, j'vais choisir la solution de sélectionner l'imprimante avant d'exécuter le reste
-- 22 Avr 2010, 09:55 --
Désolé mais je viens de m'apercevoir de quelque chose.
La fenêtre pour le choix de l'imprimante s'affiche bien mais quand, au lieu de choisir mon imprimante, je clique sur "annuler" (sur la fenêtre du choix de l'imprimante) excel imprime avec l'imprimante choisi par défaut.
Ya t'il une solution pour que si je clique sur "annuler", le reste du programme ne s'exécute pas ?