Fermer un fichier PDF Résolu

Question

Bonjour, 

J'ai un problème pour fermer un PDF, j'ai trouvé des exemples sur le net mais aucun des exemples que j'ai trouvés fonctionne chez moi...en gros ce que je veux faire c'est fermer un fichier PDF car je viens en créer un pardessus ce PDF qui a le même nom donc je peux pas le créer si ce PDF est déjà ouvert.
Voilà la fonction que j'ai pour l'instant:
  Sub Tst_2007(Nom)    Set fso = CreateObject("Scripting.FileSystemObject")    If (fso.FileExists("C:\Users\Documents\TestNode2\code2\" & Nom & ".pdf")) Then     Kill ("C:\Users\Documents\TestNode2\code2\" & Nom & ".pdf")     'Set objFSO = CreateObject("Scripting.FileSystemObject")     'objFSO.DeleteFile ("C:\Users\Documents\TestNode2\code2\" & Nom & ".pdf")     'Call Fermer_Un_Programme("AcroRd32.exe")     'AppActivate MonApp, True     'SendKeys ("%{F4}") 'envoi altF4"    End If    Dim sNomFichierPDF As String        sNomFichierPDF = ThisWorkbook.Path & "\" & Nom        Application.ScreenUpdating = False        Sheets.Select               ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _            , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _            :=False, OpenAfterPublish:=False    End Sub

J'ai testé kill mais ça ne fonctionne pas non plus...
Si quelqu'un aurait une solution se serait géniale merci d'avance.

Configuration: Windows 7 / Firefox 35.0

pijaku · Accepted Answer

Bonjour,

J'y vais de ma contribution, en utilisant l'api user32 :

    Private Declare Function FindWindow Lib "user32" _
         Alias "FindWindowA" _
         (ByVal lpClassName As String, _
         ByVal lpWindowName As String) As Long

Private Declare Function PostMessage Lib "user32" _
         Alias "PostMessageA" _
         (ByVal hwnd As Long, _
         ByVal wMsg As Long, _
         ByVal wParam As Long, _
         ByVal lParam As Long) As Long
                 
    Declare Function GetWindowText Lib "user32" _
        Alias "GetWindowTextA" _
        (ByVal hwnd As Long, _
        ByVal lpString As String, _
        ByVal cch As Long) As Long

Declare Function GetWindow Lib "user32" _
        (ByVal hwnd As Long, _
        ByVal wCmd As Long) As Long

Sub Boucle_Sur_Fenetres()
Dim pointeur As Long
Dim titre As String

pointeur = FindWindow(vbNullString, "")
Do While pointeur <> 0
    titre = String(100, Chr$(0))
    GetWindowText pointeur, titre, 100
    titre = Left$(titre, InStr(titre, Chr$(0)) - 1)
    If titre Like "*" & Nom & ".pdf" & "*" Then FermerFenetre pointeur: Exit Sub
    pointeur = GetWindow(pointeur, 2)
Loop
End Sub

Sub FermerFenetre(handWindow As Long)
PostMessage handWindow, 16, 0, 0
End Sub

Utilisateur anonyme · Answer

Re,
J'ai essayer cette fonction:
Sub Fermer_Un_Programme(Prog As String)Dim StrComputer As String, objWMIService As ObjectStrComputer = "."Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\" & StrComputer & "rootcimv2")Set colProcessList = objWMIService.ExecQuery _("Select * from Win32_Process Where Name = '" & Prog & "'")For Each objProcess In colProcessListobjProcess.TerminateNextEnd Sub

Mais j'ai une erreur au premier set, c'est une "erreur automation"

J'appelle ma fonction avec:
Call Fermer_Un_Programme("AcroRd32.exe")

f894009 · Answer

Bonjour,

manque des "\":

Sub Fermer_Un_Programme(Prog As String)
    Dim StrComputer As String, objWMIService As Object
    StrComputer = "."
    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & StrComputer & "oot\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & Prog & "'")
    For Each objProcess In colProcessList
        objProcess.Terminate
    Next
End Sub

Fermer un fichier PDF

3 réponses

Votre réponse

Discussions similaires