Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Enregistrement format PDF via une macro

Enregistrement format PDF via une macro

22 réponses
Avatar
cadouxmi
Bonjour,

Tous les mois je dois diffuser sur l'intranet de l'entreprise un fichier
Excel de 25 onglets. Afin de limiter le volume je fais cette diffusion vai un
format PDF mais je dois enregistrer chaque onglet un par un (via PDFMaker
6.0) . J'ai cherché sur la "communauté" une astuce pour automatiser cela via
une macro qui m'enregistre mes onglets un par un au format PDF. (j'ai
surement mal cherché).
Quelqu'un pourrait il me conseiller pour créer cette macro ?

Je vous en remercie par avance
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Patrick BASTARD
Bonjour, *Mgr Banni*

Et un bouton de plus sur la soutane...
Heureusement le droit de (clear)asile n'est pas un vain mot...
rofl

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.


bonjour
je sors à peine des matines et m'empresse de vous répondre, d'autant
plus volontiers que vous me traitez avec beaucoup d'égards...
en fait, sur XL 2002, bien que cochée dans la liste des macros
complémentaires, votre macro ne crée pas, à l'ouverture d'excel, le
bouton dans le menu Outils ; pour ce faire, il faut aller décocher
puis parcourir les xla et réinstaller, une sorte de chienlit qui vous
amène aux vêpres sans vous en rendre compte, pour peu que vous vous
mélangiez pieds et doigts dans votre soutane....
et comme la SuppressionOption ne se fait pas à la fermeture d'excel
puisque le bouton est inexistant, vous héritez d'un bug, facile,
certes, à balayer d'un revers de cette même soutane...
pour ceux qui seraient victimes du même micro-climat que celui qui
règne, pour l'occasion, en notre sainte demeure, je ne peux que leur
conseiller de monter un bouton dans leur BO et d'y affecter la macro
Lance_Conversion sans oublier toutefois de cocher dans la liste des
macros complémentaires... voilà, fils païen, ce que je pouvais vous
dire à ce sujet qui, s'il ne devait qu'intéresser ma paroisse, peut
en rester là, sauf à vouloir à tout prix gagner son paradis
merci encore, papou pour votre intervention
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:
Mes respects monseigneur ;-)
Je vous remercie pour votre bénédiction, qui bien que ne signifiant
pas grand chose pour mon âme païenne, comme vous le soulevâtes fort
bien, me va malgré tout droit au coeur !
Désolé d'apprendre que la xla ne fonctionne pas avec 2002, mais je
n'ai aucun moyen d'effectuer des tests sur d'autres versions à
l'heure actuelle.
Peux-tu préciser si tu obtiens un message d'erreur particulier au
chargement (par donc Outils, Macros complémentaires) ?
En tout été de cause une âme (charitable) devrait pouvoir venir à ton
secours, le code étant "ouvert".

Cordialement
Pascal



"Mgr Banni" a écrit dans le message de news:
%23RdbU$
bonsoir papou (je me permets de vous appeler ainsi car avec un tel
nom, je pense que votre âme est encore à convertir et j'en parlerai
aux Oeuvres Pontificales Missionnaires en charge de cette approche)
je viens de tester sur l'ordinateur de Benoît Croix V Bâton qui est
le seul chez nous à avoir XL 2003 (prudent comme il est, il n'est
pas prêt d'installer XL 2007 et à suivre ce forum, je dois dire en
toute humilité qu'il n'a pas tort)
et je vous confirme que votre .xla s'installe bien alors que sur XL
2002, elle refuse de créer le bouton dans le menu Outils sauf à
ouvrir le fichier .xla depuis l'explorateur....
que Dieu bénisse votre travail, mon fils
jps

"Mgr Banni" a écrit dans le message de news:

bonjour, mon fils
y aurait-il une raison majeure qui ferait que votre magnifique xla
fonctionne mal sur XL 2002?
mes ouailles sont de plus en plus équipées d'ordinateurs mais
rarement d'excel et afin de leur diffuser la sainte parole, je me
trouve très intéressé par votre travail
merci de me répondre, sachant que si vous parvenez à me dépanner,
je ne pourrai que vous offrir une confession gratuite
allez en paix
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message de news:
Ok
Tu vas trouver la XLA ici :
http://cjoint.com/data/kipUXCPPQJ.htm

Le code de la macro complémentaire est libre d'accès donc tu peux
l'adapter à ton cas.
Il te faudra donc PDFCreator 0.9.3 , tu le trouveras ici :
http://www.pdfforge.org/products/pdfcreator/download

Cordialement
Pascal

"cadouxmi" a écrit dans le
message de news:

J'ai Excel 2003


Bonjour
Si tu as Excel 2003, je peux te proposer une macro
complémentaire fonctionnant sur cette version avec PDFCreator
(gratuit). Cordialement
Pascal

"cadouxmi" a écrit dans le
message de
news:
Bonjour,

