Erreur PrintOut

[Legolas]

Bonjour le forum !

J'ai un problème avec la fonction PrintOut que je ne comprends pas...
Et je n'aime pas ne pas comprendre !

Voici le code que j'utilise

Sub Bouton1_Cliquer()
    'impression
    Application.Calculation = xlManual
    Dim nb_annexe, nb_rapport, i As Integer
    nb_annexe = Worksheets("Accueil").Cells(1, 9)
    nb_rapport = Worksheets("Accueil").Cells(7, 2)

    Worksheets("Page_garde").PrintOut

    For i = 1 To nb_rapport
        rapport = "Rapport" & i
        Worksheets(rapport).PrintOut
    Next i
   
    For Each fs In ThisWorkbook.Worksheets
        If fs.Name <> "Accueil" And fs.Name <> "Page_garde" And fs.Name <> "Annexe" And fs.Name <> "Data" And Left(fs.Name, 3) <> "Rap" Then 
            fs.PrintOut
        End If
    Next fs
...
End Sub

La macro bug sur fs.PrintOut ... Savez-vous me dire pourquoi ?
Merci d'avance

++

 

[Dranreb]

Re : Erreur PrintOut

Bonjour.

La macro bug sur fs.PrintOut ... Savez-vous me dire pourquoi ?

Hélas non, car nous ne disposons pas encore du moyen technique nécessaire pour examiner à distance un classeur dont il n'est même pas fait allusion.

 

[Legolas]

Re : Erreur PrintOut

D'accord, je n'ai pas trop le choix que de mettre mon fichier en pièce jointe...
La partie du code qui bug est dans le module "Impression_rapport"

 

[Dranreb]

Re : Erreur PrintOut

À quel moment la cellule B7 de Accueil est elle renseignée ? Et si c'est manuel qu'est-ce qui garantit qu'un chiffre supérieur au nombre de feuilles Rapport ne soit renseigné ?

Non, j'ai rien dit, ok, j'ai vu.
Ben je ne vois pas alors.

Ah, si, une chose: j'ai remplace PrintOut par PrintPreView pour les tests mais jai eu l'erreur quand même sur Rapport1. J'ai alors affiché la feuille, en continuant le pas à pas le PrintPreview a alors marché.

Il semblerait qu'il faille l'écrire :

        With Worksheets("Rapport" & i)
           .Visible = xlSheetVisible
           .PrintOut
           .Visible = xlSheetHidden: End With

 

[Legolas]

Re : Erreur PrintOut

En fait, l'impression de la feuille "Page_garde" et des feuilles "Rapport" (1 à 6 selon les renseignements de l'utilisateur) se font très bien !
Ce n'est vraiment que fs.PrintOut qui ne fonctionne pas.

Et je pense avoir trouver une solution en ajoutant la déclaration de "fs" en début de Sub :

Sub Bouton1_Cliquer()
    'impression
    Application.Calculation = xlManual
    Dim nb_annexe, nb_rapport, i As Integer

    Dim fs As Worksheet

    nb_annexe = Worksheets("Accueil").Cells(1, 9)
    nb_rapport = Worksheets("Accueil").Cells(7, 2)
...

Faut que je teste sur plus de cas, mais cela a fonctionné une fois !

++

 

[Dranreb]

Re : Erreur PrintOut

C'est mieux de tout déclarer de toute façon, et explicitement typé chaque fois que possible.
Je ne peux pas voir parce qu'il n'y a dans le classeur joint aucune feuille dont le nom est différent de tout ce qui est prévu.