Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Bouton imprimer certaines feuilles en PDF

T

tchi456

XLDnaute Occasionnel
Bonjour,

J'ai ce code qui fonctionne pas trop mal pour pouvoir imprimer deux feuilles spécifiques de mon fichier Excel avec un aperçu avant impression.
Je souhaiterais adapter ce code pour pouvoir inscrire la date d'impression ainsi que le texte d'une cellule spécifique devant le nom du fichier.

VB: 
Sub PDF()
Sheets(Array("Diagramme", "Capacité")).Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\PDF.pdf"
Sheets(1).Select
End Sub

Pouvez-vous m'aider?

Meilleures salutations,

Thierry
 
Solution
Re

@tchi456

En principe on teste d'abord :

1) le fichier joint
ET si cela fonctionne comme demandé
2) on adapte la macro à SON fichier ET si cela ne fonctionne pas
3) c'est que l'adaptation n'est pas bonne

tchi456 à dit:
Est-ce la fait que mes feuilles sont verrouillées par mot de passe?
Cliquez pour agrandir...
BIEN SUR QUE OUI

Il faut déprotéger toutes les feuilles concernées en début de macro et reprotéger toutes les feuilles concernées en fin de macro

Et avec le fichier cela donne ceci :

*Merci de ton retour

@Phil69970
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour @tchi456

Sans fichier pour tester je te propose :
VB: 
Sub PDF()
Sheets(Array("Diagramme", "Capacité")).Select

ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & _
Format(Date, "yyyymmdd") & [H1] & "\PDF.pdf"  'Ici cellule H1 mais à adapter
'Attention dans ta cellule H1 il ne doit pas y avoir de caractere interdit

Sheets(1).Select
End Sub

ou 2eme essai

VB: 
Sub PDF()
Sheets(Array("Diagramme", "Capacité")).Select

ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & _
Format(Date, "yyyymmdd") & [H1].value & "\PDF.pdf"  'Ici cellule H1 mais à adapter
'Attention dans ta cellule H1 il ne doit pas y avoir de caractere interdit

Sheets(1).Select
End Sub

*Merci de ton retour

@Phil69970
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

Je crois que j'ai oublié le \ séparateur

VB: 
Sub PDF()
Sheets(Array("Diagramme", "Capacité")).Select

ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & _
Format(Date, "yyyy-mm-dd") & "\" & [H1] & "\PDF.pdf" 'Ici cellule H1 mais à adapter
'Attention dans ta cellule H1 il ne doit pas y avoir de caractere interdit

Sheets(1).Select
End Sub

Ceci devrait mieux fonctionner


*Merci de ton retour

@Phil69970
 
Vote positif 0 Vote négatif
T

tchi456

XLDnaute Occasionnel
Bonjour Phil69970,

Merci pour votre proposition mais ça me donne un message d'erreur 400 pour les 3 codes.

VB: 
Sub BoutonImprimerCertainesFeuilles()
Sheets(Array("Diagramme traction", "Capacité remorquage")).Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & _
Format(Date, "yyyymmdd") & " - " & [B3].Value & " - " & "\Diagramme de traction.pdf"
Sheets(1).Select
End Sub

Meilleures salutations,
Thierry
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

tchi456 à dit:
& " - " & [B3].Value & " - " & "\
Cliquez pour agrandir...

NON, NON et NON

VB: 
Sub BoutonImprimerCertainesFeuilles()Sheets(Array("Diagramme traction", "Capacité remorquage")).Select
ActiveWindow.SelectedSheets.PrintPreview
ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\" & _
Format(Date, "yyyy-mm-dd") & "\" & [B3] & "\Diagramme de traction.pdf"

Sheets(1).Select
End Sub

*J'ai modifié légèrement le code à 12h24

Sinon 1 fichier serait le bienvenu

*Merci de ton retour

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
T

tchi456

XLDnaute Occasionnel
Bonjour Phil69970,

Désolé pour la réponse tardive. Votre code fonctionne bien jusqu'à l'aperçu. Il me montre bien les deux feuilles que je souhaite enregistrer en PDF mais quand je ferme l'aperçu, un message d'erreur apparait.

Meilleures salutations,

Thierry
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour @tchi456

tchi456 à dit:
Votre code fonctionne bien jusqu'à l'aperçu. Il me montre bien les deux feuilles que je souhaite enregistrer en PDF mais quand je ferme l'aperçu, un message d'erreur apparait.
Cliquez pour agrandir...
1)Quel message ? Montre le car dire j'ai un message d'erreur sans en dire plus n'aide en rien

2)Tu es sur car chez moi le fichier du post #8 fonctionne

J'ai ce message qui m'indique le nom du PDF et ou le pdf est crée qui n'est pas un message d'erreur mais juste une information.



Et si je regarde à l’endroit indiqué :



Il y a bien le fichier excel ET le PDF

Donc merci d'en dire plus ......

*Merci de ton retour

@Phil69970
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Re

@tchi456

En principe on teste d'abord :

1) le fichier joint
ET si cela fonctionne comme demandé
2) on adapte la macro à SON fichier ET si cela ne fonctionne pas
3) c'est que l'adaptation n'est pas bonne

tchi456 à dit:
Est-ce la fait que mes feuilles sont verrouillées par mot de passe?
Cliquez pour agrandir...
BIEN SUR QUE OUI

Il faut déprotéger toutes les feuilles concernées en début de macro et reprotéger toutes les feuilles concernées en fin de macro

Et avec le fichier cela donne ceci :

*Merci de ton retour

@Phil69970
 

Pièces jointes

  • Impression pdf V3.xlsm
    24.5 KB · Affichages: 13
Dernière édition:
Vote positif 0 Vote négatif
Solution
T

tchi456

XLDnaute Occasionnel
Re bonjour,

Votre code fonctionne parfaitement bien. Merci beaucoup pour votre aide si précieuse.
Vous avez pu constater que j'étais pas un surdoué dans ce domaine.

VB: 
Sub BoutonImprimerCertainesFeuilles()

Sheets(3).Unprotect "."
Sheets(4).Unprotect "."

Sheets(Array(3, 4)).PrintPreview

With Sheets(Array(3, 4)).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Format(Date, "YYYYMMDD") & " - " & _
    "Diagramme de traction et capacité de remorquage.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With

Sheets(1).Select
Sheets(3).Protect "."
Sheets(4).Protect "."
     
End Sub

Mes meilleures salutations et bonne fin de semaine!

Thierry
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question
Autres fenêtre "Publication"
Réponses
10
Affichages
426
ph.vanne
P
  • Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
483
job75
L
  • Question
Autres [ RESOLU ] Impression PDF via VBA
Réponses
5
Affichages
938
lechti31
L
P
  • Question
Microsoft 365 sauvegarder en JPG
Réponses
12
Affichages
607
PISTACHE-007
P
  • Question
Microsoft 365 Exporter en PDF avec une mise en page automatique via un bouton
Réponses
8
Affichages
609
patricktoulon
M
  • Question
Microsoft 365 pb enregistrement PDF de plusieurs feuilles d'un classeur excel
2
Réponses
15
Affichages
1 K
MG_000
M
  • Question
Microsoft 365 Aide mise en PDF de feuilles sélectionnées
Réponses
5
Affichages
884
kiki29
T
  • Résolu(e)
XL 2010 Bouton imprimer certaines feuilles en PDF avec aperçu
Réponses
3
Affichages
2 K
tchi456
T
T
  • Résolu(e)
XL 2010 VBA - Bouton impression PDF avec conditions
Réponses
4
Affichages
738
tchi456
T
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
536
Nico2978
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…