Bonjour,
J'utilise Excel 2003, et je souhaiterais convertir une feuille sél ectionnée
d'un classeur en un document .pdf via l'imprimante virtuelle PDFCreator . (ou
même plusieurs feuilles)
J'ai trouvé la commande suivante qui lance PDFCreator :
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDF Creator",
collate:=True
Mais la fenêtre s'affiche et me demande le nom de fichier, le chem in ⦠; et
une fois le fichier créé, Acrobat Reader s'ouvre.
Je voudrais que tout se fasse automatiquement.
Merci de vos réponses.
Clt,
GGAL
Bonjour,
J'utilise Excel 2003, et je souhaiterais convertir une feuille sél ectionnée
d'un classeur en un document .pdf via l'imprimante virtuelle PDFCreator . (ou
même plusieurs feuilles)
J'ai trouvé la commande suivante qui lance PDFCreator :
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDF Creator",
collate:=True
Mais la fenêtre s'affiche et me demande le nom de fichier, le chem in ⦠; et
une fois le fichier créé, Acrobat Reader s'ouvre.
Je voudrais que tout se fasse automatiquement.
Merci de vos réponses.
Clt,
GGAL
Bonjour,
J'utilise Excel 2003, et je souhaiterais convertir une feuille sél ectionnée
d'un classeur en un document .pdf via l'imprimante virtuelle PDFCreator . (ou
même plusieurs feuilles)
J'ai trouvé la commande suivante qui lance PDFCreator :
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDF Creator",
collate:=True
Mais la fenêtre s'affiche et me demande le nom de fichier, le chem in ⦠; et
une fois le fichier créé, Acrobat Reader s'ouvre.
Je voudrais que tout se fasse automatiquement.
Merci de vos réponses.
Clt,
GGAL
[Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
Bonjour,
Il faut configurer cela dans PDFCreator.
En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
"Moniteur d'impression PDF", où avec la commande Imprimante Options, on
a accès à la boîte de dialogue des options.
S'intéresser à l'onglet Enregistrement Automatique.
Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
représente une source d'information intéressante si on veut déclencher
un changement de configuration depuis une autre application (par exemple
Excel).
Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
forum, si on se trouve dans une boîte où même les développeurs n'ont pas
accès à la configuration de leur machine. :/
___________________________________
GGAL a écrit, le 04/04/2009 14:20 :
> Bonjour,
>
> J'utilise Excel 2003, et je souhaiterais convertir une feuille sélectionnée
> d'un classeur en un document .pdf via l'imprimante virtuelle PDFCreator. (ou
> même plusieurs feuilles)
> J'ai trouvé la commande suivante qui lance PDFCreator :
> ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator",
> collate:=True
> Mais la fenêtre s'affiche et me demande le nom de fichier, le chemin … ; et
> une fois le fichier créé, Acrobat Reader s'ouvre.
> Je voudrais que tout se fasse automatiquement.
> Merci de vos réponses.
>
> Clt,
>
> GGAL
[Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
Bonjour,
Il faut configurer cela dans PDFCreator.
En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
"Moniteur d'impression PDF", où avec la commande Imprimante Options, on
a accès à la boîte de dialogue des options.
S'intéresser à l'onglet Enregistrement Automatique.
Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
représente une source d'information intéressante si on veut déclencher
un changement de configuration depuis une autre application (par exemple
Excel).
Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
forum, si on se trouve dans une boîte où même les développeurs n'ont pas
accès à la configuration de leur machine. :/
___________________________________
GGAL a écrit, le 04/04/2009 14:20 :
> Bonjour,
>
> J'utilise Excel 2003, et je souhaiterais convertir une feuille sélectionnée
> d'un classeur en un document .pdf via l'imprimante virtuelle PDFCreator. (ou
> même plusieurs feuilles)
> J'ai trouvé la commande suivante qui lance PDFCreator :
> ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator",
> collate:=True
> Mais la fenêtre s'affiche et me demande le nom de fichier, le chemin … ; et
> une fois le fichier créé, Acrobat Reader s'ouvre.
> Je voudrais que tout se fasse automatiquement.
> Merci de vos réponses.
>
> Clt,
>
> GGAL
[Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
Bonjour,
Il faut configurer cela dans PDFCreator.
En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
"Moniteur d'impression PDF", où avec la commande Imprimante Options, on
a accès à la boîte de dialogue des options.
S'intéresser à l'onglet Enregistrement Automatique.
Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
représente une source d'information intéressante si on veut déclencher
un changement de configuration depuis une autre application (par exemple
Excel).
Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
forum, si on se trouve dans une boîte où même les développeurs n'ont pas
accès à la configuration de leur machine. :/
___________________________________
GGAL a écrit, le 04/04/2009 14:20 :
> Bonjour,
>
> J'utilise Excel 2003, et je souhaiterais convertir une feuille sélectionnée
> d'un classeur en un document .pdf via l'imprimante virtuelle PDFCreator. (ou
> même plusieurs feuilles)
> J'ai trouvé la commande suivante qui lance PDFCreator :
> ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:="PDFCreator",
> collate:=True
> Mais la fenêtre s'affiche et me demande le nom de fichier, le chemin … ; et
> une fois le fichier créé, Acrobat Reader s'ouvre.
> Je voudrais que tout se fasse automatiquement.
> Merci de vos réponses.
>
> Clt,
>
> GGAL
Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
d'intéressant :
http://www.excel-downloads.com/forum/112586-edition-pdf.html
J'ai légèrement adapté la procédure : au choix, exporter en PDF la feuille
active, des feuilles sélectionnées, le classeur entier.
Clt,
GGAL
Sub printtest_1()
'La feuille active.
a = ActiveSheet.Name
Call printsheetinpdf(Sheets(a))
End Sub
Sub printtest_2()
'Quelques feuilles du classeur, à adapter.
a = ActiveSheet.Name
b = "Annexe"
c = Sheets(3)
Call printsheetinpdf(Sheets(Array(a, b, c)))
End Sub
Sub printtest_3()
'Le classeur entier.
Call printsheetinpdf(ActiveWorkbook)
End Sub
Sub printsheetinpdf(shsheet As Object)
Dim pdfjob As Object
Dim spdfname As String
Dim spdfpath As String
spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
"dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
spdfpath = "D:Documents and Settings" & UCase(Environ("username")) &
"Mes documents" 'Nom du chemin, à adapter
Call killtask("PDFCreator.exe")
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly,
"PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = spdfpath
.cOption("AutosaveFilename") = spdfname
.cOption("AutosaveFormat") = 0
.cClearCache
End With
shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = defaultprinter
.cClearCache
Application.Wait (Now + TimeValue("0:00:3"))
.cClose
End With
Set pdfjob = Nothing
End Sub
Sub killtask(sappname As String)
Dim oProclist As Object
Dim oWMI As Object
Dim oProc As Object
Set oWMI = GetObject("winmgmts:")
If IsNull(oWMI) = False Then
Set oProclist = oWMI.InstancesOf("win32_process")
For Each oProc In oProclist
If UCase(oProc.Name) = UCase(sappname) Then
oProc.Terminate (0)
End If
Next oProc
Else
MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
vbOKOnly + vbCritical, "CloseAPP_B"
End If
Set oProclist = Nothing
Set oWMI = Nothing
End Sub
"Gloops" a écrit :[Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
Bonjour,
Il faut configurer cela dans PDFCreator.
En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
"Moniteur d'impression PDF", où avec la commande Imprimante Options, on
a accès à la boîte de dialogue des options.
S'intéresser à l'onglet Enregistrement Automatique.
Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
représente une source d'information intéressante si on veut déclencher
un changement de configuration depuis une autre application (par exemple
Excel).
Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
forum, si on se trouve dans une boîte où même les développeurs n'ont pas
accès à la configuration de leur machine. :/
___________________________________
GGAL a écrit, le 04/04/2009 14:20 :
> Bonjour,
>
> J'utilise Excel 2003, et je souhaiterais convertir une feuille
> sélectionnée
> d'un classeur en un document .pdf via l'imprimante virtuelle
> PDFCreator. (ou
> même plusieurs feuilles)
> J'ai trouvé la commande suivante qui lance PDFCreator :
> ActiveWindow.SelectedSheets.PrintOut copies:=1,
> ActivePrinter:="PDFCreator",
> collate:=True
> Mais la fenêtre s'affiche et me demande le nom de fichier, le chemin …
> ; et
> une fois le fichier créé, Acrobat Reader s'ouvre.
> Je voudrais que tout se fasse automatiquement.
> Merci de vos réponses.
>
> Clt,
>
> GGAL
Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
d'intéressant :
http://www.excel-downloads.com/forum/112586-edition-pdf.html
J'ai légèrement adapté la procédure : au choix, exporter en PDF la feuille
active, des feuilles sélectionnées, le classeur entier.
Clt,
GGAL
Sub printtest_1()
'La feuille active.
a = ActiveSheet.Name
Call printsheetinpdf(Sheets(a))
End Sub
Sub printtest_2()
'Quelques feuilles du classeur, à adapter.
a = ActiveSheet.Name
b = "Annexe"
c = Sheets(3)
Call printsheetinpdf(Sheets(Array(a, b, c)))
End Sub
Sub printtest_3()
'Le classeur entier.
Call printsheetinpdf(ActiveWorkbook)
End Sub
Sub printsheetinpdf(shsheet As Object)
Dim pdfjob As Object
Dim spdfname As String
Dim spdfpath As String
spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
"dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
spdfpath = "D:Documents and Settings" & UCase(Environ("username")) &
"Mes documents" 'Nom du chemin, à adapter
Call killtask("PDFCreator.exe")
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly,
"PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = spdfpath
.cOption("AutosaveFilename") = spdfname
.cOption("AutosaveFormat") = 0
.cClearCache
End With
shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = defaultprinter
.cClearCache
Application.Wait (Now + TimeValue("0:00:3"))
.cClose
End With
Set pdfjob = Nothing
End Sub
Sub killtask(sappname As String)
Dim oProclist As Object
Dim oWMI As Object
Dim oProc As Object
Set oWMI = GetObject("winmgmts:")
If IsNull(oWMI) = False Then
Set oProclist = oWMI.InstancesOf("win32_process")
For Each oProc In oProclist
If UCase(oProc.Name) = UCase(sappname) Then
oProc.Terminate (0)
End If
Next oProc
Else
MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
vbOKOnly + vbCritical, "CloseAPP_B"
End If
Set oProclist = Nothing
Set oWMI = Nothing
End Sub
"Gloops" a écrit :
[Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
Bonjour,
Il faut configurer cela dans PDFCreator.
En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
"Moniteur d'impression PDF", où avec la commande Imprimante Options, on
a accès à la boîte de dialogue des options.
S'intéresser à l'onglet Enregistrement Automatique.
Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
représente une source d'information intéressante si on veut déclencher
un changement de configuration depuis une autre application (par exemple
Excel).
Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
forum, si on se trouve dans une boîte où même les développeurs n'ont pas
accès à la configuration de leur machine. :/
___________________________________
GGAL a écrit, le 04/04/2009 14:20 :
> Bonjour,
>
> J'utilise Excel 2003, et je souhaiterais convertir une feuille
> sélectionnée
> d'un classeur en un document .pdf via l'imprimante virtuelle
> PDFCreator. (ou
> même plusieurs feuilles)
> J'ai trouvé la commande suivante qui lance PDFCreator :
> ActiveWindow.SelectedSheets.PrintOut copies:=1,
> ActivePrinter:="PDFCreator",
> collate:=True
> Mais la fenêtre s'affiche et me demande le nom de fichier, le chemin …
> ; et
> une fois le fichier créé, Acrobat Reader s'ouvre.
> Je voudrais que tout se fasse automatiquement.
> Merci de vos réponses.
>
> Clt,
>
> GGAL
Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
d'intéressant :
http://www.excel-downloads.com/forum/112586-edition-pdf.html
J'ai légèrement adapté la procédure : au choix, exporter en PDF la feuille
active, des feuilles sélectionnées, le classeur entier.
Clt,
GGAL
Sub printtest_1()
'La feuille active.
a = ActiveSheet.Name
Call printsheetinpdf(Sheets(a))
End Sub
Sub printtest_2()
'Quelques feuilles du classeur, à adapter.
a = ActiveSheet.Name
b = "Annexe"
c = Sheets(3)
Call printsheetinpdf(Sheets(Array(a, b, c)))
End Sub
Sub printtest_3()
'Le classeur entier.
Call printsheetinpdf(ActiveWorkbook)
End Sub
Sub printsheetinpdf(shsheet As Object)
Dim pdfjob As Object
Dim spdfname As String
Dim spdfpath As String
spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
"dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
spdfpath = "D:Documents and Settings" & UCase(Environ("username")) &
"Mes documents" 'Nom du chemin, à adapter
Call killtask("PDFCreator.exe")
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
With pdfjob
If .cstart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly,
"PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutisaveDirectory") = 1
.cOption("AutosaveDirectory") = spdfpath
.cOption("AutosaveFilename") = spdfname
.cOption("AutosaveFormat") = 0
.cClearCache
End With
shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
With pdfjob
.cDefaultprinter = defaultprinter
.cClearCache
Application.Wait (Now + TimeValue("0:00:3"))
.cClose
End With
Set pdfjob = Nothing
End Sub
Sub killtask(sappname As String)
Dim oProclist As Object
Dim oWMI As Object
Dim oProc As Object
Set oWMI = GetObject("winmgmts:")
If IsNull(oWMI) = False Then
Set oProclist = oWMI.InstancesOf("win32_process")
For Each oProc In oProclist
If UCase(oProc.Name) = UCase(sappname) Then
oProc.Terminate (0)
End If
Next oProc
Else
MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
vbOKOnly + vbCritical, "CloseAPP_B"
End If
Set oProclist = Nothing
Set oWMI = Nothing
End Sub
"Gloops" a écrit :[Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
Bonjour,
Il faut configurer cela dans PDFCreator.
En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
"Moniteur d'impression PDF", où avec la commande Imprimante Options, on
a accès à la boîte de dialogue des options.
S'intéresser à l'onglet Enregistrement Automatique.
Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
représente une source d'information intéressante si on veut déclencher
un changement de configuration depuis une autre application (par exemple
Excel).
Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
forum, si on se trouve dans une boîte où même les développeurs n'ont pas
accès à la configuration de leur machine. :/
___________________________________
GGAL a écrit, le 04/04/2009 14:20 :
> Bonjour,
>
> J'utilise Excel 2003, et je souhaiterais convertir une feuille
> sélectionnée
> d'un classeur en un document .pdf via l'imprimante virtuelle
> PDFCreator. (ou
> même plusieurs feuilles)
> J'ai trouvé la commande suivante qui lance PDFCreator :
> ActiveWindow.SelectedSheets.PrintOut copies:=1,
> ActivePrinter:="PDFCreator",
> collate:=True
> Mais la fenêtre s'affiche et me demande le nom de fichier, le chemin …
> ; et
> une fois le fichier créé, Acrobat Reader s'ouvre.
> Je voudrais que tout se fasse automatiquement.
> Merci de vos réponses.
>
> Clt,
>
> GGAL
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ; seraient -elles
à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils y
bénéficieront d'un tarif spécial....
Mgr T.B.
"GGAL" a écrit dans le message de news :
> Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
> d'intéressant :
>http://www.excel-downloads.com/forum/112586-edition-pdf.html
> J'ai légèrement adapté la procédure : au choix, exporter en PDF la feuille
> active, des feuilles sélectionnées, le classeur entier.
> Clt,
> GGAL
> Sub printtest_1()
> 'La feuille active.
> a = ActiveSheet.Name
> Call printsheetinpdf(Sheets(a))
> End Sub
> Sub printtest_2()
> 'Quelques feuilles du classeur, à adapter.
> a = ActiveSheet.Name
> b = "Annexe"
> c = Sheets(3)
> Call printsheetinpdf(Sheets(Array(a, b, c)))
> End Sub
> Sub printtest_3()
> 'Le classeur entier.
> Call printsheetinpdf(ActiveWorkbook)
> End Sub
> Sub printsheetinpdf(shsheet As Object)
> Dim pdfjob As Object
> Dim spdfname As String
> Dim spdfpath As String
> spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
> "dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
> spdfpath = "D:Documents and Settings" & UCase(Environ("usern ame")) &
> "Mes documents" 'Nom du chemin, à adapter
> Call killtask("PDFCreator.exe")
> Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
> With pdfjob
> If .cstart("/NoProcessingAtStartup") = False Then
> MsgBox "Can't initialize PDFCreator.", vbCritica l + vbOKOnly,
> "PrtPDFCreator"
> Exit Sub
> End If
> .cOption("UseAutosave") = 1
> .cOption("UseAutisaveDirectory") = 1
> .cOption("AutosaveDirectory") = spdfpath
> .cOption("AutosaveFilename") = spdfname
> .cOption("AutosaveFormat") = 0
> .cClearCache
> End With
> shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
> Do Until pdfjob.cCountOfPrintjobs = 1
> DoEvents
> Loop
> pdfjob.cPrinterStop = False
> Do Until pdfjob.cCountOfPrintjobs = 0
> DoEvents
> Loop
> With pdfjob
> .cDefaultprinter = defaultprinter
> .cClearCache
> Application.Wait (Now + TimeValue("0:00:3"))
> .cClose
> End With
> Set pdfjob = Nothing
> End Sub
> Sub killtask(sappname As String)
> Dim oProclist As Object
> Dim oWMI As Object
> Dim oProc As Object
> Set oWMI = GetObject("winmgmts:")
> If IsNull(oWMI) = False Then
> Set oProclist = oWMI.InstancesOf("win32_process")
> For Each oProc In oProclist
> If UCase(oProc.Name) = UCase(sappname) Then
> oProc.Terminate (0)
> End If
> Next oProc
> Else
> MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
> vbOKOnly + vbCritical, "CloseAPP_B"
> End If
> Set oProclist = Nothing
> Set oWMI = Nothing
> End Sub
> "Gloops" a écrit :
>> [Eviter la boîte de dialogue de sélection de fichier dans PDFCreat or]
>> Bonjour,
>> Il faut configurer cela dans PDFCreator.
>> En l'ouvrant sans paramètre, on voit apparaître une boîte de dia logue
>> "Moniteur d'impression PDF", où avec la commande Imprimante Options, on
>> a accès à la boîte de dialogue des options.
>> S'intéresser à l'onglet Enregistrement Automatique.
>> Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
>> représente une source d'information intéressante si on veut décl encher
>> un changement de configuration depuis une autre application (par exemp le
>> Excel).
>> Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
>> forum, si on se trouve dans une boîte où même les développeurs n'ont pas
>> accès à la configuration de leur machine. :/
>> ___________________________________
>> GGAL a écrit, le 04/04/2009 14:20 :
>> > Bonjour,
>> > J'utilise Excel 2003, et je souhaiterais convertir une feuille
>> > sélectionnée
>> > d'un classeur en un document .pdf via l'imprimante virtuelle
>> > PDFCreator. (ou
>> > même plusieurs feuilles)
>> > J'ai trouvé la commande suivante qui lance PDFCreator :
>> > ActiveWindow.SelectedSheets.PrintOut copies:=1,
>> > ActivePrinter:="PDFCreator",
>> > collate:=True
>> > Mais la fenêtre s'affiche et me demande le nom de fichier, le chem in
>> > ; et
>> > une fois le fichier créé, Acrobat Reader s'ouvre.
>> > Je voudrais que tout se fasse automatiquement.
>> > Merci de vos réponses.
>> > Clt,
>> > GGAL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ; seraient -elles
à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils y
bénéficieront d'un tarif spécial....
Mgr T.B.
"GGAL" <G...@discussions.microsoft.com> a écrit dans le message de news :
B3B8B877-018B-4641-B7E8-83A966441...@microsoft.com...
> Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
> d'intéressant :
>http://www.excel-downloads.com/forum/112586-edition-pdf.html
> J'ai légèrement adapté la procédure : au choix, exporter en PDF la feuille
> active, des feuilles sélectionnées, le classeur entier.
> Clt,
> GGAL
> Sub printtest_1()
> 'La feuille active.
> a = ActiveSheet.Name
> Call printsheetinpdf(Sheets(a))
> End Sub
> Sub printtest_2()
> 'Quelques feuilles du classeur, à adapter.
> a = ActiveSheet.Name
> b = "Annexe"
> c = Sheets(3)
> Call printsheetinpdf(Sheets(Array(a, b, c)))
> End Sub
> Sub printtest_3()
> 'Le classeur entier.
> Call printsheetinpdf(ActiveWorkbook)
> End Sub
> Sub printsheetinpdf(shsheet As Object)
> Dim pdfjob As Object
> Dim spdfname As String
> Dim spdfpath As String
> spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
> "dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
> spdfpath = "D:Documents and Settings" & UCase(Environ("usern ame")) &
> "Mes documents" 'Nom du chemin, à adapter
> Call killtask("PDFCreator.exe")
> Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
> With pdfjob
> If .cstart("/NoProcessingAtStartup") = False Then
> MsgBox "Can't initialize PDFCreator.", vbCritica l + vbOKOnly,
> "PrtPDFCreator"
> Exit Sub
> End If
> .cOption("UseAutosave") = 1
> .cOption("UseAutisaveDirectory") = 1
> .cOption("AutosaveDirectory") = spdfpath
> .cOption("AutosaveFilename") = spdfname
> .cOption("AutosaveFormat") = 0
> .cClearCache
> End With
> shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
> Do Until pdfjob.cCountOfPrintjobs = 1
> DoEvents
> Loop
> pdfjob.cPrinterStop = False
> Do Until pdfjob.cCountOfPrintjobs = 0
> DoEvents
> Loop
> With pdfjob
> .cDefaultprinter = defaultprinter
> .cClearCache
> Application.Wait (Now + TimeValue("0:00:3"))
> .cClose
> End With
> Set pdfjob = Nothing
> End Sub
> Sub killtask(sappname As String)
> Dim oProclist As Object
> Dim oWMI As Object
> Dim oProc As Object
> Set oWMI = GetObject("winmgmts:")
> If IsNull(oWMI) = False Then
> Set oProclist = oWMI.InstancesOf("win32_process")
> For Each oProc In oProclist
> If UCase(oProc.Name) = UCase(sappname) Then
> oProc.Terminate (0)
> End If
> Next oProc
> Else
> MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
> vbOKOnly + vbCritical, "CloseAPP_B"
> End If
> Set oProclist = Nothing
> Set oWMI = Nothing
> End Sub
> "Gloops" a écrit :
>> [Eviter la boîte de dialogue de sélection de fichier dans PDFCreat or]
>> Bonjour,
>> Il faut configurer cela dans PDFCreator.
>> En l'ouvrant sans paramètre, on voit apparaître une boîte de dia logue
>> "Moniteur d'impression PDF", où avec la commande Imprimante Options, on
>> a accès à la boîte de dialogue des options.
>> S'intéresser à l'onglet Enregistrement Automatique.
>> Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
>> représente une source d'information intéressante si on veut décl encher
>> un changement de configuration depuis une autre application (par exemp le
>> Excel).
>> Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
>> forum, si on se trouve dans une boîte où même les développeurs n'ont pas
>> accès à la configuration de leur machine. :/
>> ___________________________________
>> GGAL a écrit, le 04/04/2009 14:20 :
>> > Bonjour,
>> > J'utilise Excel 2003, et je souhaiterais convertir une feuille
>> > sélectionnée
>> > d'un classeur en un document .pdf via l'imprimante virtuelle
>> > PDFCreator. (ou
>> > même plusieurs feuilles)
>> > J'ai trouvé la commande suivante qui lance PDFCreator :
>> > ActiveWindow.SelectedSheets.PrintOut copies:=1,
>> > ActivePrinter:="PDFCreator",
>> > collate:=True
>> > Mais la fenêtre s'affiche et me demande le nom de fichier, le chem in
>> > ; et
>> > une fois le fichier créé, Acrobat Reader s'ouvre.
>> > Je voudrais que tout se fasse automatiquement.
>> > Merci de vos réponses.
>> > Clt,
>> > GGAL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ; seraient -elles
à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils y
bénéficieront d'un tarif spécial....
Mgr T.B.
"GGAL" a écrit dans le message de news :
> Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
> d'intéressant :
>http://www.excel-downloads.com/forum/112586-edition-pdf.html
> J'ai légèrement adapté la procédure : au choix, exporter en PDF la feuille
> active, des feuilles sélectionnées, le classeur entier.
> Clt,
> GGAL
> Sub printtest_1()
> 'La feuille active.
> a = ActiveSheet.Name
> Call printsheetinpdf(Sheets(a))
> End Sub
> Sub printtest_2()
> 'Quelques feuilles du classeur, à adapter.
> a = ActiveSheet.Name
> b = "Annexe"
> c = Sheets(3)
> Call printsheetinpdf(Sheets(Array(a, b, c)))
> End Sub
> Sub printtest_3()
> 'Le classeur entier.
> Call printsheetinpdf(ActiveWorkbook)
> End Sub
> Sub printsheetinpdf(shsheet As Object)
> Dim pdfjob As Object
> Dim spdfname As String
> Dim spdfpath As String
> spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
> "dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
> spdfpath = "D:Documents and Settings" & UCase(Environ("usern ame")) &
> "Mes documents" 'Nom du chemin, à adapter
> Call killtask("PDFCreator.exe")
> Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
> With pdfjob
> If .cstart("/NoProcessingAtStartup") = False Then
> MsgBox "Can't initialize PDFCreator.", vbCritica l + vbOKOnly,
> "PrtPDFCreator"
> Exit Sub
> End If
> .cOption("UseAutosave") = 1
> .cOption("UseAutisaveDirectory") = 1
> .cOption("AutosaveDirectory") = spdfpath
> .cOption("AutosaveFilename") = spdfname
> .cOption("AutosaveFormat") = 0
> .cClearCache
> End With
> shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
> Do Until pdfjob.cCountOfPrintjobs = 1
> DoEvents
> Loop
> pdfjob.cPrinterStop = False
> Do Until pdfjob.cCountOfPrintjobs = 0
> DoEvents
> Loop
> With pdfjob
> .cDefaultprinter = defaultprinter
> .cClearCache
> Application.Wait (Now + TimeValue("0:00:3"))
> .cClose
> End With
> Set pdfjob = Nothing
> End Sub
> Sub killtask(sappname As String)
> Dim oProclist As Object
> Dim oWMI As Object
> Dim oProc As Object
> Set oWMI = GetObject("winmgmts:")
> If IsNull(oWMI) = False Then
> Set oProclist = oWMI.InstancesOf("win32_process")
> For Each oProc In oProclist
> If UCase(oProc.Name) = UCase(sappname) Then
> oProc.Terminate (0)
> End If
> Next oProc
> Else
> MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
> vbOKOnly + vbCritical, "CloseAPP_B"
> End If
> Set oProclist = Nothing
> Set oWMI = Nothing
> End Sub
> "Gloops" a écrit :
>> [Eviter la boîte de dialogue de sélection de fichier dans PDFCreat or]
>> Bonjour,
>> Il faut configurer cela dans PDFCreator.
>> En l'ouvrant sans paramètre, on voit apparaître une boîte de dia logue
>> "Moniteur d'impression PDF", où avec la commande Imprimante Options, on
>> a accès à la boîte de dialogue des options.
>> S'intéresser à l'onglet Enregistrement Automatique.
>> Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
>> représente une source d'information intéressante si on veut décl encher
>> un changement de configuration depuis une autre application (par exemp le
>> Excel).
>> Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
>> forum, si on se trouve dans une boîte où même les développeurs n'ont pas
>> accès à la configuration de leur machine. :/
>> ___________________________________
>> GGAL a écrit, le 04/04/2009 14:20 :
>> > Bonjour,
>> > J'utilise Excel 2003, et je souhaiterais convertir une feuille
>> > sélectionnée
>> > d'un classeur en un document .pdf via l'imprimante virtuelle
>> > PDFCreator. (ou
>> > même plusieurs feuilles)
>> > J'ai trouvé la commande suivante qui lance PDFCreator :
>> > ActiveWindow.SelectedSheets.PrintOut copies:=1,
>> > ActivePrinter:="PDFCreator",
>> > collate:=True
>> > Mais la fenêtre s'affiche et me demande le nom de fichier, le chem in
>> > ; et
>> > une fois le fichier créé, Acrobat Reader s'ouvre.
>> > Je voudrais que tout se fasse automatiquement.
>> > Merci de vos réponses.
>> > Clt,
>> > GGAL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phras e :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) ca r, non
seulement ils se verront ouvrir large les portes du confessional mais
ils y bénéficieront d'un tarif spécial....
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phras e :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) ca r, non
seulement ils se verront ouvrir large les portes du confessional mais
ils y bénéficieront d'un tarif spécial....
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phras e :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) ca r, non
seulement ils se verront ouvrir large les portes du confessional mais
ils y bénéficieront d'un tarif spécial....
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles
à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils
y
bénéficieront d'un tarif spécial....
Mgr T.B.
"GGAL" a écrit dans le message de news:
> Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
> d'intéressant :
>http://www.excel-downloads.com/forum/112586-edition-pdf.html
> J'ai légèrement adapté la procédure : au choix, exporter en PDF la
> feuille
> active, des feuilles sélectionnées, le classeur entier.
> Clt,
> GGAL
> Sub printtest_1()
> 'La feuille active.
> a = ActiveSheet.Name
> Call printsheetinpdf(Sheets(a))
> End Sub
> Sub printtest_2()
> 'Quelques feuilles du classeur, à adapter.
> a = ActiveSheet.Name
> b = "Annexe"
> c = Sheets(3)
> Call printsheetinpdf(Sheets(Array(a, b, c)))
> End Sub
> Sub printtest_3()
> 'Le classeur entier.
> Call printsheetinpdf(ActiveWorkbook)
> End Sub
> Sub printsheetinpdf(shsheet As Object)
> Dim pdfjob As Object
> Dim spdfname As String
> Dim spdfpath As String
> spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
> "dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
> spdfpath = "D:Documents and Settings" & UCase(Environ("username")) &
> "Mes documents" 'Nom du chemin, à adapter
> Call killtask("PDFCreator.exe")
> Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
> With pdfjob
> If .cstart("/NoProcessingAtStartup") = False Then
> MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly,
> "PrtPDFCreator"
> Exit Sub
> End If
> .cOption("UseAutosave") = 1
> .cOption("UseAutisaveDirectory") = 1
> .cOption("AutosaveDirectory") = spdfpath
> .cOption("AutosaveFilename") = spdfname
> .cOption("AutosaveFormat") = 0
> .cClearCache
> End With
> shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
> Do Until pdfjob.cCountOfPrintjobs = 1
> DoEvents
> Loop
> pdfjob.cPrinterStop = False
> Do Until pdfjob.cCountOfPrintjobs = 0
> DoEvents
> Loop
> With pdfjob
> .cDefaultprinter = defaultprinter
> .cClearCache
> Application.Wait (Now + TimeValue("0:00:3"))
> .cClose
> End With
> Set pdfjob = Nothing
> End Sub
> Sub killtask(sappname As String)
> Dim oProclist As Object
> Dim oWMI As Object
> Dim oProc As Object
> Set oWMI = GetObject("winmgmts:")
> If IsNull(oWMI) = False Then
> Set oProclist = oWMI.InstancesOf("win32_process")
> For Each oProc In oProclist
> If UCase(oProc.Name) = UCase(sappname) Then
> oProc.Terminate (0)
> End If
> Next oProc
> Else
> MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
> vbOKOnly + vbCritical, "CloseAPP_B"
> End If
> Set oProclist = Nothing
> Set oWMI = Nothing
> End Sub
> "Gloops" a écrit :
>> [Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
>> Bonjour,
>> Il faut configurer cela dans PDFCreator.
>> En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
>> "Moniteur d'impression PDF", où avec la commande Imprimante Options, on
>> a accès à la boîte de dialogue des options.
>> S'intéresser à l'onglet Enregistrement Automatique.
>> Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
>> représente une source d'information intéressante si on veut déclencher
>> un changement de configuration depuis une autre application (par
>> exemple
>> Excel).
>> Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
>> forum, si on se trouve dans une boîte où même les développeurs n'ont
>> pas
>> accès à la configuration de leur machine. :/
>> ___________________________________
>> GGAL a écrit, le 04/04/2009 14:20 :
>> > Bonjour,
>> > J'utilise Excel 2003, et je souhaiterais convertir une feuille
>> > sélectionnée
>> > d'un classeur en un document .pdf via l'imprimante virtuelle
>> > PDFCreator. (ou
>> > même plusieurs feuilles)
>> > J'ai trouvé la commande suivante qui lance PDFCreator :
>> > ActiveWindow.SelectedSheets.PrintOut copies:=1,
>> > ActivePrinter:="PDFCreator",
>> > collate:=True
>> > Mais la fenêtre s'affiche et me demande le nom de fichier, le
>> > chemin …
>> > ; et
>> > une fois le fichier créé, Acrobat Reader s'ouvre.
>> > Je voudrais que tout se fasse automatiquement.
>> > Merci de vos réponses.
>> > Clt,
>> > GGAL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles
à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils
y
bénéficieront d'un tarif spécial....
Mgr T.B.
"GGAL" <G...@discussions.microsoft.com> a écrit dans le message de news:
B3B8B877-018B-4641-B7E8-83A966441...@microsoft.com...
> Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
> d'intéressant :
>http://www.excel-downloads.com/forum/112586-edition-pdf.html
> J'ai légèrement adapté la procédure : au choix, exporter en PDF la
> feuille
> active, des feuilles sélectionnées, le classeur entier.
> Clt,
> GGAL
> Sub printtest_1()
> 'La feuille active.
> a = ActiveSheet.Name
> Call printsheetinpdf(Sheets(a))
> End Sub
> Sub printtest_2()
> 'Quelques feuilles du classeur, à adapter.
> a = ActiveSheet.Name
> b = "Annexe"
> c = Sheets(3)
> Call printsheetinpdf(Sheets(Array(a, b, c)))
> End Sub
> Sub printtest_3()
> 'Le classeur entier.
> Call printsheetinpdf(ActiveWorkbook)
> End Sub
> Sub printsheetinpdf(shsheet As Object)
> Dim pdfjob As Object
> Dim spdfname As String
> Dim spdfpath As String
> spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
> "dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
> spdfpath = "D:Documents and Settings" & UCase(Environ("username")) &
> "Mes documents" 'Nom du chemin, à adapter
> Call killtask("PDFCreator.exe")
> Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
> With pdfjob
> If .cstart("/NoProcessingAtStartup") = False Then
> MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly,
> "PrtPDFCreator"
> Exit Sub
> End If
> .cOption("UseAutosave") = 1
> .cOption("UseAutisaveDirectory") = 1
> .cOption("AutosaveDirectory") = spdfpath
> .cOption("AutosaveFilename") = spdfname
> .cOption("AutosaveFormat") = 0
> .cClearCache
> End With
> shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
> Do Until pdfjob.cCountOfPrintjobs = 1
> DoEvents
> Loop
> pdfjob.cPrinterStop = False
> Do Until pdfjob.cCountOfPrintjobs = 0
> DoEvents
> Loop
> With pdfjob
> .cDefaultprinter = defaultprinter
> .cClearCache
> Application.Wait (Now + TimeValue("0:00:3"))
> .cClose
> End With
> Set pdfjob = Nothing
> End Sub
> Sub killtask(sappname As String)
> Dim oProclist As Object
> Dim oWMI As Object
> Dim oProc As Object
> Set oWMI = GetObject("winmgmts:")
> If IsNull(oWMI) = False Then
> Set oProclist = oWMI.InstancesOf("win32_process")
> For Each oProc In oProclist
> If UCase(oProc.Name) = UCase(sappname) Then
> oProc.Terminate (0)
> End If
> Next oProc
> Else
> MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
> vbOKOnly + vbCritical, "CloseAPP_B"
> End If
> Set oProclist = Nothing
> Set oWMI = Nothing
> End Sub
> "Gloops" a écrit :
>> [Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
>> Bonjour,
>> Il faut configurer cela dans PDFCreator.
>> En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
>> "Moniteur d'impression PDF", où avec la commande Imprimante Options, on
>> a accès à la boîte de dialogue des options.
>> S'intéresser à l'onglet Enregistrement Automatique.
>> Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
>> représente une source d'information intéressante si on veut déclencher
>> un changement de configuration depuis une autre application (par
>> exemple
>> Excel).
>> Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
>> forum, si on se trouve dans une boîte où même les développeurs n'ont
>> pas
>> accès à la configuration de leur machine. :/
>> ___________________________________
>> GGAL a écrit, le 04/04/2009 14:20 :
>> > Bonjour,
>> > J'utilise Excel 2003, et je souhaiterais convertir une feuille
>> > sélectionnée
>> > d'un classeur en un document .pdf via l'imprimante virtuelle
>> > PDFCreator. (ou
>> > même plusieurs feuilles)
>> > J'ai trouvé la commande suivante qui lance PDFCreator :
>> > ActiveWindow.SelectedSheets.PrintOut copies:=1,
>> > ActivePrinter:="PDFCreator",
>> > collate:=True
>> > Mais la fenêtre s'affiche et me demande le nom de fichier, le
>> > chemin …
>> > ; et
>> > une fois le fichier créé, Acrobat Reader s'ouvre.
>> > Je voudrais que tout se fasse automatiquement.
>> > Merci de vos réponses.
>> > Clt,
>> > GGAL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles
à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils
y
bénéficieront d'un tarif spécial....
Mgr T.B.
"GGAL" a écrit dans le message de news:
> Merci, mais en cherchant sur la toile, j'ai trouvé quelque chose
> d'intéressant :
>http://www.excel-downloads.com/forum/112586-edition-pdf.html
> J'ai légèrement adapté la procédure : au choix, exporter en PDF la
> feuille
> active, des feuilles sélectionnées, le classeur entier.
> Clt,
> GGAL
> Sub printtest_1()
> 'La feuille active.
> a = ActiveSheet.Name
> Call printsheetinpdf(Sheets(a))
> End Sub
> Sub printtest_2()
> 'Quelques feuilles du classeur, à adapter.
> a = ActiveSheet.Name
> b = "Annexe"
> c = Sheets(3)
> Call printsheetinpdf(Sheets(Array(a, b, c)))
> End Sub
> Sub printtest_3()
> 'Le classeur entier.
> Call printsheetinpdf(ActiveWorkbook)
> End Sub
> Sub printsheetinpdf(shsheet As Object)
> Dim pdfjob As Object
> Dim spdfname As String
> Dim spdfpath As String
> spdfname = "Fiche navette_" & Range("h8") & "_" & Format(Date,
> "dd-mm-yyyy") & ".pdf" 'Nom du fichier, à adapter
> spdfpath = "D:Documents and Settings" & UCase(Environ("username")) &
> "Mes documents" 'Nom du chemin, à adapter
> Call killtask("PDFCreator.exe")
> Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
> With pdfjob
> If .cstart("/NoProcessingAtStartup") = False Then
> MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly,
> "PrtPDFCreator"
> Exit Sub
> End If
> .cOption("UseAutosave") = 1
> .cOption("UseAutisaveDirectory") = 1
> .cOption("AutosaveDirectory") = spdfpath
> .cOption("AutosaveFilename") = spdfname
> .cOption("AutosaveFormat") = 0
> .cClearCache
> End With
> shsheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
> Do Until pdfjob.cCountOfPrintjobs = 1
> DoEvents
> Loop
> pdfjob.cPrinterStop = False
> Do Until pdfjob.cCountOfPrintjobs = 0
> DoEvents
> Loop
> With pdfjob
> .cDefaultprinter = defaultprinter
> .cClearCache
> Application.Wait (Now + TimeValue("0:00:3"))
> .cClose
> End With
> Set pdfjob = Nothing
> End Sub
> Sub killtask(sappname As String)
> Dim oProclist As Object
> Dim oWMI As Object
> Dim oProc As Object
> Set oWMI = GetObject("winmgmts:")
> If IsNull(oWMI) = False Then
> Set oProclist = oWMI.InstancesOf("win32_process")
> For Each oProc In oProclist
> If UCase(oProc.Name) = UCase(sappname) Then
> oProc.Terminate (0)
> End If
> Next oProc
> Else
> MsgBox "Killing """ & sappname & """ - Can't create WMI Object.",
> vbOKOnly + vbCritical, "CloseAPP_B"
> End If
> Set oProclist = Nothing
> Set oWMI = Nothing
> End Sub
> "Gloops" a écrit :
>> [Eviter la boîte de dialogue de sélection de fichier dans PDFCreator]
>> Bonjour,
>> Il faut configurer cela dans PDFCreator.
>> En l'ouvrant sans paramètre, on voit apparaître une boîte de dialogue
>> "Moniteur d'impression PDF", où avec la commande Imprimante Options, on
>> a accès à la boîte de dialogue des options.
>> S'intéresser à l'onglet Enregistrement Automatique.
>> Dans l'aide de PDFCreator, on trouve un chapitre "Interface COM", qui
>> représente une source d'information intéressante si on veut déclencher
>> un changement de configuration depuis une autre application (par
>> exemple
>> Excel).
>> Il peut se poser une question subsidiaire, mais qui dépasse le cadre du
>> forum, si on se trouve dans une boîte où même les développeurs n'ont
>> pas
>> accès à la configuration de leur machine. :/
>> ___________________________________
>> GGAL a écrit, le 04/04/2009 14:20 :
>> > Bonjour,
>> > J'utilise Excel 2003, et je souhaiterais convertir une feuille
>> > sélectionnée
>> > d'un classeur en un document .pdf via l'imprimante virtuelle
>> > PDFCreator. (ou
>> > même plusieurs feuilles)
>> > J'ai trouvé la commande suivante qui lance PDFCreator :
>> > ActiveWindow.SelectedSheets.PrintOut copies:=1,
>> > ActivePrinter:="PDFCreator",
>> > collate:=True
>> > Mais la fenêtre s'affiche et me demande le nom de fichier, le
>> > chemin …
>> > ; et
>> > une fois le fichier créé, Acrobat Reader s'ouvre.
>> > Je voudrais que tout se fasse automatiquement.
>> > Merci de vos réponses.
>> > Clt,
>> > GGAL- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils
y bénéficieront d'un tarif spécial....
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils
y bénéficieront d'un tarif spécial....
bonjour à tous,
cette proc intéresse beaucoup notre diocèse
quelle bonne âme pourrait me dire pourquoi elle bogue sur la phrase :
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")
avec le message : Un contrôle ActiveX ne peut créer un objet
aucune info de références manquantes dans la liste mais, par contre,
plusieurs références aux couleurs de PDF...et quelquechose ;
seraient-elles à cocher?
merci à celui/ceux ou celle/celles qui me répondra (dront) car, non
seulement ils se verront ouvrir large les portes du confessional mais ils
y bénéficieront d'un tarif spécial....