Adapter code VBA pour imprimer fichier pdf via Excel

Bonjour le forum

J'ai le code ci-dessous qui si on arrivait à l'adapter à mon cas pourra m'aider à lancer une impression d'un ficher PDF depuis mon fichier excel.

Aussi, j'aimerai savoir ou le code une fois adapté devra être logé?

N.B:voici le chemin d'acces de mon fichier : "C:\users/benzoplus/desktop/SG/conditions générales PS.pdf"

Option Explicit

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

Sub PrintFichier(sNomFichier As String)
Dim Rep As Integer
Dim hwnd As Long
    Rep = ShellExecute(hwnd, "Print", sNomFichier, 0&, 0&, 1)
End Sub __________________

Salut le forum

Avec une petite recherche sur le Forum

Le lien : Imprimer un fichier PDF depuis Excel

Mytå

Basé sur le même fil de vba.new et silkyroad, j'avais placé ce code avec une modification pour ton chemin dans le fichier ci-joint.

A noter que j'ai remplacé les / de ton code par des \.

Cordialement

Salut à vous et merci pour les éléments de réponse.

J'ai testé mais ca ne marche pas.

pouvez-vous revoir ou ca coince. chez moi pas de signe particulier ais pas d'impression.

Chez moi j'avais tout d'abord inscrit un espace de trop et rien ne se passait lorsque je lançais le code.

Je te conseille donc de bien revoir l'écriture du chemin et le nom du fichier.

NB : J'attends toujours de tes nouvelles sur le fil

https://forum.excel-pratique.com/excel/code-macro-pour-imprimer-recto-verso-t28326.html

Cordialement.

Merci pour tes éléments de réponse.

Je essayé de vérifier comme tu m'as conseillé mais en vain.

Voici le code intégral que j'ai collé dans le module:

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
Sub ImprimerFichier()
    Dim NomFichier As String
    Dim x As Long

    x = FindWindow("XLMAIN", Application.Caption)
    NomFichier = "C:\users\benzoplus\desktop\SGIIOC\conditions générales PS.pdf"

    ShellExecute x, "print", NomFichier, "", "", 1
End Sub

Salut,

De retour d'un petit voyage, je découvre ton message ce soir.

J'ai repris le code que tu fournis dans ton dernier message et l'ai collé dans un nouveau fichier. Puis j'ai simplement remplacé ton chemin par le mien - selon l'extrait ci-dessous - et je peux te garantir que ça fonctionne parfaitement chez moi.

        'NomFichier = "C:\users\benzoplus\desktop\SGIIOC\conditions générales PS.pdf"
        NomFichier = "C:\Users\Lacy\Documents\Jean\conditions générales PS.pdf"

Peux-tu éventuellement me fournir une copie d'écran du détail des propriétés de ton fichier .pdf, à l'instar de la copie d'écran que je te fourni ci-dessous pour mon fichier, de manière à pouvoir contrôler ton code (spécialement le nom du fichier et l'emplacement) ?

A te relire.

Salut yvouille

J'ai reéssayé et ca marché.

J'ai essayé de modifier le chemin d'acès et c'est bon.

Merci pour multiples soutiens.