Tous les mois je dois diffuser sur l'intranet de l'entreprise
un fichier
Excel de 25 onglets. Afin de limiter le volume je fais cette
diffusion vai
un
format PDF mais je dois enregistrer chaque onglet un par un
(via PDFMaker
6.0) . J'ai cherché sur la "communauté" une astuce pour
automatiser cela
via
une macro qui m'enregistre mes onglets un par un au format PDF.
(j'ai
surement mal cherché).
Quelqu'un pourrait il me conseiller pour créer cette macro ?

Je vous en remercie par avance
















Avatar
papou
La suggestion à tester :
Déplacer le code présent dans Thisworkbook de la manière suivante :
1°) code de l'évènement Workbook_Open > dans un évènement
Workbook_AddinInstall
2°) code de l'évènement Workbook_BeforeClose > dans un évènement
AddinUninstall
Modifier le code désormais positionné dans AddinUninstall :

Private Sub Workbook_AddinUninstall()
On Error GoTo Gest_err
SuppressionOption
Exit Sub

Gest_err:
Err.Clear
On Error GoTo 0
End Sub

Penser à enregistrer la XLA ainsi modifiée
Décocher la référence dans la liste des macros complémentaires
Fermer Excel
Relancer Excel, cocher la macro complémentaire et vérifier si l'option
"Conversion en Pdf" apparaît dans le menu Outils

Pas d'autre suggestion actuellement.

Cordialement
Pascal


"Mgr Banni" a écrit dans le message de news:

bonjour
je sors à peine des matines et m'empresse de vous répondre, d'autant plus
volontiers que vous me traitez avec beaucoup d'égards...
en fait, sur XL 2002, bien que cochée dans la liste des macros
complémentaires, votre macro ne crée pas, à l'ouverture d'excel, le bouton
dans le menu Outils ; pour ce faire, il faut aller décocher puis parcourir
les xla et réinstaller, une sorte de chienlit qui vous amène aux vêpres
sans vous en rendre compte, pour peu que vous vous mélangiez pieds et
doigts dans votre soutane....
et comme la SuppressionOption ne se fait pas à la fermeture d'excel
puisque le bouton est inexistant, vous héritez d'un bug, facile, certes, à
balayer d'un revers de cette même soutane...
pour ceux qui seraient victimes du même micro-climat que celui qui règne,
pour l'occasion, en notre sainte demeure, je ne peux que leur conseiller
de monter un bouton dans leur BO et d'y affecter la macro Lance_Conversion
sans oublier toutefois de cocher dans la liste des macros
complémentaires...
voilà, fils païen, ce que je pouvais vous dire à ce sujet qui, s'il ne
devait qu'intéresser ma paroisse, peut en rester là, sauf à vouloir à tout
prix gagner son paradis
merci encore, papou pour votre intervention
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:
Mes respects monseigneur ;-)
Je vous remercie pour votre bénédiction, qui bien que ne signifiant pas
grand chose pour mon âme païenne, comme vous le soulevâtes fort bien, me
va malgré tout droit au coeur !
Désolé d'apprendre que la xla ne fonctionne pas avec 2002, mais je n'ai
aucun moyen d'effectuer des tests sur d'autres versions à l'heure
actuelle.
Peux-tu préciser si tu obtiens un message d'erreur particulier au
chargement (par donc Outils, Macros complémentaires) ?
En tout été de cause une âme (charitable) devrait pouvoir venir à ton
secours, le code étant "ouvert".

Cordialement
Pascal



"Mgr Banni" a écrit dans le message de news:
%23RdbU$
bonsoir papou (je me permets de vous appeler ainsi car avec un tel nom,
je pense que votre âme est encore à convertir et j'en parlerai aux
Oeuvres Pontificales Missionnaires en charge de cette approche)
je viens de tester sur l'ordinateur de Benoît Croix V Bâton qui est le
seul chez nous à avoir XL 2003 (prudent comme il est, il n'est pas prêt
d'installer XL 2007 et à suivre ce forum, je dois dire en toute humilité
qu'il n'a pas tort)
et je vous confirme que votre .xla s'installe bien alors que sur XL
2002, elle refuse de créer le bouton dans le menu Outils sauf à ouvrir
le fichier .xla depuis l'explorateur....
que Dieu bénisse votre travail, mon fils
jps

"Mgr Banni" a écrit dans le message de news:

bonjour, mon fils
y aurait-il une raison majeure qui ferait que votre magnifique xla
fonctionne mal sur XL 2002?
mes ouailles sont de plus en plus équipées d'ordinateurs mais rarement
d'excel et afin de leur diffuser la sainte parole, je me trouve très
intéressé par votre travail
merci de me répondre, sachant que si vous parvenez à me dépanner, je ne
pourrai que vous offrir une confession gratuite
allez en paix
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:
Ok
Tu vas trouver la XLA ici :
http://cjoint.com/data/kipUXCPPQJ.htm

