selection des feuilles à imprimer mais imprime pas les feuiiles avec graph

pierrejean

XLDnaute Barbatruc

• 17 Août 2014

• #2

Re : selection des feuilles à imprimer mais imprime pas les feuiiles avec graph

Bonjour altinea

A tester:

Remplacer WorkSheets par Sheets dans la macro dédiée à l'impression

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 17 Août 2014

• #3

Re : selection des feuilles à imprimer mais imprime pas les feuiiles avec graph

bonsoir PierreJean, ça ne fonctionne pas de plus il y a plusieurs worksheets, si je remplace partout ça bug, merci

 

Vote positif 0 Vote négatif

Patrice33740

XLDnaute Impliqué

• 17 Août 2014

• #4

Re : selection des feuilles à imprimer mais imprime pas les feuiiles avec graph

bonjour,

dans Selectsheets(),

Corrige ton code par celui-ci :

Code:

'   Add the checkboxes
    TopPos = 40
    For i = 1 To ActiveWorkbook.Sheets.Count
        If ActiveWorkbook.Sheets(i).Visible Then
            SheetCount = SheetCount + 1
            PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5
            PrintDlg.CheckBoxes(SheetCount).Text = ActiveWorkbook.Sheets(i).Name
            TopPos = TopPos + 13
        End If
    Next i

Et plus bas dans ' Display the dialog box
remplace

Code:

                    Worksheets(cb.Caption).Activate

par

Code:

                    Sheets(cb.Caption).Activate

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 17 Août 2014

• #5

Re : selection des feuilles à imprimer mais imprime pas les feuiiles avec graph

Re

tester:
Remplacer
Dim CurrentSheet As Worksheet
par
Dim CurrentSheet As Variant

Remplacer
If Application.CountA(CurrentSheet.Cells) <> 0 And CurrentSheet.Visible Then
par
If CurrentSheet.Visible Then

en sus du remplacement De Worksheets par Sheets

Explication : une feuille graphique n'est pas une WorkSheet
Une autre solution consisterait à mettre les graphiques sur des feuilles

 

Vote positif 0 Vote négatif

altinea

XLDnaute Accro

• 17 Août 2014

• #6

Re : selection des feuilles à imprimer mais imprime pas les feuiiles avec graph

bonsoir le forum,
merci PierreJean, et Patrice33740, cela fonctionne,
bonne soirée

 

Vote positif 0 Vote négatif