Microsoft visual basic execution interrompu

Question

Hello la commu je viens vers vous car j'ai une erreur en executant une macro lorsque je souhaite imprimé en utilisant un bouton sur une feuille excel.

le code dans la fenetre de débogage et la ligne surligné en jaune est :

" ActiveSheet.PageSetup.Orientation = xlPortrait "

_____

Sub impression_suivi_des_ventes_portrait()

'

' impression_suivi_des_ventes_portrait Macro

'

Rows("13:42").Select 

Selection.RowHeight = 30 

ActiveSheet.PageSetup.PrintArea = "$B$10:$Z$42"

ActiveSheet.PageSetup.Orientation = xlPortrait 

ActiveSheet.PageSetup.PaperSize = xlPaperA4 

    With Worksheets("Ventes").PageSetup 

  .Zoom = False 

  .FitToPagesTall = 1 

  .FitToPagesWide = 1 

    End With 

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1 

'

Rows("13:42").Select 

Selection.RowHeight = 17.25 

Range("B2:D3").Select 

End Sub

____

le code n'est pas de moi, le code dans la fenetre de débogage est bien indenté contrairement à l'affichage du forum, mais le fichier fonctionne parfaitement chez moi visiblement il pose soucis sur le poste de travail qu'au boulot, serait tout autant une option de sécurité sur les macro qui pose soucis ?

bien cordialement.

Answer 1

Pour ce qui est du code "pas optimisé", je confirme. Pour le reste, il va être difficile d'en dire plus sans pouvoir analyser la situation "en vrai". Tu n'as d'ailleurs pas confirmé que le choix de la mise en page "portrait" était possible dans le cas d'une impression manuelle. En tout cas, si le problème se produit à l'échelle d'un grand groupe, il faut faire remonter le problème au service qui fournit cette macro (et a peut-être mis en place des contraintes de sécurité qui interfèrent...)

Answer 2

Yes, je reçois régulièrement document du siège, un document Excel avec plusieurs "pages". Lorsque je clique sur une icône je suis redirigé vers une autre page, etc, ce document est en partie bloqué par eux-mêmes, pour des raisons de sécurité sans doute. Du coup je ne pourrai même pas modifier leur code (sachant que l'on est probablement plusieurs centaines d'établissements à recevoir ce document.

Semble-t-il du jour au lendemain ça s'est mis à ne plus imprimer en indiquant l'erreur, selon mes collègues, ce ne sont malheureusement pas des détenteurs ne serait ce que du b2i lol. Bien que j'en sache un petit peu plus, mais j'ai mes limites, j'ai quitté l'école il y a près de 16 ans et je pense qu'en soi leur code est globalement bon, bien que pas optimisé.

Je pense vraiment à un réglage dans les options de sécurité ou de macro mais sans le trouver.

Answer 3

Tel que tu l'as donné, ton code fonctionne. Il y a tout de même une bizarrerie : est-ce que la feuille active est différente de la feuille "Ventes" ? Je présume que non et que tu pourrais la corriger ainsi :

Sub impression_suivi_des_ventes_portrait()

Rows("13:42").RowHeight = 30

With ActiveSheet.PageSetup
    .PrintArea = "$B$10:$Z$42"
    .Orientation = xlPortrait
    .PaperSize = xlPaperA4
    .Zoom = False
    .FitToPagesTall = 1
    .FitToPagesWide = 1
End With

ActiveSheet.PrintOut From:=1, To:=1

Rows("13:42").RowHeight = 17.25
Range("B2:D3").Select

End Sub

A priori, il n'y a pas de raison particulière pour que l'orientation "portrait" pose problème. Peut-être faudrait-il donner plus de précisions sur le contexte. Le modèle d'imprimante concerné, si l'impression en mode portrait se fait correctement lorsque tu la lances "manuellement",...