Discussion :

[jijie]

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

[EngueEngue]

Plusieurs façons de faire...

Tu peux utiliser cette fonction par exemple pour tester l’existence avant avant d'ouvrir

Code :

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

1
2
3
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                 ByVal lpClassName As String, _
                 ByVal lpWindowName As String) As Long

[jijie]

Merci EngueEngue, mais comment tu veut que je la place et surtout, comment rendre le bloc note actif si il est déjà ouvert?

[EngueEngue]

C'est une fonction qui te permet de savoir si une fenêtre est ouverte... si elle te renvoi le handle de la fenêtre ou 0.

Il suffit de tester donc avec un if
Nous allons faire un truc de la sorte

Code :

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

1
2
3
4
5
    hWnd = FindWindow ("NotePAD", "")
    if (hWnd = 0) then
'toncode
    else
enablewindow(hWnd,"")

avec la fonction

Code :

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

1
2
3
Declare Function EnableWindow Lib "user32" ( _
                 ByVal hWnd As Long, _
                 ByVal fEnable As Long) As Long

[jijie]

alors ds mon module :

Code :

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

1
2
3
4
5
6
7
Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
                 ByVal lpClassName As String, _
                 ByVal lpWindowName As String) As Long
 
Declare Function EnableWindow Lib "user32" ( _
                 ByVal hWnd As Long, _
                 ByVal fEnable As Long) As Long

et aussi dans le module :

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
40
Sub test4()
Dim FichierTXT As String
Dim E As Date
Dim LigneCourante
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,
        Print #1,
        Print #1, "################################################################"
        Print #1, "le " & E
        Print #1, "Remarque:"
        Close
 
 
 
    Else
        Open FichierTXT For Output As 1
        Print #1,
        Close
 
    End If
 
     hWnd = FindWindow(FichierTXT, "")
    If (hWnd = 0) Then
'toncode
            With CreateObject("WScript.Shell")
                  .Run ("Notepad.exe " & FichierTXT), vbNormalFocus
                 End With
 
    Else
   EnableWindow(hWnd, "")
 
 End If
End Sub

la je plante!!

[EngueEngue]

Ta fenêtre s'appelle CheminSalarie & "\NOTES-" & MeNu.NoM & ".txt" ?

Chez moi quand j'ouvre Notepad mes fenêtres s'appellent plutôt..

MeNu.NoM & " - Notepad"