Le code de la macro complémentaire est libre d'accès donc tu peux
l'adapter à ton cas.
Il te faudra donc PDFCreator 0.9.3 , tu le trouveras ici :
http://www.pdfforge.org/products/pdfcreator/download

Cordialement
Pascal

"cadouxmi" a écrit dans le
message de news:
J'ai Excel 2003


Bonjour
Si tu as Excel 2003, je peux te proposer une macro complémentaire
fonctionnant sur cette version avec PDFCreator (gratuit).

Cordialement
Pascal

"cadouxmi" a écrit dans le
message de
news:
Bonjour,

Tous les mois je dois diffuser sur l'intranet de l'entreprise un
fichier
Excel de 25 onglets. Afin de limiter le volume je fais cette
diffusion vai
un
format PDF mais je dois enregistrer chaque onglet un par un (via
PDFMaker
6.0) . J'ai cherché sur la "communauté" une astuce pour
automatiser cela
via
une macro qui m'enregistre mes onglets un par un au format PDF.
(j'ai
surement mal cherché).
Quelqu'un pourrait il me conseiller pour créer cette macro ?

Je vous en remercie par avance



























Avatar
Mgr Banni
merci papou pour cette suggestion mais hélas! ça ne fonctionne qu'au premier
coup de goupillon ; nous retombons ensuite dans le même travers, lequel, par
souci oecuménique, n'est, bien sûr, pas de porc...
mais comme l'a souligné ce fils espiègle de Patrick B, cela ne fera qu'un
bouton de plus à ma soutane...
si quelque bonne âme équipée de XL 2002 voulait bien tester de son côté,
elle agirait pour mes bonnes oeuvres
Deo gratias
Mgr T.B.

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de news:
%
La suggestion à tester :
Déplacer le code présent dans Thisworkbook de la manière suivante :
1°) code de l'évènement Workbook_Open > dans un évènement
Workbook_AddinInstall
2°) code de l'évènement Workbook_BeforeClose > dans un évènement
AddinUninstall
Modifier le code désormais positionné dans AddinUninstall :

Private Sub Workbook_AddinUninstall()
On Error GoTo Gest_err
SuppressionOption
Exit Sub

Gest_err:
Err.Clear
On Error GoTo 0
End Sub

Penser à enregistrer la XLA ainsi modifiée
Décocher la référence dans la liste des macros complémentaires
Fermer Excel
Relancer Excel, cocher la macro complémentaire et vérifier si l'option
"Conversion en Pdf" apparaît dans le menu Outils

Pas d'autre suggestion actuellement.

Cordialement
Pascal


"Mgr Banni" a écrit dans le message de news:

bonjour
je sors à peine des matines et m'empresse de vous répondre, d'autant plus
volontiers que vous me traitez avec beaucoup d'égards...
en fait, sur XL 2002, bien que cochée dans la liste des macros
complémentaires, votre macro ne crée pas, à l'ouverture d'excel, le
bouton dans le menu Outils ; pour ce faire, il faut aller décocher puis
parcourir les xla et réinstaller, une sorte de chienlit qui vous amène
aux vêpres sans vous en rendre compte, pour peu que vous vous mélangiez
pieds et doigts dans votre soutane....
et comme la SuppressionOption ne se fait pas à la fermeture d'excel
puisque le bouton est inexistant, vous héritez d'un bug, facile, certes,
à balayer d'un revers de cette même soutane...
pour ceux qui seraient victimes du même micro-climat que celui qui règne,
pour l'occasion, en notre sainte demeure, je ne peux que leur conseiller
de monter un bouton dans leur BO et d'y affecter la macro
Lance_Conversion sans oublier toutefois de cocher dans la liste des
macros complémentaires...
voilà, fils païen, ce que je pouvais vous dire à ce sujet qui, s'il ne
devait qu'intéresser ma paroisse, peut en rester là, sauf à vouloir à
tout prix gagner son paradis
merci encore, papou pour votre intervention
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:
Mes respects monseigneur ;-)
Je vous remercie pour votre bénédiction, qui bien que ne signifiant pas
grand chose pour mon âme païenne, comme vous le soulevâtes fort bien, me
va malgré tout droit au coeur !
Désolé d'apprendre que la xla ne fonctionne pas avec 2002, mais je n'ai
aucun moyen d'effectuer des tests sur d'autres versions à l'heure
actuelle.
Peux-tu préciser si tu obtiens un message d'erreur particulier au
chargement (par donc Outils, Macros complémentaires) ?
En tout été de cause une âme (charitable) devrait pouvoir venir à ton
secours, le code étant "ouvert".

Cordialement
Pascal



