XL 2019 Problème d'impression

[Pieerre69]

Bonjour à tous,

J'ai, dans mon fichier Excel, des commandes boutons pour imprimer des zones d'impressions. Quand je clique sur le bouton, Excel mouline, ferme et se réouvre. Je n'ai aucunes idées pourquoi ça ne fonctionne pas, alors que ça marchait très bien avant.

Précision : même faire CTRL+P sur n'importe quelle feuille/cellule/données/Etc fait "planter" le logiciel.

Je vous joint mon fichier, ainsi que le code.

Private Sub Workbook_Open()

Application.ScreenUpdating = False

Sheets("MENU PRINCIPAL").Activate
For i = 1 To 7
    Sheets("MAGASIN " & i).Visible = xlSheetHidden
Next

End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Call remise_a_zero
    ActiveWorkbook.Save
    
End Sub
Sub redirection_mag()

Application.ScreenUpdating = False

Dim choix_mag As String
Dim num_anomalie As Integer

num_anomalie = Range("A2").Value
num_anomalie = num_anomalie + 1
Range("A2") = num_anomalie
choix_mag = Range("A1")

Sheets(choix_mag).Visible = xlSheetVisible
Sheets(choix_mag).Select
ActiveSheet.Unprotect
Range("C4") = num_anomalie
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

Sub retour_accueil()

Sheets("MENU PRINCIPAL").Select

End Sub

Sub GoTo_decla_fiche()

Sheets("FICHE DE DECLARATION").Select

End Sub
Sub impression_parent()

Dim val As Integer

val = Range("C4").Value

If val <> 0 Then
    ActiveSheet.PageSetup.PrintArea = "A1:D33"
    ActiveSheet.PrintOut
    Else
    MsgBox "NUMÉRO D'ANOMALIE NON DETECTÉ, REVENIR AU MENU PRINCIPAL ET RELANCER LA DÉCLARATION MANQUANT", vbOKCancel + vbCritical, "ERREUR"
    
End If

End Sub
Sub impression_enfant()

Dim val As Integer

val = Range("M4").Value

If val <> 0 Then
    ActiveSheet.PageSetup.PrintArea = "K1:N33"
    ActiveSheet.PrintOut
    Else
    MsgBox "VEUILLEZ INDIQUER UN NUMÉRO D'ANOMALIE", vbOKCancel + vbExclamation, "ERREUR"
    
End If

End Sub
Sub impression_decla()

Dim val As Integer

val = Range("C9").Value

If val <> 0 Then
    ActiveSheet.PageSetup.PrintArea = "A1:D32"
    ActiveSheet.PrintOut
    Else
    MsgBox "VEUILLEZ INDIQUER UN NUMÉRO D'ANOMALIE", vbOKCancel + vbExclamation, "ERREUR"
    
End If

End Sub

Sub remise_a_zero()

    Application.ScreenUpdating = False
    Dim i As Integer
    'RaZ fiche décla
    Sheets("FICHE DE DECLARATION").Activate
    Range("B6:B7").Select
    Selection.ClearContents
    Range("D6:D7").Select
    Selection.ClearContents
    Range("C8:D8").Select
    Selection.ClearContents
    Range("C9:D9").Select
    Selection.ClearContents
    Range("A12:D26").Select
    Selection.ClearContents
    Range("C28:D28").Select
    Selection.ClearContents
    Range("B30:D32").Select
    Selection.ClearContents
    'RaZ magasins
    For i = 1 To 7
        Sheets("MAGASIN " & i).Activate
        Range("A9:D33").Select
        Selection.ClearContents
        Range("K9:N33").Select
        Selection.ClearContents
        Range("m4").Select
        Selection.ClearContents
    Next
    
End Sub

 

[danielco]

Bonjour,

alors que ça marchait très bien avant.

Avant quoi ?

Si tu essaies d'imprimer un autre classeur, ça fonctionne sans problème ?

Daniel

 

[Pieerre69]

Bonjour,



Avant quoi ?

Si tu essaies d'imprimer un autre classeur, ça fonctionne sans problème ?

Daniel

