VBA - export feuilles séparées (PDF / XLS)

Bonjour a tous,

Je souhaite exporter chaque feuilles visibles de mon classeur en fichiers séparés (l'export dans le dossier racine serait au top)

2 macros associés a des boutons fonctionnent correctement sur mon fichiers de bases (copie ci-dessous)

• ExportFeuillesPDF

Sub ExportFeuillesPDF()

• ExportFeuillesEXCEL

Sub ExportFeuillesEXCEL()

End Sub

Apres plusieurs duplication du fichier de base suite a son évolution (nouveau graphisme, nouveau filtre, protection feuilles, ... etc...)

Ces deux macro VBA (modules) ne fonctionnement plus et voici le message qui apparaît à l’exécution :

Erreur d'execution '1004'

La méthode 'Copy' de l'objet '_Worksheet' a échoué

Erreur sur les lignes surlignées en couleur.

Je ne trouve pas de solution malgrès mes recherches net.

Merci par avance de vos lumières.

BenitoAP

Bonjour et bienvenue sur le forum

C'est curieux, j'ai testé le premier code et cela se passe bien sur mon PC.

Bye !

Bonjour a vous,

Merci de votre retour,

je viens de trouver la source du problème : mon classeur posséde une feuille masquée.

Après affichage de cette feuille, mes macros remarchent à merveilles.

Avez-vous une solution pour compléter ces macros

afin d'afficher virtuellement la feuille avant l'export (PDF ou XLS).

Merci par avance.

Bonne soirée

Si c'est ça, met dans la macro le code pour démasquer la feuille concernée puis pour la remasquer ensuite;

Si tu as figé l'écran, ce sera transparent pour l'utilisateur;

    '...
    Application.ScreenUpdating = False
    Sheets("Feuille masquée").Visible = True
    '...
    '...
    Sheets("Feuille masquée").Visible = false
End Sub

OK ?

Bye !

Bonjour,

SUPER !

Le macro fonctionne correctement après avoir ajouter votre code dans la formule initiale.

Je rencontre tout de même un petit souci d'affichage à l'ouverture de mes fichiers PDF créés à l'aide de cette macro :

Ma cellule qui possède la formule =SommeSiCouleur(H17:H179;24) et qui fait référence à un module macro créé,

affiche sur le PDF : #NOM?

Lorsque je passe par l'export PDF du menu Fichier de Excel, je n'ai pas ce problème.

Avez vous une solution ? code complémentaire dans une des 2 macro ?

Merci encore pour votre aide.

benitoAP a écrit :

Bonjour,

SUPER !

Le macro fonctionne correctement après avoir ajouter votre code dans la formule initiale.

Je rencontre tout de même un petit souci d'affichage à l'ouverture de mes fichiers PDF créés à l'aide de cette macro :

Ma cellule qui possède la formule =SommeSiCouleur(H17:H179;24) et qui fait référence à un module macro créé,

affiche sur le PDF : #NOM?

Lorsque je passe par l'export PDF du menu Fichier de Excel, je n'ai pas ce problème.

Avez vous une solution ? code complémentaire dans une des 2 macro ?

Merci encore pour votre aide.

Re bonjour,

En utilisant ces fonctions macro d'export PDF, je m'apercçois d'un 2eme soucis :

Les cellules faisant appelle a une mise en forme conditionnelle ne fonctionnent pas.

Comme pour la formule SommeSiCouleur, la mise en forme conditionnelle semble oubliée dans l'export PDF via macro :

Voici la formule MACRO utilisée :

Sub ExportFeuillesPDF()

Application.ScreenUpdating = False

Sheets("LOGO").Visible = True

Dim Sh As Worksheet

For Each Sh In ThisWorkbook.Sheets

Sh.Copy

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

Sh.Name & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=False

ActiveWorkbook.Close False

Next Sh

Sheets("LOGO").Visible = False

MsgBox "Les fichiers PDF sont disponibles dans le dossier 'Documents' "

Application.ScreenUpdating = True

End Sub

Merci de votre aide

Bonjour

Désolé, je ne vois pas.

Bye !