Discussion :

[rihab92]

Bonsoir chers développeurs,

SVP , je sollicite votre aide concernant un problème

je veux bien imprimer deux feuilles dans le meme PDF , une qui est visible à l'ouverture du fichier et l'autre est Hidden à l'ouverture du workbook

Dans workbook le code que j'ai mis est le suivant :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub workbook_open()
Sheets("Feuil2").Visible = xlSheetHidden
End Sub

et dans un bouton dans feuil 1 , j'ai mis le code suivant :

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Option Explicit
Sub Imprimer_feuil1et2()
Dim Ar(1) As String
    Dim sDate As String
 
 
    sDate = Format(Now, "dd mm yyyy") 'Format(Now, "dd mmmm yyyy")
    Ar(0) = "Feuil1"
    Ar(1) = "Feuil2"
 
 
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, Filename:= _
            "D:\Feuilles\Feuil1" & "\" & Sheets("Feuil1").Range("B6") & "_" & sDate & ".pdf", _
                              Quality:=xlQualityStandard, _
                              IncludeDocProperties:=True, _
                              IgnorePrintAreas:=False, _
                              OpenAfterPublish:=True
 
End Sub

Alors , le problème c'est que si la feuille 2 n'est pas Hidden alors le code s'exécute normal , mais dans le cas ou elle est Hidden , il m'affiche cette erreur



N'y a t il pas une astuce pour l'imprimer malgré qu'elle est Hidden parce que c'est ça mon objectif final , c'est d'imprimer le résultat de la feuil 1 sans que l'utilisateur voit d'ou vient la feuille 2

Merci d'avance