[XL-2003] Macro pour imprimer un lien hypertexte

L'API permettant d'ouvrir ou d'imprimer un fichier externe:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Option Explicit
 
Public Const SW_SHOWNORMAL As Long = 1
 
Public Enum actionType
  openfile
  printfile
End Enum
 
Public Declare PtrSafe 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
 
Function ExecuteFile(fileName As String, action As actionType)
Dim sAction As String
 
  Select Case action
    Case 0 ' openfile
      sAction = "Open"
    Case 1 ' printfile
      sAction = "Print"
  End Select
 
  ShellExecute 0, sAction, fileName, vbNullString, "", SW_SHOWNORMAL
 
End Function

L'appel à la fonction imprimer:

Code:

1
2
3
4
5
6
7
8
Sub imprimer_Liensclasseurs()
Dim Lien As Hyperlink
 
    For Each Lien In ActiveSheet.Hyperlinks
         ExecuteFile Lien.Address, printfile
    Next Lien
 
End Sub

Attention je suis en 64 bit -> Enlever le mot-clé PtrSafe si ta version Office est en 32 bits.

http://www.jpsoftwaretech.com/open-o...-files-in-vba/