XL 2019 Export PDF avec plusieurs onglets

[ArnaudBernardeau]

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.

 

[sylvanu]

Bonjour Arnaud,
Un essai en PJ, je crée une feuille temporaire, y importe les 4 feuilles, l'enregistre en PDF puis détruit cette feuille temporaire.

 

[kiki29]

Salut, peut-être à consulter si curieux : Liste Contributions PDF , la réponse en bas du post# 1 ( datant de 2007 ) : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

 

[ArnaudBernardeau]

Bonjour Arnaud,
Un essai en PJ, je crée une feuille temporaire, y importe les 4 feuilles, l'enregistre en PDF puis détruit cette feuille temporaire.

Bonjour Sylvanu,
Merci pour ta réponse.
Cela fonctionne c'est super, est-ce que tu aurais une solution pour masquer les colonnes groupées ?

 

[ArnaudBernardeau]

Salut, peut-être à consulter si curieux : Liste Contributions PDF , la réponse en bas du post# 1 ( datant de 2007 ) : Impression de certaines Feuilles d'un classeur via un tableau dans un seul Pdf résultant

Bonjour kiki29,
Merci pour ton retour, je regarde ça.

 

[sylvanu]

Bonjour,

est-ce que tu aurais une solution pour masquer les colonnes groupées ?

Masquer :

Sheets("ONGLET A EXPORTER").Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

Démasquer :

Sheets("ONGLET A EXPORTER").Outline.ShowLevels RowLevels:=0, ColumnLevels:=2

 

[ArnaudBernardeau]

Bonjour,

Masquer :

Sheets("ONGLET A EXPORTER").Outline.ShowLevels RowLevels:=0, ColumnLevels:=1

Démasquer :

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 !

 

[sylvanu]

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é.

 

[ArnaudBernardeau]

Merci pour ton retour.
C'est parfait sur ton exemple, moins sur mon doc à cause des largeurs différentes et des pages d'impression prédéfinies. Je vais essayer de me débrouiller pour que ça sorte proprement.
Merci encore.

 

[ArnaudBernardeau]

Autrement, y aurait-il un code simple pour masquer les colonnes qui sont groupées lorsque l'utilisateur clique sur enregistrer ?

 

[sylvanu]

moins sur mon doc à cause des largeurs différentes et des pages d'impression prédéfinies.

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

y aurait-il un code simple pour masquer les colonnes qui sont groupées lorsque l'utilisateur clique sur enregistrer ?

Utilisez la macro événementielle Workbook_BeforeSave.
Voir ceci : Lien

 

[ArnaudBernardeau]

J'ai trouvé : Columns("F:L").Hidden = True

 

[sylvanu]

Ca c'est pour les masquer, mais il faut la mettre dans une macro pour que l'action soit effectuée lorsque vous enregistrez.
Sinon pour simplement masquer, vous avez la solution au post #6.

 

[ArnaudBernardeau]

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