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

[patricktoulon]

dans ton bouton imprimer tu met

Code :

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

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

[gnain]

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

Code :

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
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é

[patricktoulon]

bonsoir gnain c'est pas grave
tu a oublié le scrennupdating

[rihab92]

Bonsoir tout le monde ,

merci pour votre aide,

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

[gnain]

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

Code :

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
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

[rihab92]

Merciiiiiiiiii gnain, maintenant ça fonctionne parfaitement