Discussion :

[sebys]

Bonjour tout le monde et le forum,


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Godzestla]

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)

[spitnolan]

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

[sebys]

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)

[spitnolan]

re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Godzestla]

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

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

[spitnolan]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[Godzestla]

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.......