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 ?
hélas! non, ce n'est pas là la différence ; je crois comprendre que c'est le Workbook_Open qui ne veut pas faire son boulot automatiquement car si j'ouvre VBE et que je clique dans le Workbook_Open, le bouton s'installe bien alors dans le menu sous Outils mais bon, nous l'avons quand même biaisé, le papou, en montant un bouton dans la BO... et si je venais donner une messe à Sherbrooke, histoire de comparer nos expériences?
"isabelle" a écrit dans le message de news: OH%
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.
hélas! non, ce n'est pas là la différence ; je crois comprendre que c'est le
Workbook_Open qui ne veut pas faire son boulot automatiquement car si
j'ouvre VBE et que je clique dans le Workbook_Open, le bouton s'installe
bien alors dans le menu sous Outils
mais bon, nous l'avons quand même biaisé, le papou, en montant un bouton
dans la BO...
et si je venais donner une messe à Sherbrooke, histoire de comparer nos
expériences?
"isabelle" <i@v> a écrit dans le message de news:
OH%23hEVzCIHA.4228@TK2MSFTNGP02.phx.gbl...
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: Oqj3P3wCIHA.1056@TK2MSFTNGP03.phx.gbl...
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" <i@v> a écrit dans le message de news:
OhjZfCoCIHA.4228@TK2MSFTNGP02.phx.gbl...
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.
hélas! non, ce n'est pas là la différence ; je crois comprendre que c'est le Workbook_Open qui ne veut pas faire son boulot automatiquement car si j'ouvre VBE et que je clique dans le Workbook_Open, le bouton s'installe bien alors dans le menu sous Outils mais bon, nous l'avons quand même biaisé, le papou, en montant un bouton dans la BO... et si je venais donner une messe à Sherbrooke, histoire de comparer nos expériences?
"isabelle" a écrit dans le message de news: OH%
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.
isabelle
hélas! non, ce n'est pas là la différence ; je crois comprendre que c'est le Workbook_Open qui ne veut pas faire son boulot automatiquement car si j'ouvre VBE et que je clique dans le Workbook_Open, le bouton s'installe bien alors dans le menu sous Outils
un micro climat sans doute, est ce que ce phénomène se reproduit pour tous les .xla ?
mais bon, nous l'avons quand même biaisé, le papou, en montant un bouton dans la BO... et si je venais donner une messe à Sherbrooke, histoire de comparer nos expériences?
j'y assiterais avec grand plaisir mgr, au plaisir, isabelle
hélas! non, ce n'est pas là la différence ; je crois comprendre que
c'est le Workbook_Open qui ne veut pas faire son boulot automatiquement
car si j'ouvre VBE et que je clique dans le Workbook_Open, le bouton
s'installe bien alors dans le menu sous Outils
un micro climat sans doute, est ce que ce phénomène se reproduit pour tous les .xla ?
mais bon, nous l'avons quand même biaisé, le papou, en montant un bouton
dans la BO...
et si je venais donner une messe à Sherbrooke, histoire de comparer nos
expériences?
j'y assiterais avec grand plaisir mgr,
au plaisir,
isabelle
hélas! non, ce n'est pas là la différence ; je crois comprendre que c'est le Workbook_Open qui ne veut pas faire son boulot automatiquement car si j'ouvre VBE et que je clique dans le Workbook_Open, le bouton s'installe bien alors dans le menu sous Outils
un micro climat sans doute, est ce que ce phénomène se reproduit pour tous les .xla ?
mais bon, nous l'avons quand même biaisé, le papou, en montant un bouton dans la BO... et si je venais donner une messe à Sherbrooke, histoire de comparer nos expériences?
j'y assiterais avec grand plaisir mgr, au plaisir, isabelle
