VBA Shellexecute print

Bonjour tout le monde et le forum,


J'ai trouvé une petite macro qui m'imprime des fichiers PDF sur des acces local.

Code:

---

1 2 3 4 5 6 7 8

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long   sub test shellexecute 0, "print",c:/test.pdf ,"","", 1 en sub

---

Le probleme est que je doit imprimer des fichiers PDF mais qui sont en intranet donc avec une adresse HTTP et le print ne fonctionne pas mais l'open oui ??

J'ai chercher sur internet mais je n'ai pas encore trouvé la reponse pour pouvoir imprimer via excel des fichiers pdf se trouvant sur le net.

merci pour votre aide

Salut,

peux-tu donner un exemple de print de doc intranet que tu lances ainsi que le résultat obtenu ?

merci.

(Si tu sais faire un open, as-tu tenté un copy vers un chemin local temporaite puis print puis delete. c'est peut-être idiot mais c'est une idée)

:?

Bonjour,

Une solution consiste à enregistrer en provisoire ton fichier sur ton DD, à l'imprimer (Via le code que tu proposes mais appliqué au fichier enregistré sur ton DD) puis le détruire.

Cordialement

Edit : pas vu Godzestla mais même idée

Bonjour,

un exemple de print de doc --> http://pc23/TEST/image1.pdf


Sinon la solution de copier et d'imprimer puis deleter... pouvez vous m'aider pour le code :o)

re,

Ton exemple n'est pas valide...
Un exemple de chargement et enregistrement sur ton DD avec un fichier xls :

Code:

---

1 2 3 4

Sub test() ActiveWorkbook.FollowHyperlink Address:="http://www.btp.equipement.gouv.fr/IMG/xls/BT_depuis_1974_cle5b62e2.xls", NewWindow:=True, AddHistory:=Tr ActiveWorkbook.SaveAs "c:\TestDevCom.xls" End Sub

---

A toi de transformer et d'adapter à ton cas...

Cordialement

Edit : Avec une syntaxe qui plait à Godzestla...:mouarf:

Citation:

---

Edit : Avec une syntaxe qui plait à Godzestla...

---

:P C'est Noël au balcon !!!!

Re,

Une autre méthode (Merci Stapple1600;)) pour imprimer directement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub imprimerPageWeb() '***Nécessite d'activer la référence Microsoft Internet Controls '***Source : http://puremis.net/excel/code/083.shtml Dim IE As internetExplorer Set IE = CreateObject("internetExplorer.Application") IE.Visible = True IE.navigate "http://www.btp.equipement.gouv.fr/IMG/xls/BT_depuis_1974_cle5b62e2.xls" Do Until IE.readyState = READYSTATE_COMPLETE DoEvents Loop IE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER End Sub

---

Cordialement

Nota : Remplaces le lien donné par le tien car là tu risques de lancer l'impression de 40 pages...

Ce qui me ramène d'ailleurs à ma question qui a suscité énormément d'intérêt depuis sa mise en ligne...

Citation:

---

Ce qui me ramène d'ailleurs à ma question qui a suscité énormément d'intérêt depuis sa mise en ligne...

---

Enormément, c'est peu de le dire.......:P