Bonjour à tous,
voila mon problème, après avoir défini une zone d'impression sur plusieurs feuilles, je clique sur mon bouton PDF et cela fonctionne parfaitement, les zone sont respectées
Mais si après avoir défini cette zone, si je ferme le classeur et que je le réouvre, les zones ne sont plus respectées
La zone concerne plusieurs feuilles, mais elle est différente sur chaque feuille
Exemple:
feuil1 B1 - G8,
Feuil2 G5 - L25
Feuil3 D2 - H30
Voici le bouton PDF
Private Sub PDF_Click()
Dim Mdp As String
Mdp = Application.InputBox("Veuillez introduire votre mot de passe")
If Mdp <> "xxx" Then MsgBox "Accès refusé !": Exit Sub
Application.EnableEvents = False
Dim sRep As String
Dim sFilename As String
If Sheets("Feuil1").Range("D14") = "" Then
If MsgBox("Vous devez préciser !", vbOKOnly + vbInformation, " vous informe") = vbAbort Then Exit Sub
Else
ChDir ThisWorkbook.Path
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
sRep = ThisWorkbook.Path
sFilename = ThisWorkbook.Name
sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
Sheets("Feuil1").Range("D14"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
If OutputFilename = "" Then
MsgBox "La Création du fichier PDF est terminée."
End If
End If
Application.EnableEvents = True
End Sub
Merci d'avance pour votre aide
voila mon problème, après avoir défini une zone d'impression sur plusieurs feuilles, je clique sur mon bouton PDF et cela fonctionne parfaitement, les zone sont respectées
Mais si après avoir défini cette zone, si je ferme le classeur et que je le réouvre, les zones ne sont plus respectées
La zone concerne plusieurs feuilles, mais elle est différente sur chaque feuille
Exemple:
feuil1 B1 - G8,
Feuil2 G5 - L25
Feuil3 D2 - H30
Voici le bouton PDF
Private Sub PDF_Click()
Dim Mdp As String
Mdp = Application.InputBox("Veuillez introduire votre mot de passe")
If Mdp <> "xxx" Then MsgBox "Accès refusé !": Exit Sub
Application.EnableEvents = False
Dim sRep As String
Dim sFilename As String
If Sheets("Feuil1").Range("D14") = "" Then
If MsgBox("Vous devez préciser !", vbOKOnly + vbInformation, " vous informe") = vbAbort Then Exit Sub
Else
ChDir ThisWorkbook.Path
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
sRep = ThisWorkbook.Path
sFilename = ThisWorkbook.Name
sFilename = Left(sFilename, InStr(1, sFilename, ".")) & "pdf"
ActiveSheet.ExportAsFixedFormat Type:=x1TypePDF, Filename:= _
Sheets("Feuil1").Range("D14"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
If OutputFilename = "" Then
MsgBox "La Création du fichier PDF est terminée."
End If
End If
Application.EnableEvents = True
End Sub
Merci d'avance pour votre aide