"Mgr Banni" a écrit dans le message de news:
%23RdbU$
bonsoir papou (je me permets de vous appeler ainsi car avec un tel nom,
je pense que votre âme est encore à convertir et j'en parlerai aux
Oeuvres Pontificales Missionnaires en charge de cette approche)
je viens de tester sur l'ordinateur de Benoît Croix V Bâton qui est le
seul chez nous à avoir XL 2003 (prudent comme il est, il n'est pas prêt
d'installer XL 2007 et à suivre ce forum, je dois dire en toute
humilité qu'il n'a pas tort)
et je vous confirme que votre .xla s'installe bien alors que sur XL
2002, elle refuse de créer le bouton dans le menu Outils sauf à ouvrir
le fichier .xla depuis l'explorateur....
que Dieu bénisse votre travail, mon fils
jps

"Mgr Banni" a écrit dans le message de news:

bonjour, mon fils
y aurait-il une raison majeure qui ferait que votre magnifique xla
fonctionne mal sur XL 2002?
mes ouailles sont de plus en plus équipées d'ordinateurs mais rarement
d'excel et afin de leur diffuser la sainte parole, je me trouve très
intéressé par votre travail
merci de me répondre, sachant que si vous parvenez à me dépanner, je
ne pourrai que vous offrir une confession gratuite
allez en paix
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:
Ok
Tu vas trouver la XLA ici :
http://cjoint.com/data/kipUXCPPQJ.htm

Le code de la macro complémentaire est libre d'accès donc tu peux
l'adapter à ton cas.
Il te faudra donc PDFCreator 0.9.3 , tu le trouveras ici :
http://www.pdfforge.org/products/pdfcreator/download

Cordialement
Pascal

"cadouxmi" a écrit dans le
message de news:

J'ai Excel 2003


Bonjour
Si tu as Excel 2003, je peux te proposer une macro complémentaire
fonctionnant sur cette version avec PDFCreator (gratuit).

Cordialement
Pascal

"cadouxmi" a écrit dans le
message de
news:
Bonjour,

Tous les mois je dois diffuser sur l'intranet de l'entreprise un
fichier
Excel de 25 onglets. Afin de limiter le volume je fais cette
diffusion vai
un
format PDF mais je dois enregistrer chaque onglet un par un (via
PDFMaker
6.0) . J'ai cherché sur la "communauté" une astuce pour
automatiser cela
via
une macro qui m'enregistre mes onglets un par un au format PDF.
(j'ai
surement mal cherché).
Quelqu'un pourrait il me conseiller pour créer cette macro ?

Je vous en remercie par avance































Avatar
isabelle
bonjour votre seigneurie,

sur winxp et xl2002, la macro s'est bien installé mais bloque sur le message :
____________________________________________________________________
Conversion actuellement impossible :
Le nom du fichier de sortie n'a pas été choisi ou n'est pas valide.
____________________________________________________________________

j'ai essayé les 3 options mais toujours le même résultat.

votre bonne âme,

isabelle


merci papou pour cette suggestion mais hélas! ça ne fonctionne qu'au
premier coup de goupillon ; nous retombons ensuite dans le même travers,
lequel, par souci oecuménique, n'est, bien sûr, pas de porc...
mais comme l'a souligné ce fils espiègle de Patrick B, cela ne fera
qu'un bouton de plus à ma soutane...
si quelque bonne âme équipée de XL 2002 voulait bien tester de son côté,
elle agirait pour mes bonnes oeuvres
Deo gratias
Mgr T.B.

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: %

La suggestion à tester :
Déplacer le code présent dans Thisworkbook de la manière suivante :
1°) code de l'évènement Workbook_Open > dans un évènement
Workbook_AddinInstall
2°) code de l'évènement Workbook_BeforeClose > dans un évènement
AddinUninstall
Modifier le code désormais positionné dans AddinUninstall :

Private Sub Workbook_AddinUninstall()
On Error GoTo Gest_err
SuppressionOption
Exit Sub

Gest_err:
Err.Clear
On Error GoTo 0
End Sub

Penser à enregistrer la XLA ainsi modifiée
Décocher la référence dans la liste des macros complémentaires
Fermer Excel
Relancer Excel, cocher la macro complémentaire et vérifier si l'option
"Conversion en Pdf" apparaît dans le menu Outils

Pas d'autre suggestion actuellement.

Cordialement
Pascal


"Mgr Banni" a écrit dans le message de news:


bonjour
je sors à peine des matines et m'empresse de vous répondre, d'autant
plus volontiers que vous me traitez avec beaucoup d'égards...
en fait, sur XL 2002, bien que cochée dans la liste des macros
complémentaires, votre macro ne crée pas, à l'ouverture d'excel, le
bouton dans le menu Outils ; pour ce faire, il faut aller décocher
puis parcourir les xla et réinstaller, une sorte de chienlit qui vous
amène aux vêpres sans vous en rendre compte, pour peu que vous vous
mélangiez pieds et doigts dans votre soutane....
et comme la SuppressionOption ne se fait pas à la fermeture d'excel
puisque le bouton est inexistant, vous héritez d'un bug, facile,
certes, à balayer d'un revers de cette même soutane...
pour ceux qui seraient victimes du même micro-climat que celui qui
règne, pour l'occasion, en notre sainte demeure, je ne peux que leur
conseiller de monter un bouton dans leur BO et d'y affecter la macro
Lance_Conversion sans oublier toutefois de cocher dans la liste des
macros complémentaires...
voilà, fils païen, ce que je pouvais vous dire à ce sujet qui, s'il
ne devait qu'intéresser ma paroisse, peut en rester là, sauf à
vouloir à tout prix gagner son paradis
merci encore, papou pour votre intervention
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:

