Bonjour
j'ai un programme en VBA que je souhaiterai convertir en python

le programme en question va sur un répertoire qui contient un username et un espace
et efface le contenu ,sauf bien sur 1 ou plusieurs fichiers=> celui qui est bloqué car je suis en train de le/les lire

ce que je veux récuperer c'est le chemin complet du PDF en question (s'il n'y en a que 1)
ou en choisir1 celui que je veux s'il y en a plusieurs

Code VBA : 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
40
41
42
43
 Sub pdftxt()
 'suppression des fichiers PDF qui ne sont pas ouvert
 'afin de n'en avoir que 1 pour le selectionner automatiquement
 
chemin = Environ("userprofile") & "\AppData\Local\SAP\SAP GUI\tmp\"    '<==========temporary path of SAP
 
Dim Fso, f1 As Object
Set Fso = CreateObject("Scripting.FileSystemObject")
For Each f1 In Fso.GetFolder(chemin).Files
    On Error Resume Next
    Kill chemin & f1.Name
Next
 
'fait une liste des fichiers PDF et s'il n'y en a que  on l'ouvre
'sinon on ouvre la boite de dialogue pour le selectionner
    f = 0
    fichier = Dir(Environ("userprofile") & "\AppData\Local\SAP\SAP GUI\tmp\*.pdf")
    While fichier <> ""
        fderosap = fichier
        f = f + 1
        fichier = Dir
    Wend
 
 
   If f = 1 Then
        Source = Environ("userprofile") & "\AppData\Local\SAP\SAP GUI\tmp\" & fderosap           'si 1 seul fichier on recupere son nom
    Else
        With Application.FileDialog(msoFileDialogFilePicker)                        'sinon on ouvre la boite de dialogue
            .Filters.Clear
            .Title = "Choose the PDF of the concession"
            .ButtonName = "Open for analyse"
            .InitialFileName = Environ("userprofile") & "\AppData\Local\SAP\SAP GUI\tmp\*.pdf"
            .Filters.Add "PDF file", "*.pdf"
            .Show
        Source = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
        End With
    End If
 
    If Source = "" Then Exit Sub  'si aucun fichier n'est sélectionné, on sort de la procédure
 
   MsgBox Source
 
End Sub


le but ensuite est de convertir le fichier PDF en TXT, donc dans un premier temps je cherche le chemin complet