XL 2019 Export PDF avec plusieurs onglets

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

ArnaudBernardeau

XLDnaute Junior
Bonjour à tous,

Je sollicite votre aide pour un problème que je n'arrive pas à résoudre.

Je souhaite effectuer deux opérations en simultané avec un bouton permettant l'export en PDF d'un fichier Excel :
- Masquer les colonnes groupées (D à G) dans le fichier exemple en PJ
- Exporter en PDF l'onglet actif avec les 3 onglets annexes (toujours les mêmes).

Je vous joins un fichier exemple.

Auriez-vous des idées pour effectuer ces deux actions ensemble ?

Je vous remercie par avance pour votre aide.

Cordialement.
 

Pièces jointes

Solution
Donnez alors un fichier représentatif. Difficile d'imaginer.

Utilisez la macro événementielle Workbook_BeforeSave.
Voir ceci : Lien
Mon doc est confidentiel, c'est le problème.
J'ai réussi avec le code suivant :

Sub Export PDF
Columns("F:L").Hidden = True
Sheets(Array("Feuil1", "Annexe1", "Annexe2", "Annexe3")).Select
Sheets("Feuil1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"X:\\....." _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
Bonjour,

Masquer :
VB:
Sheets("ONGLET A EXPORTER").Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
Démasquer :
Code:
Sheets("ONGLET A EXPORTER").Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
Merci bien.
A quel niveau du code faut-il que je l'intègre pour que les colonnes soient masquées lors de l'export en PDF ?
Désolé, je suis un grand débutant 😉
Merci d'avance !
 
Désolé, je suis un grand débutant
Sans importance, de toute façon ma solution n'aurait pas marché. 😂
En effet quand on masque des colonnes, on masque les colonnes sur toute la feuille.
Donc j'ai coller le 1er onglet en deux morceaux, colonnes BC puis colonnes HI.
Le fichier pdf est enregistré au même niveau que le fichier XL.
Si un fichier pdf existe du même nom il est supprimé avant d'être remplacé.
 

Pièces jointes

Donnez alors un fichier représentatif. Difficile d'imaginer.

Utilisez la macro événementielle Workbook_BeforeSave.
Voir ceci : Lien
Mon doc est confidentiel, c'est le problème.
J'ai réussi avec le code suivant :

Sub Export PDF
Columns("F:L").Hidden = True
Sheets(Array("Feuil1", "Annexe1", "Annexe2", "Annexe3")).Select
Sheets("Feuil1").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"X:\\....." _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
105
Retour