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

[altinea]

Bonjour le forum,

je souhaitai pouvoir lister les feuilles de mon classeur et imprimer celles que je voulais.
En parcourant le forum, j'ai trouvé un code qui correspond, par contre, il ne m'affiche pas les feuilles contenant un graphique, pourriez vous m'aider à trouver la solution et me dire ce qu'il faut que je modifie.

Dans la feuille data, j'ai mis un bouton qui lance la macro.

Merci pour votre aide

 

[pierrejean]

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

 

[altinea]

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

 

[Patrice33740]

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

bonjour,

dans Selectsheets(),

Corrige ton code par celui-ci :

'   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

                    Worksheets(cb.Caption).Activate

par

                    Sheets(cb.Caption).Activate

 

[pierrejean]

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

 

[altinea]

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

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