Alleger un code de creation de pdf

[ipotez]

Bonjour le forum !

j'ai besoin d'un conseil.

J'ai fais une macro qui transforme en pdf mes feuilles.
Exemple sur la feuille "1er semestre DD"

Sub pdfDD()
Sheets("1er SemestreDD").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\PDF\1er SemestreDD.pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
Sheets("Accueil").Select  [COLOR="Green"]'pour revenir a la feuille accueil après traitement[/COLOR]
End Sub

J'ai donc autant de macro que de feuilles.

J'ai voulu créer une macro qui crée tous les pdf en une seule manip, du coup j'ai écris :

Sub pdfALL()
Call pdfDD
Call pdfCF
Call....
...
End sub.


Je suis conscient que c'est bidon, en plus lorsque la macro se lance, je vois réapparaitre la feuille accueil 18 fois.

Dois je déclarer un tableau ? Comment devrais je m'y prendre pour alléger le traitement.

Merci de votre aide
Bonne journée
Damien

 

[pierrejean]

Re : Alleger un code de creation de pdf

bonjour ipotez

A tester

Pour toutes les feuilles (y compris Accueil)

Sub pdfDD()
for each sh in sheets
sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\PDF\" & sh.name & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
next
End Sub

pour eviter la feuille Accueil

Sub pdfDD()
for each sh in sheets
If sh.name<>"Accueil" then
sh.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\PDF\" & sh.name & ".pdf", Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= False
End if
next

 

[ipotez]

Re : Alleger un code de creation de pdf

Nickel ! merci pierre Jean

par contre j'ai deux autres feuilles que je ne veux pas Pédéhéfizer (feuille vrac, feuille table).

comment l'écrire, séparer les noms de feuilles avec des virgules ne marche pas 😀

 

[pierrejean]

Re : Alleger un code de creation de pdf

Re

If sh.name<>"Accueil" And sh.name<>"Vrac"  And sh.name<>"Table" then

 

[ipotez]

Re : Alleger un code de creation de pdf

arf, j'avais essayé "Or"....

Merci beaucoup
Bonne journée