Discussion :

[Cem]

Bonjour,

Je cherche à tester si un fichier pdf est ouvert, en l’occurrence avec le programme Pdf Architect 7. Avec l'API WMI de windows j'arrive à tester si le programme Pdf Architect 7 est ouvert mais pas moyen de trouver une manière de savoir si un fichier pdf spécifique y est ouvert?(J'utilise Access 2016 sous Windows 10)

Merci pour votre collaboration

Cem

[hyperion13]

Salut
Avec cette fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function IsFileOpen(ByVal strFic As String) As Boolean
    Dim fic As Integer
    On Error Resume Next
 
    fic = FreeFile()
    Open strFic For Input Access Read Lock Read Write As fic
 
    If Err.Number = 0 Then
        IsFileOpen = False
        Close fic
    Else
        IsFileOpen = True
    End If
End Function

[Cem]

Merci Hyperion13,

C'est exactement ce que je voulais.
En fait je veux utiliser cette fonction pour fermer un pdf que j'aimerais renommer donc après avoir testé s'il est ouvert j'aimerais le fermer: J'ai réussi a fermer le processus:

Code :

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

1
2
3
4
.....
         IsFileOpen = True
         Shell "taskkill /f /im architect.exe", vbHide 'Ferme Architect 7 pour éviter l'erreur!
         .....

Mais je ne trouve pas comment fermer uniquement le fichier concerné ...(en l’occurrence strFic)
Y'a-t'il un truc?😉

[hyperion13]

Re
C'est une proc que j'ai récupéré il y a des lustres et qui fonctionne avec Adobe Acrobat Pro

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
Option Explicit
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassname As String, ByVal lpWindowName As String) As Long
 
Private Const WM_CLOSE = &H10
Private Sub btnclosepdf_Click()
    Dim Hwnd As Long
 
    '~~> Find the window of the pdf file
    Hwnd = FindWindow(vbNullString, "NomDuFichier.pdf - Architect 7") 
 
    If Hwnd Then
        '~~> Close the file
        PostMessage Hwnd, WM_CLOSE, 0, ByVal 0&
    Else
        MsgBox "Pdf File not found"
    End If
End Sub

[Cem]

...J'ai essayé cette procédure mais j'ai rencontré les mêmes problèmes que Gaby277 dans une discussion non résolue de 2013(Findwindow sous Access 2010 32 bits, Windows 8 64 bits) à savoir que si j'essaie avec un document Word, p.ex:

Code :

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

1
2
3
4
 
  strFic = "Document1 - Word"
 ' Find the window of the pdf file
  Hwnd = FindWindow(vbNullString, strFic)

pas de problème car Hwnd est différent de 0

mais avec:

Code :

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

1
2
3
4
 
  strFic ="PDFx.pdf - PDF Architect Professional"
 ' Find the window of the pdf file
  Hwnd = FindWindow(vbNullString, strFic)

ce qui est le titre de la fenêtre comme inscrite,



ça ne marche pas...la seule vraie différence c'est peut-être qu'il y a des espaces???

J'ai aussi essayé des caractères de substitution comme: "*"... sans résultat

Peut on retrouver le nom de la fenêtre d'une autre manière?

Merci pour votre aide

[hyperion13]

Alors tu fais comment moi, tu ouvres le gestionnaire des tâches et tu reprends la syntaxe donnée par le gestionnaire.
Parfois, il faut ou non l'extension. Et tu respectes la casse.