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
Partager