XL 2019 problème zone d'impression sur plusieurs feuilles

pat66

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

job75

XLDnaute Barbatruc
Bonjour patricklopez66, James007,

Créer un PDF est un sujet archi rabaché sur ce forum, faites les choses simplement :
VB:
Private Sub PDF_Click()
Dim sFilename As String
sFilename = Sheets("Feuil1").Range("D14")
If sFilename = "" Then MsgBox "Entrez le nom du fichier en D14 !", 48: Exit Sub
sFilename = ThisWorkbook.Path & "\" & sFilename
Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, sFilename
Me.Select 'ou Sheets("Feuil1").Select
MsgBox "Fichier PDF créé..."
End Sub
Les zones d'impression que vous voulez doivent avoir été créées dans chaque feuille.

A+
 
Dernière édition:

job75

XLDnaute Barbatruc
Comment sont définies vos zones d'impression ?

Il y a peut-être des macros mal fichues qui s'exécutent à l'ouverture du classeur ou quand on active les feuilles.

Si c'est le cas modifiez-les pour qu'elles ne touchent pas aux zones d'impression.
 

pat66

XLDnaute Impliqué
Mes zones sont définies avec mise en page zone d'impression et définir, mais à chaque ouverture elles sont modifiées. Vous avez raison il doit y avoir des erreurs, c'est pour cela que je souhaite une macro qui détermine pour chaque feuille les lignes et les colonnes à imprimer
Je vais essayer de trouver ces erreurs merci, je pense avoir déjà une idée puisque sur certaines feuilles j'ai des cellules occupées mais que je veux pas imprimer
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 011
Membres
101 866
dernier inscrit
XFPRO