Mes respects monseigneur ;-)
Je vous remercie pour votre bénédiction, qui bien que ne signifiant
pas grand chose pour mon âme païenne, comme vous le soulevâtes fort
bien, me va malgré tout droit au coeur !
Désolé d'apprendre que la xla ne fonctionne pas avec 2002, mais je
n'ai aucun moyen d'effectuer des tests sur d'autres versions à
l'heure actuelle.
Peux-tu préciser si tu obtiens un message d'erreur particulier au
chargement (par donc Outils, Macros complémentaires) ?
En tout été de cause une âme (charitable) devrait pouvoir venir à
ton secours, le code étant "ouvert".

Cordialement
Pascal



"Mgr Banni" a écrit dans le message de news:
%23RdbU$

bonsoir papou (je me permets de vous appeler ainsi car avec un tel
nom, je pense que votre âme est encore à convertir et j'en parlerai
aux Oeuvres Pontificales Missionnaires en charge de cette approche)
je viens de tester sur l'ordinateur de Benoît Croix V Bâton qui est
le seul chez nous à avoir XL 2003 (prudent comme il est, il n'est
pas prêt d'installer XL 2007 et à suivre ce forum, je dois dire en
toute humilité qu'il n'a pas tort)
et je vous confirme que votre .xla s'installe bien alors que sur XL
2002, elle refuse de créer le bouton dans le menu Outils sauf à
ouvrir le fichier .xla depuis l'explorateur....
que Dieu bénisse votre travail, mon fils
jps

"Mgr Banni" a écrit dans le message de news:


bonjour, mon fils
y aurait-il une raison majeure qui ferait que votre magnifique xla
fonctionne mal sur XL 2002?
mes ouailles sont de plus en plus équipées d'ordinateurs mais
rarement d'excel et afin de leur diffuser la sainte parole, je me
trouve très intéressé par votre travail
merci de me répondre, sachant que si vous parvenez à me dépanner,
je ne pourrai que vous offrir une confession gratuite
allez en paix
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message de news:

Ok
Tu vas trouver la XLA ici :
http://cjoint.com/data/kipUXCPPQJ.htm

Le code de la macro complémentaire est libre d'accès donc tu peux
l'adapter à ton cas.
Il te faudra donc PDFCreator 0.9.3 , tu le trouveras ici :
http://www.pdfforge.org/products/pdfcreator/download

Cordialement
Pascal

"cadouxmi" a écrit dans le
message de news:


J'ai Excel 2003


Bonjour
Si tu as Excel 2003, je peux te proposer une macro complémentaire
fonctionnant sur cette version avec PDFCreator (gratuit).

Cordialement
Pascal

"cadouxmi" a écrit dans le
message de
news:
Bonjour,

Tous les mois je dois diffuser sur l'intranet de l'entreprise
un > fichier

Excel de 25 onglets. Afin de limiter le volume je fais cette
diffusion vai
un
format PDF mais je dois enregistrer chaque onglet un par un
(via > PDFMaker

6.0) . J'ai cherché sur la "communauté" une astuce pour >
automatiser cela

via
une macro qui m'enregistre mes onglets un par un au format
PDF. > (j'ai

surement mal cherché).
Quelqu'un pourrait il me conseiller pour créer cette macro ?

Je vous en remercie par avance


































Avatar
isabelle
finalement, tout fonctionne bien, il fallait au départ convertir un fichier déjà enregistré.

merci papou, ton xla est ok pour xl2002.

isabelle


bonjour votre seigneurie,

sur winxp et xl2002, la macro s'est bien installé mais bloque sur le
message :
____________________________________________________________________
Conversion actuellement impossible :
Le nom du fichier de sortie n'a pas été choisi ou n'est pas valide.
____________________________________________________________________

j'ai essayé les 3 options mais toujours le même résultat.

votre bonne âme,

isabelle


merci papou pour cette suggestion mais hélas! ça ne fonctionne qu'au
premier coup de goupillon ; nous retombons ensuite dans le même
travers, lequel, par souci oecuménique, n'est, bien sûr, pas de porc...
mais comme l'a souligné ce fils espiègle de Patrick B, cela ne fera
qu'un bouton de plus à ma soutane...
si quelque bonne âme équipée de XL 2002 voulait bien tester de son
côté, elle agirait pour mes bonnes oeuvres
Deo gratias
Mgr T.B.

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news: %

