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

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Supporter XLD

• 12 Mars 2021

• #2

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Mars 2021

• #3

Bonjour,

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

Daniel

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 12 Mars 2021

• #4

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

 

Pièces jointes

• Imprimer en pdf.xlsm

  22.3 KB · Affichages: 18

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Mars 2021

• #5

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

Daniel

 

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 12 Mars 2021

• #6

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Mars 2021

• #7

Axos à dit:

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

Cliquez pour agrandir...

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

Daniel

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Mars 2021

• #8

Sinon, essaie :

Code:

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

Daniel

 

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 12 Mars 2021

• #9

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 12 Mars 2021

• #10

Le fil

Et pour imprimer

@Phil69970

 

Pièces jointes

• Imprimer en pdf V1.xlsm

  22.5 KB · Affichages: 12

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 12 Mars 2021

• #11

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

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 12 Mars 2021

• #12

Axos à dit:

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

Cliquez pour agrandir...

VB:

Sheets("configuration").PrintOut

Daniel

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 12 Mars 2021

• #13

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

 

Vote positif 0 Vote négatif

A

Axos

XLDnaute Nouveau

• 13 Mars 2021

• #14

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.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Mars 2021

• #15

Le fl

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

@Phil69970

 

Vote positif 0 Vote négatif