exclusion d'impression

[adinnn]

bonjour à tous,
j'ai un petit problème "bug" intermittent lors de l'exécution d'un macro. En fait le problème se passe lorsque je masque de cellule avec le code suivant et que j'imprime par la suite. À ce moment, tout gèle!

voici le code que j'utilise pour masquer les bordures avant impression:

  Sheets("Rapport").Unprotect ("")
    Range("A43:i45").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    
    Sheets("rapport").Range("A43:i46").Font.ColorIndex = 2
    
    
    '------------------------------------------------------------------------------------
    
    Sheets("Rapport").PrintOut Copies:=2

juste après cet commande, il arrive que le programme gèle. J'ai tenté d'exclure les cellules avec la fonction de zone d'impression mais le tout est imprimé sur 2 pages.

Auriez-vous d'autre idées?

merci

 

[phlaurent55]

Re : exclusion d'impression

Bonjour adinnn

à première vue il n'y aurait pas d'erreur dans le code
pourrais-tu joindre ton fichier (sans données confidentielles) et nous dire quelle est la ligne qui bloque. C'est celle qui est surlignée au moment du débogage
tu devrais également avoir un message avec le code d'erreur

à+
Philippe

 

[adinnn]

Re : exclusion d'impression

Bonjour, en fait il n'y a pas de bug avec le compilateur. Simplement que tout gèle et un sablier apparait et demeure à l'écran pendant longtemps... Des fois tout fonctionne et d'autre ça gèle...peut-etre car le code est trop dur sur le processeur??

Je vais tenter de vous envoyer mon code...

 

[adinnn]

Re : exclusion d'impression

voilà le fichier en question, il est lié à plusieurs fichiers dont db.xlsx.

Le problème intermittent survient lorsque j'appui sur le bouton "ajout page"

Merci

 

[adinnn]

Re : exclusion d'impression

Des Idées? J'Ai pensé à masquer les lignes 43-46 mais le tout change ma mise en page lors de l'impression...