Avant que je modifie quelque chose, mais impossible de me souvenir quoi.
Le fichier semble corrompu car je peux imprimer d'autres classeurs, et personne n'arrive à imprimer ce fichier.
Mais je ne sais pas dire d'où vient cette "corruption" de données..

J'ai transvasé le fichier sur un nouveau (VBA, formules et feuilles) et tout fonctionne normalement. C'est à n'y rien comprendre !!

 

[danielco]

On ne sait jamais pourquoi un classeur se corrompt. On sait que ça arrive, C'est tout 🙁

Daniel

 

[Pieerre69]

Le nouveau fichier ne fonctionne plus non plus !
Voit-tu une erreur cachée dans le code ?
Parce que je n'ai rien modifié à part tester les boutons, macros etc..

 

[danielco]

J'ai recopié les deux feuilles visibles dans un classeur vierge, ainsi que les macros. Ca fonctionne.

Daniel

 

[Pieerre69]

J'ai trouvé le soucis ! Dans les macros (d'ouverture et de fermeture), je mettais "Sheets("xxxxxx").activate et je les laissais activé en permanence... Du coup le fichier moulinait sans arrêt et plantait quand on lui demandait des ressources (impression, modif de style sur une plage de selection).
J'ai remplacé par sheets("xxxx").select. Tout est rentré dans l'ordre, encore merci

 

[danielco]

Ce n'est sans doute pas la cause du problème. L"instruction "Activate" n'est pas permanente. Son effet est le même que de cliquer sur un onglet. De plus le classeur que je t'ai retourné fonctionne, sans modification de code.

Daniel

 

[Pieerre69]

Ce n'est sans doute pas la cause du problème. L"instruction "Activate" n'est pas permanente. Son effet est le même que de cliquer sur un onglet. De plus le classeur que je t'ai retourné fonctionne, sans modification de code.

Daniel

En tout cas je n'ai plus d'erreurs d'impression !
Par contre j'ai une erreur d'éxécution du code.. (cf. photo)

C'est la ligne Sheets(i).select qui déconne.
Avant j'avais pour i allant de 1 à 7, faire
sélectionner la feuille ("MAGASIN " & i)

mais ça faisait cette erreur également.

Je ne vois pas comment réglé ce soucis

 

[danielco]

Quelle macro ?

Daniel

 

[Pieerre69]

Celle-ci.

Sub remise_a_zero()
 
    Application.ScreenUpdating = False
    Dim i As Integer
    'RaZ fiche décla
    Sheets("FICHE DE DECLARATION").Activate
    Range("B6:B7").Select
    Selection.ClearContents
    Range("D6:D7").Select
    Selection.ClearContents
    Range("C8:D8").Select
    Selection.ClearContents
    Range("C9:D9").Select
    Selection.ClearContents
    Range("A12:D26").Select
    Selection.ClearContents
    Range("C28:D28").Select
    Selection.ClearContents
    Range("B30:D32").Select
    Selection.ClearContents
    
    'RaZ magasins
    For i = 1 To 7
        Sheets("MAGASIN " & i).Visible = xlSheetVisible
        Sheets("MAGASIN " & i).Activate
        Range("A9:D33").Select
        Selection.ClearContents
        Range("K9:N33").Select
        Selection.ClearContents
        Range("M4:N5").Select
        Selection.ClearContents
    Next
    
End Sub

 

[danielco]

Il n'y a PAS de Sheets(i).select ???
Celle-ci fonctionne ici. Maintenant, si ton classeur est corrompu... Quelle est la valeur de "i" ?
Daniel

 

[Pieerre69]

Bah si j'ai bien fait et bien compris, pour moi i varie de 1 à 7. Comme ça, la boucle appelle "MAGASIN 1", puis "MAGASIN 2", etc etc etc

 

[danielco]

Il n'y a PAS de Sheets(i).select ???????????????????????????

Daniel

 

[Pieerre69]

De base c'était sheets("MAGASIN "& i).select

Mais j'avais le même message d'erreur donc j'ai essayé .visible et .activate pour voir si ça allait mieux. == même résultat