Erreur "Execution interrompue" sur "End Sub"

Bonjour au forum,

Je rencontre un soucis avec un de mes fichiers (ci-joint) :

Lorsque je clique sur le bouton "Imprimer", j'ai une erreur "Exécution interrompue" et dans mon code, la ligne "End Sub" se surligne en jaune...

Je peux cliquer sur "Continuer" et l'impression se passe bien quand même, mais je ne comprends pas pourquoi j'ai ce message d'erreur, je n'ai absolument aucune idée d'où vient le problème...

A noter que le fichier est sur un PC connecté au réseau de mon entreprise.

Auriez-vous une idée ?

Merci d'avance !

Nico.

Bonjour

Et comme ceci :

Sub Imprimer()
Application.ActivePrinter = "EasyCoder PF4i (203 dpi) - DP sur Ne05:"
ActiveSheet.PrintOut
End Sub

Cordialement

Bonjour Dan,

Merci pour ta réponse.

Malheureusement cela ne fonctionne pas non plus...

L'impression se fait mais toujours ce message d'erreur

Une autre idée...?

Bonjour,

Je ne sais pas si c'est lié à ton pb mais xlVeryHidden n'est pas une constante correcte pour sheets().visible, c'est xlSheetVeryHidden

Sinon il faut faire un pas à pas avec F8 pour savoir la vraie ligne erronée.

Et oui, pourquoi imprimer avec une macro excel4 alors que tu as tout ce qu'il te faut sous vba ???

eric

Re

Je vois peut être trois choses :

  • un souci de spooler imprimante
  • pas nécessaire de définir l'imprimante si dans tes paramètres windows elle est définie pas défaut
  • un problème entre ta version excel et l'imprimante

Quel est le code erreur s'il y en a un ?

Cordialement

Bonjour Eric, Dan,, le forum,

Désolé de l’absence mais j'ai un autre projet prioritaire qui m'ait tombé dessus, je n'ai donc pas eu la possibilité d'avancer sur celui-ci

Je reviens vers vous dès que possible pour ce problème

Rechercher des sujets similaires à "erreur execution interrompue end sub"