La suggestion à tester :
Déplacer le code présent dans Thisworkbook de la manière suivante :
1°) code de l'évènement Workbook_Open > dans un évènement
Workbook_AddinInstall
2°) code de l'évènement Workbook_BeforeClose > dans un évènement
AddinUninstall
Modifier le code désormais positionné dans AddinUninstall :

Private Sub Workbook_AddinUninstall()
On Error GoTo Gest_err
SuppressionOption
Exit Sub

Gest_err:
Err.Clear
On Error GoTo 0
End Sub

Penser à enregistrer la XLA ainsi modifiée
Décocher la référence dans la liste des macros complémentaires
Fermer Excel
Relancer Excel, cocher la macro complémentaire et vérifier si
l'option "Conversion en Pdf" apparaît dans le menu Outils

Pas d'autre suggestion actuellement.

Cordialement
Pascal


"Mgr Banni" a écrit dans le message de news:


bonjour
je sors à peine des matines et m'empresse de vous répondre, d'autant
plus volontiers que vous me traitez avec beaucoup d'égards...
en fait, sur XL 2002, bien que cochée dans la liste des macros
complémentaires, votre macro ne crée pas, à l'ouverture d'excel, le
bouton dans le menu Outils ; pour ce faire, il faut aller décocher
puis parcourir les xla et réinstaller, une sorte de chienlit qui
vous amène aux vêpres sans vous en rendre compte, pour peu que vous
vous mélangiez pieds et doigts dans votre soutane....
et comme la SuppressionOption ne se fait pas à la fermeture d'excel
puisque le bouton est inexistant, vous héritez d'un bug, facile,
certes, à balayer d'un revers de cette même soutane...
pour ceux qui seraient victimes du même micro-climat que celui qui
règne, pour l'occasion, en notre sainte demeure, je ne peux que leur
conseiller de monter un bouton dans leur BO et d'y affecter la macro
Lance_Conversion sans oublier toutefois de cocher dans la liste des
macros complémentaires...
voilà, fils païen, ce que je pouvais vous dire à ce sujet qui, s'il
ne devait qu'intéresser ma paroisse, peut en rester là, sauf à
vouloir à tout prix gagner son paradis
merci encore, papou pour votre intervention
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de news:

Mes respects monseigneur ;-)
Je vous remercie pour votre bénédiction, qui bien que ne signifiant
pas grand chose pour mon âme païenne, comme vous le soulevâtes fort
bien, me va malgré tout droit au coeur !
Désolé d'apprendre que la xla ne fonctionne pas avec 2002, mais je
n'ai aucun moyen d'effectuer des tests sur d'autres versions à
l'heure actuelle.
Peux-tu préciser si tu obtiens un message d'erreur particulier au
chargement (par donc Outils, Macros complémentaires) ?
En tout été de cause une âme (charitable) devrait pouvoir venir à
ton secours, le code étant "ouvert".

Cordialement
Pascal



"Mgr Banni" a écrit dans le message de news:
%23RdbU$

bonsoir papou (je me permets de vous appeler ainsi car avec un tel
nom, je pense que votre âme est encore à convertir et j'en
parlerai aux Oeuvres Pontificales Missionnaires en charge de cette
approche)
je viens de tester sur l'ordinateur de Benoît Croix V Bâton qui
est le seul chez nous à avoir XL 2003 (prudent comme il est, il
n'est pas prêt d'installer XL 2007 et à suivre ce forum, je dois
dire en toute humilité qu'il n'a pas tort)
et je vous confirme que votre .xla s'installe bien alors que sur
XL 2002, elle refuse de créer le bouton dans le menu Outils sauf à
ouvrir le fichier .xla depuis l'explorateur....
que Dieu bénisse votre travail, mon fils
jps

"Mgr Banni" a écrit dans le message de news:


bonjour, mon fils
y aurait-il une raison majeure qui ferait que votre magnifique
xla fonctionne mal sur XL 2002?
mes ouailles sont de plus en plus équipées d'ordinateurs mais
rarement d'excel et afin de leur diffuser la sainte parole, je me
trouve très intéressé par votre travail
merci de me répondre, sachant que si vous parvenez à me dépanner,
je ne pourrai que vous offrir une confession gratuite
allez en paix
Mgr T.Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message de news:

Ok
Tu vas trouver la XLA ici :
http://cjoint.com/data/kipUXCPPQJ.htm

Le code de la macro complémentaire est libre d'accès donc tu
peux l'adapter à ton cas.
Il te faudra donc PDFCreator 0.9.3 , tu le trouveras ici :
http://www.pdfforge.org/products/pdfcreator/download

Cordialement
Pascal

"cadouxmi" a écrit dans le
message de news:


J'ai Excel 2003


Bonjour
Si tu as Excel 2003, je peux te proposer une macro complémentaire
fonctionnant sur cette version avec PDFCreator (gratuit).

Cordialement
Pascal

"cadouxmi" a écrit dans
le message de
news:
Bonjour,

