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

[pat66]

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

 

[James007]

Bonjour,

Pourquoi ne pas intégrer tes zones d'impression dans ta macro ..?

 

[pat66]

Bonjour 007,

oui j'y ai pensé mais je suis incapable de l'écrire correctement caar il s'agit de plusieurs feuilles avec des zones différentes, pourrais tu m'aider à la concevoir à partir du code ci dessus

merci

 

[James007]

Re Bonjour,

Pour la définition d'une plage, as-tu testé ton enregistreur de macros ...

 

[pat66]

Pour tout te dire je ne l'a jamais utilisé 😕

 

[James007]

Pour tout te dire je ne l'a jamais utilisé 😕

Je vais m'avancer ... mais tu vas être très agréablement surpris ... 😉

 

[job75]

Bonjour patricklopez66, James007,

Créer un PDF est un sujet archi rabaché sur ce forum, faites les choses simplement :

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+

 

[pat66]

Bonjour JOB75,
auriez vous une idée de pourquoi je dois redéfinir les zones à chaque ouverture du classeur ?

merci

 

[job75]

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]

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

 

[job75]

c'est pour cela que je souhaite une macro qui détermine pour chaque feuille les lignes et les colonnes à imprimer

Non ça c'est du bricolage, vos zones d'impression ne doivent pas se modifier, un point c'est tout.

L'erreur des néophytes en macros est d'en mettre dans tous les coins !!!

 

[pat66]

Ok je comprends je vais faire ce qu'il faut, mais comme c'est un classeur que j'ai repris pour faire des modifications à la demande de mon employeur j'ai du boulot, en tout cas merci du conseil

a bientôt