Bonjour,

J'ai un code qui me permet de créer ou d'ouvrir un bloc note par l'utilisateur que voici:

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
Function ExistenceFichier(sFichier As String) As Boolean
  ExistenceFichier = Dir(sFichier) <> ""
End Function
 
 
Private Sub NoTe_Click()
Dim FichierTXT As String
Dim E As Date
FichierTXT = CheminSalarie & "\NOTES-" & MeNu.NoM & ".txt" 'à modifier
 E = Now
    If ExistenceFichier(FichierTXT) Then
 
        '  si il existe
 
        Open FichierTXT For Append As 1
 
        Print #1, "################################################################"
        Print #1, "le " & E
        Print #1, "Remarque:"
        Close
 
 
 
    Else
        Open FichierTXT For Output As 1
        Print #1,
        Close
 
    End If
 
            With CreateObject("WScript.Shell")
                  .Run ("Notepad.exe " & FichierTXT), vbNormalFocus
                 End With
 
 
 
End Sub
Il fonctionne très bien, mais le souci est lorsque l'utilisateur clique sur le bouton pour accéder au bloc note, et que celui-ci est déja ouvert, il en ouvre un autre du même nom alors qu'il faudrait qu'il réutilise celui qui est déja ouvert!

Alors ma question peut-on insérer un code qui demande si le bloc note est déjà ouvert auquel cas il le rend actif?

merci à vous