Tous les mois je dois diffuser sur l'intranet de
l'entreprise un > fichier

Excel de 25 onglets. Afin de limiter le volume je fais cette
diffusion vai
un
format PDF mais je dois enregistrer chaque onglet un par un
(via > PDFMaker

6.0) . J'ai cherché sur la "communauté" une astuce pour >
automatiser cela

via
une macro qui m'enregistre mes onglets un par un au format
PDF. > (j'ai

surement mal cherché).
Quelqu'un pourrait il me conseiller pour créer cette macro ?

Je vous en remercie par avance




































Avatar
isabelle
re bonjour votre seigneurie,

comme j'ai dis dans mon message précédent finalement tout fonctionne bien, mon erreur était de faire le test sur un fichier non enregistré,
donc une fois le fichier enregistré tout est rentré dans l'ordre.

j'ai copié le xla dans le répertoire :
C:Documents and SettingsAdministrateurApplication DataMicrosoftMacros complémentaires

et à partir de la feuille de calcul, au menu, Outils, Macros complémentaires, Parcourir.....
ne pas oublier de cocher "Conversion en PDF" avant le click sur "OK"
et voilà le tour est jouer.

le test de la macro CreeFichierPDF s'est bien déroulé, tout est parfait

que dieu vous bénice mon père,

isabelle





tiens! voilà qu'une voix s'élève de notre diocèse québécois...
vous semblez être là, ma fille, victime d'un chibrelot différent du mien
pourquoi n'essayeriez-vous point cette macro réalisée par notre MVP
(Most Vaticanese Preacher) d'ici :
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False

'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
End Sub

In nomine Patris et Filii et Spiritus Sancti

Mgr T.B.


Avatar
papou
Bonjour Isabelle
Merci pour ce retour rassurant ;-)
Quant à notre révérend Mgr Banni, je soupçonne la présence d'un esprit malin
:-)))

Cordialement
Pascal

"isabelle" a écrit dans le message de news:

re bonjour votre seigneurie,

comme j'ai dis dans mon message précédent finalement tout fonctionne bien,
mon erreur était de faire le test sur un fichier non enregistré,
donc une fois le fichier enregistré tout est rentré dans l'ordre.

j'ai copié le xla dans le répertoire :
C:Documents and SettingsAdministrateurApplication DataMicrosoftMacros
complémentaires

et à partir de la feuille de calcul, au menu, Outils, Macros
complémentaires, Parcourir.....
ne pas oublier de cocher "Conversion en PDF" avant le click sur "OK"
et voilà le tour est jouer.

le test de la macro CreeFichierPDF s'est bien déroulé, tout est parfait

que dieu vous bénice mon père,

isabelle





tiens! voilà qu'une voix s'élève de notre diocèse québécois...
vous semblez être là, ma fille, victime d'un chibrelot différent du mien
pourquoi n'essayeriez-vous point cette macro réalisée par notre MVP (Most
Vaticanese Preacher) d'ici :
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
End Sub
In nomine Patris et Filii et Spiritus Sancti
Mgr T.B.




Avatar
Mgr Banni
ah! mon fils, je crains fort que notre brebis égarée dans le grand nord
canadien n'ait fait qu'un seul essai (ne dit-elle pas, en effet, LE test
s'est bien déroulé) ; je la soupçonne de ne pas avoir fermé et rouvert
excel, auquel cas elle aurait vu, tout comme moi, que le bouton dans le menu
Outils ne se remontait pas alors que la macro complémentaire était bien
restée cochée....
quant à "esprit malin", voilà bien deux mots dont je me sens très éloigné
car d'esprit, je n'en ai pas beaucoup et malin, je le suis guère....
il n'empêche que votre macro est remarquable à tel point que j'ai agrandi et
imprimé votre UF pour ensuite l'afficher dans la sacristie, histoire de
faire la pige aux icônes orthodoxes...
Mgr T. Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de news:

Bonjour Isabelle
Merci pour ce retour rassurant ;-)
Quant à notre révérend Mgr Banni, je soupçonne la présence d'un esprit
malin :-)))

Cordialement
Pascal

"isabelle" a écrit dans le message de news:

re bonjour votre seigneurie,

comme j'ai dis dans mon message précédent finalement tout fonctionne
bien, mon erreur était de faire le test sur un fichier non enregistré,
donc une fois le fichier enregistré tout est rentré dans l'ordre.

j'ai copié le xla dans le répertoire :
C:Documents and SettingsAdministrateurApplication
DataMicrosoftMacros complémentaires

et à partir de la feuille de calcul, au menu, Outils, Macros
complémentaires, Parcourir.....
ne pas oublier de cocher "Conversion en PDF" avant le click sur "OK"
et voilà le tour est jouer.

le test de la macro CreeFichierPDF s'est bien déroulé, tout est parfait

que dieu vous bénice mon père,

isabelle





