Discussion :

[MrCMTueurx]

Bonjour à tous,

Aujourd'hui je rencontre un problème au niveau d'une impression.

Effectivement j'aimerais imprimé un fichier PDF qui ce trouve sur mon réseau,
Je connais l'adresse exact de ce fichier PDF, car elle (l'adresse du fichier) ce trouve par exemple sur la cellule A1
Sachant que je n'utilise pas mon imprimante par défaut.

J'espère que vous pouvez m'aider

Cordialement

[MrCMTueurx]

Re bonjour.

J'ai trouvé ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private 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
 Dim NomFichier As String
Sub ImprimerFichier()
   Dim x As Long
     x = FindWindow("XLMAIN", Application.Caption)
  ShellExecute x, "print", NomFichier, "", "", 1
End Sub
Private Sub CommandButton1_Click()
 NomFichier = Range("A1").Value  'lien dans la cellule
ImprimerFichier
End Sub

Cela fonctionne parfaitement, le seul problème c'est que l'impression ce lance sur l'imprimante par défaut.
Avez vous des idées pour solutionné ce problème ?

Cordialement