Un fichier pdf

**inconnu3** · 01/11/2017, 22h19

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
    Option Compare Text 'permet de ne pas faire de distinction entre minuscule et majuscule
       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 chemin As String
    Dim x As Long
    Dim nom As String
    Dim Cellule As Range
    Dim firstAddress As String
    Dim format As String
 
 
    nom = InputBox(" Quel est le nom du fichier que vous voulez imprimer?")
               Application.ScreenUpdating = False
 
 
    With ActiveSheet.Range("A7:A45")
        Set Cellule = .Find(nom, Lookat:=xlWhole)
        If Not Cellule Is Nothing Then
            firstAddress = Cellule.Address
            Do
                Exit Sub
                Set Cellule = .FindNext(Cellule)
            Loop While Not Cellule Is Nothing And Cellule.Address <> firstAddress
        End If
    End With
        MsgBox "Le fichier n'existe pas"
            x = FindWindow("XLMAIN", Application.Caption)
            chemin = "E:\vba\base VBA\"
            format = ".pdf"
 
            ShellExecute x, "print", chemin & "nom" & format, "", "", 1
        End Sub

**kiki29** · 01/11/2017, 22h30

Salut, voir ici, cette liste pour y naviguer. Peut-être commencer par Impression (Papier) des fichiers PDF d'un dossier ? A adapter à ton contexte.

**inconnu3** · 02/11/2017, 00h30

Merci kiki29 !

**Menhir** · 02/11/2017, 09h38

Envoyé par inconnu3

...

Tu as raison : perdre du temps à expliquer ton problème, c'est totalement superflu.

**laurent_ott** · 03/11/2017, 15h35

Tu as raison : perdre du temps à expliquer ton problème, c'est totalement superflu.

Le plus fort, c'est que kiki29 a réussit à résoudre le problème.
Chapeau kiki29.
CQFD : ce n'était vraiment pas la peine de perdre du temps à expliquer le problème.