XL 2016 Impression pdf d'une feuille de calcul...

[Axos]

Bonjour à tous,

Je souhaite imprimer en .pdf (via un bouton dédié dans mon userform) une feuille de calcul (appelée CONFIGURATION) qui n'est pas la feuille de calcul active.
J'ai saisi le code ci dessous :

Private Sub Boutonimprimer_click()

'Impression de la feuille de données en .pdf à l'activation du bouton imprimer
Sheets("CONFIGURATION").ExportAsFixedFormat Type:=xlTypePDF, Filename:="Paramètres_établissement.pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Cependant, Excel ne veut pas exécuter ce code le considérant buggé... Quelqu'un peut-il me dire où est l'erreur et m'aider à la résoudre? J'avoue ne pas la voir...

D'avance, je vous remercie de vos réponses.

Axos.

 

[Bernard_XLD]

Bonjour
vite fait sans test car je m'en vais, il doit falloir un fullname pour Filename
Cordialement, @+

 

[danielco]

Bonjour,

Si ça peut t'aider, ça fonctionne avec "OpenAfterPublish:=False". Savoir pourquoi...

Daniel

 

[Phil69970]

Bonjour @Axos, Yeahou, danielco, le forum

Je te propose ce fichier :

*Le pdf sera crée dans le même répertoire ou se trouve le fichier excel

@Phil69970

 

[danielco]

Je n'y comprend rien. Ton code fonctionne, maintenant.

Daniel

 

[Axos]

Merci pour vos réponses!

Pour information mon code crée déjà le fichier en .pdf dans le même répertoire. C'est juste ce problème d'impression qui m'embête encore...

Axos

 

[danielco]

Merci pour vos réponses!

Pour information mon code crée déjà le fichier en .pdf dans le même répertoire. C'est juste ce problème d'impression qui m'embête encore...

Axos

Ton code n'imprime rien. Il enregistre seulement la feuille au format pdf. Pourquoi ne pas imprimer la feuille ?

Daniel

 

[danielco]

Sinon, essaie :

ShellExecute 0, "Print", "c:\temp\Paramètres_établissement.pdf", vbNullString, "", 0

Daniel

 

[Axos]

Daniel,

Tu as raison effectivement. Autant pour moi. L'enregistrement de la feuille doit me permettre de la publier telle qu'elle sur internet.

Qui plus est la fonction OpenAfterPublish: avec l'argument False donne le même résultat. Ca bug...

Axos

 

[Phil69970]

Le fil

Et pour imprimer

@Phil69970

 

[Axos]

Phil,

En réalité, je passe par un bouton "Imprimer" dédié au sein de mon userform qui lui même est accessible via une autre feuille que la feuille à enregistrer. C'est là qu'est le problème. Je sais très bien coder pour une impression de la feuille active. Mais pas pour une feuille différente. C'est là que j'ai besoin de votre aide.

Axos

 

[danielco]

Phil,

En réalité, je passe par un bouton "Imprimer" dédié au sein de mon userform qui lui même est accessible via une autre feuille que la feuille à enregistrer. C'est là qu'est le problème. Je sais très bien coder pour une impression de la feuille active. Mais pas pour une feuille différente. C'est là que j'ai besoin de votre aide.

Axos

Sheets("configuration").PrintOut

Daniel

 

[Phil69970]

Le fil

@Axos As tu regardé mon fichier du post #10 ?
Il y a la partie enregistrement qui apparemment ne t’intéresse pas et la partie impression qui devrait elle t’intéresser.... 😉

@Phil69970

 

[Axos]

Phil,

Merci de ta patience et de ton aide. Oui je l'ai regardé et analysé. Le problème, c'est que le script enregistre la feuille active, donc la feuille qui me sert de menu de navigation (appelée MENU) dans mon applicatif. Il n'enregistre pas la feuille de données proprement dite (appelée elle CONFIGURATION).

Je pensait qu'on pouvait, dans mon code d'origine remplacer la fonction Activesheet par Sheets("Nom de la feuille") suivie de l'argument ExportAsFixedFormat...

J'ai essayé également le code Sheets("configuration").PrintOut mais là aussi, ça ne fonctionne pas.

En réalité, mon userform de saisie de données s'ouvre à partir de la feuille "MENU" puis un bouton "Imprimer" doit permettre de générer le fichier .pdf (dans le même répertoire que l'applicatif) de la feuille de données appelée "CONFIGURATION". C'est aussi simple que ça...

Je ne comprends pas...

Axos.

 

[Phil69970]

Le fl

Et si tu postais le fichier cela nous permettra de voir....ou cela cloche !
*Fichier anonymisé pour respecté le RGPD....

@Phil69970