Imprimer une feuille Hidden

Version imprimable

1 pièce(s) jointe(s)

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:

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:

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

Pièce jointe 175386

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

dans ton bouton imprimer tu met

Code:

1
2
3
4
application.screenupdating=false
sheets("Feuil2").visible=true
'ton code pour imprimer ou sauver en pdf ici
sheets("Feuil2").visible=false

Bonjour,
Est-ce que ceci pourrait répondre à ton besoin.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
Sub Imprimer_feuil1et2()
Dim Ar(1) As String
    Dim sDate As String
 
    Sheets("Feuil2").Visible = True
 
    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

     Sheets("Feuil2").Visible = False
End Sub

Bonjour Patrick,
désolé je n'avais pas vue ta réponse, on s'est croisé

20/04/2015, 01h19
patricktoulon

re

bonsoir gnain c'est pas grave
tu a oublié le scrennupdating
20/04/2015, 01h41
rihab92

Bonsoir tout le monde ,

merci pour votre aide,

j'ai essayé les deux propositions mais malheureusement ça a n'a pas fonctionné :calim2:, ça m affiche tjrs le pdf avec une seule feuille 1

Bonjour,
il faut sélectionner les feuilles avec un array

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Imprimer_feuil1et2()
   
    Dim Ar(1) As String
    Dim sDate As String

    Application.ScreenUpdating = False
 
    Sheets("Feuil2").Visible = True
 
    sDate = Format(Now, "dd mm yyyy") 'Format(Now, "dd mmmm yyyy")

    Ar(0) = "Feuil1"
    Ar(1) = "Feuil2"
    
    Sheets(Array(Ar(0), Ar(1))).Select    
    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, Filename:= _
            "D:\Feuilles\Feuil1" & "\" & Sheets("Feuil1").Range("B6") & "_" & sDate & ".pdf", _
                              Quality:=xlQualityStandard, _
                              IncludeDocProperties:=True, _
                              IgnorePrintAreas:=False, _
                              OpenAfterPublish:=True

     Sheets("Feuil2").Visible = False

    Application.ScreenUpdating = True
End Sub

20/04/2015, 09h10
rihab92

Merciiiiiiiiii gnain, maintenant ça fonctionne parfaitement :mouarf:
20/04/2015, 10h12
patricktoulon

re

Bonjour

et oui on c'est focaliser sur ( ActiveSheet.ExportAsFixedFormat _.....)
avec ca on a pas besoins de sélectionner les feuilles c'est tout le classeur qui est transformé en pdf