tiens! voilà qu'une voix s'élève de notre diocèse québécois...
vous semblez être là, ma fille, victime d'un chibrelot différent du mien
pourquoi n'essayeriez-vous point cette macro réalisée par notre MVP
(Most Vaticanese Preacher) d'ici :
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
End Sub
In nomine Patris et Filii et Spiritus Sancti
Mgr T.B.








Avatar
papou
:-)))))

"Mgr Banni" a écrit dans le message de news:

ah! mon fils, je crains fort que notre brebis égarée dans le grand nord
canadien n'ait fait qu'un seul essai (ne dit-elle pas, en effet, LE test
s'est bien déroulé) ; je la soupçonne de ne pas avoir fermé et rouvert
excel, auquel cas elle aurait vu, tout comme moi, que le bouton dans le
menu Outils ne se remontait pas alors que la macro complémentaire était
bien restée cochée....
quant à "esprit malin", voilà bien deux mots dont je me sens très éloigné
car d'esprit, je n'en ai pas beaucoup et malin, je le suis guère....
il n'empêche que votre macro est remarquable à tel point que j'ai agrandi
et imprimé votre UF pour ensuite l'afficher dans la sacristie, histoire de
faire la pige aux icônes orthodoxes...
Mgr T. Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:
Bonjour Isabelle
Merci pour ce retour rassurant ;-)
Quant à notre révérend Mgr Banni, je soupçonne la présence d'un esprit
malin :-)))

Cordialement
Pascal

"isabelle" a écrit dans le message de news:

re bonjour votre seigneurie,

comme j'ai dis dans mon message précédent finalement tout fonctionne
bien, mon erreur était de faire le test sur un fichier non enregistré,
donc une fois le fichier enregistré tout est rentré dans l'ordre.

j'ai copié le xla dans le répertoire :
C:Documents and SettingsAdministrateurApplication
DataMicrosoftMacros complémentaires

et à partir de la feuille de calcul, au menu, Outils, Macros
complémentaires, Parcourir.....
ne pas oublier de cocher "Conversion en PDF" avant le click sur "OK"
et voilà le tour est jouer.

le test de la macro CreeFichierPDF s'est bien déroulé, tout est parfait

que dieu vous bénice mon père,

isabelle





tiens! voilà qu'une voix s'élève de notre diocèse québécois...
vous semblez être là, ma fille, victime d'un chibrelot différent du
mien
pourquoi n'essayeriez-vous point cette macro réalisée par notre MVP
(Most Vaticanese Preacher) d'ici :
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
End Sub
In nomine Patris et Filii et Spiritus Sancti
Mgr T.B.











Avatar
isabelle
si si mgr, j'ai bien fermé et réouvert excel,
mais il y avait égalementd'autre fichier d'ouvert et donc je les ai enregistrés avant de fermer excel.
c'est peut être là toute la différence...

isabelle

ah! mon fils, je crains fort que notre brebis égarée dans le grand nord
canadien n'ait fait qu'un seul essai (ne dit-elle pas, en effet, LE test
s'est bien déroulé) ; je la soupçonne de ne pas avoir fermé et rouvert
excel, auquel cas elle aurait vu, tout comme moi, que le bouton dans le
menu Outils ne se remontait pas alors que la macro complémentaire était
bien restée cochée....
quant à "esprit malin", voilà bien deux mots dont je me sens très
éloigné car d'esprit, je n'en ai pas beaucoup et malin, je le suis
guère....
il n'empêche que votre macro est remarquable à tel point que j'ai
agrandi et imprimé votre UF pour ensuite l'afficher dans la sacristie,
histoire de faire la pige aux icônes orthodoxes...
Mgr T. Banni

"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message de
news:

Bonjour Isabelle
Merci pour ce retour rassurant ;-)
Quant à notre révérend Mgr Banni, je soupçonne la présence d'un esprit
malin :-)))

Cordialement
Pascal

"isabelle" a écrit dans le message de news:


re bonjour votre seigneurie,

comme j'ai dis dans mon message précédent finalement tout fonctionne
bien, mon erreur était de faire le test sur un fichier non enregistré,
donc une fois le fichier enregistré tout est rentré dans l'ordre.

j'ai copié le xla dans le répertoire :
C:Documents and SettingsAdministrateurApplication
DataMicrosoftMacros complémentaires

et à partir de la feuille de calcul, au menu, Outils, Macros
complémentaires, Parcourir.....
ne pas oublier de cocher "Conversion en PDF" avant le click sur "OK"
et voilà le tour est jouer.

le test de la macro CreeFichierPDF s'est bien déroulé, tout est parfait

que dieu vous bénice mon père,

isabelle





tiens! voilà qu'une voix s'élève de notre diocèse québécois...
vous semblez être là, ma fille, victime d'un chibrelot différent du
mien
pourquoi n'essayeriez-vous point cette macro réalisée par notre MVP
(Most Vaticanese Preacher) d'ici :
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
End Sub
In nomine Patris et Filii et Spiritus Sancti
Mgr T.B.












1 2 3