Fermer un fichier Notepad (ou autre) par programme

Version imprimable

Bonjour,
avec une petit programme en VB j'ouvre un fichier texte créé par mon programme.
Code:

1 2 3 4 5 6 7 8 9 10 11 Private Sub OuvrirLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirLog.Click Try If File.Exists(FicLire) Then Shell("C:\Windows\notepad.exe " + FicLire, vbMaximizedFocus) Else msgbox("Message 901" + Chr(10), FicLire + Chr(10), "introuvable") End If Catch ex As Exception msgbox(ex.Message) End Try End Sub
J'aimerais pouvoir fermer ce fichier (fermer la fenêtre afin qu'elle n'apparaisse plus sur mon écran au lieu de le faire en cliquant sur «Fermer» du programme notepad.exe ) mais à partir de mon programme, par exemple en cliquant sur un bouton (ou le même).
Merci pour votre aide.

24/10/2023, 16h27
umfred

une façon brutale c'est de tuer le processus de l'application ciblée

Merci
J'ai entendu parler de cela, mais je n'ai pas réussi à le faire correctement : ça me ferme tous les fichiers notepad ouverts !

Code:

1
2
3
4
5
6
7
8
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each process__1 In Process.GetProcessesByName("notepad")
            Try
                process__1.Kill()
            Catch ex As Exception
            End Try
        Next
    End Sub

24/10/2023, 17h36
popo

Si l'objectif est de montrer le contenu du fichier, tu n'a pas besoin de l'ouvrir avec Notepad.
Tu peux te contenter de l'afficher dans ton programme avec un composant TextBox dont la propriété Multiline est active (ou bien un RichTextBox).

Merci pour cette suggestion, mais le fichier texte est très volumineux et il n'est pas aisé de le lire dans un textbox. Je l'ai fait mais ça n'est pas très pratique.
D'autre part, mon application ouvre sur demande plusieurs fichiers en même temps et ce sont ceux-là que je voudrais fermer en une seule fois (mais pas d'autres ouverts que je veux garder ouverts)

EDIT : Voici la «solution» que j'ai trouvée...

1) j'ai téléchargé un free genre notepad : TedNPad.exe
2) je l'ai renommé «TedNPadInfoDynamik.exe» et copié dans le répertoire de mon application (qui se nome InfoDynamik).
3) j'ouvre le ou les fichiers texte avec ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click Try If File.Exists(Myfile) Then Dim Ted As String = Application.StartupPath + "\TedNPadInfoDynamik.exe " + Myfile Shell(Ted, vbMaximizedFocus) Else MsgBox("Message 501" + Chr(10), Myfile , "introuvable") End If Catch ex As Exception MsgBox("Message 502", ex.Message, " ") End Try End Sub
4) je ferme avec :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For Each Myprocess In Process.GetProcessesByName("TedNPadInfoDynamik") Try Myprocess.Kill() Catch ex As Exception MsgBox(ex.Message) End Try Next End Sub
Pas très élégant mais ça le fait...

25/10/2023, 10h01
popo

Citation:

Envoyé par Minuitdixhuit

Merci pour cette suggestion, mais le fichier texte est très volumineux et il n'est pas aisé de le lire dans un textbox. Je l'ai fait mais ça n'est pas très pratique

Certainement parce que tu t'es contenté de poser le composant sur la fiche.
Il faut paramétrer les propriétés suivantes :
Multiline à true,
Scrollbars à Both,
Dock à Fill.

C'est exactement ce qu'est Notepad, une fenêtre avec un grosse Textbox au milieu...

Citation:

Envoyé par Minuitdixhuit

D'autre part, mon application ouvre sur demande plusieurs fichiers en même temps et ce sont ceux-là que je voudrais fermer en une seule fois (mais pas d'autres ouverts que je veux garder ouverts)

Rien ne t'empêche d'ouvrir plusieurs instances de la même fenêtre de ton application.

Citation:

Envoyé par Minuitdixhuit

Pas très élégant mais ça le fait...

Sans commentaires...
25/10/2023, 11h34
Minuitdixhuit

popo merci pour ton message.
Je te rassure, je ne me suis pas contenté de poser etc... j'ai bien sûr mis Multiline à true, Scrollbars à Both, Dock à Fill.
Mais je garde mon avis sur le «confort» de cette solution : elle ne convient pas totalement car il faudrait programmer toutes les autres (petites) propriétés de notepad comme la possibilité d'annoter les fichiers etc...

Rien ne t'empêche d'ouvrir plusieurs instances de la même fenêtre de ton application.
Oui, bien sûr... et donc de me retrouver avec le même problème... il me faut maintenant fermer une à une toutes les instances des applications ouvertes...

Sans commentaires...
Je ne comprends pas bien. Tu trouves cette solution dangereuse, stupide, inutile, comique ou je ne sais quoi ? C'est que simplement je n'en ai pas trouvé d'autre et pas trouvé ici de réponse entièrement satisfaisante !
25/10/2023, 12h14
umfred

Dans tes fonctions de "fermeture forcée", je ne vois pas pourquoi l'une fonctionnerai et pas l'autre, elles font la même chose: supprimer les processus qui porte un même nom. Je pense que ce tu as fait avec TedNPad aurait été faisable avec notepad (copier/coller et renommer notepad.exe).

Je pense que quand popo parle de plusieurs instances, il parle d'instance de Fenêtre enfant gérée par ton application, de type MDI ((Multiple-Document Interface).
25/10/2023, 12h49
Minuitdixhuit

Je ne comprends pas la première partie de ta remarque. (Dans tes fonctions de "fermeture forcée", je ne vois pas pourquoi l'une fonctionnerai et pas l'autre, elles font la même chose: supprimer les processus qui porte un même nom.)

Pour la seconde partie (Je pense que ce tu as fait avec TedNPad aurait été faisable avec notepad (copier/coller et renommer notepad.exe).) J'ai essayé au début... ça ne marche pas : notepad dupliqué et renommé ne se lance pas. C'est pourquoi, après cet essai, j'ai essayé avec une autre prog et avec cet autre ça marche. Je ne sais pas pourquoi, cela est nettement au-dessus de mon niveau !!!

Pour la suggestion de popo + tes explications, cela commence à être une usine à gaz, il me semble : lancer un nombre indéterminé de nouvelles fenêtres (qui de toute façon n'auront pas facilement les fonctionnalités de notepad), les gérer, etc... me dépasse un peu.

En fait je m'attendais à avoir de infos sur une procédure du genre :
Kill(notepad, nomdufichierakiller)
Mais cela ne semble pas exister ou alors pas facile à trouver.

Citation:

Envoyé par Minuitdixhuit

popo merci pour ton message.
Je te rassure, je ne me suis pas contenté de poser etc... j'ai bien sûr mis Multiline à true, Scrollbars à Both, Dock à Fill.
Mais je garde mon avis sur le «confort» de cette solution : elle ne convient pas totalement car il faudrait programmer toutes les autres (petites) propriétés de notepad comme la possibilité d'annoter les fichiers etc...

J'ignore ce que tu appelles annoter mais les fonctionnalité proposées parnotepad.exe sont tellement basiques qu'elle sont très aisément reproductibles sans trop d'effort.
Une simple recherche sur Google te fournira de nombreux exemples.

Citation:

Envoyé par Minuitdixhuit

Oui, bien sûr... et donc de me retrouver avec le même problème... il me faut maintenant fermer une à une toutes les instances des applications ouvertes...

J'ai parlé d'instance d'une FENETRE de TON application.
Aucune application n'est lancée dans ma proposition.
Rien que le terme "instance" implique que ce n'est pas le cas.

Et d'ailleurs "fermer toutes les instances des applications ouvertes", c'est exactement ce que tu fais dans ton For Each.

Citation:

Envoyé par Minuitdixhuit

Je ne comprends pas bien. Tu trouves cette solution dangereuse, stupide, inutile, comique ou je ne sais quoi ? C'est que simplement je n'en ai pas trouvé d'autre et pas trouvé ici de réponse entièrement satisfaisante !

Tu te contentes d'une solution que je qualifierait de "bricolage" sans chercher plus loin.
Et c'est justement ce qui me choque.

Citation:

Envoyé par Minuitdixhuit

Pour la suggestion de popo + tes explications, cela commence à être une usine à gaz, il me semble : lancer un nombre indéterminé de nouvelles fenêtres (qui de toute façon n'auront pas facilement les fonctionnalités de notepad), les gérer, etc... me dépasse un peu.

Si gérer les ressources que tu utilises te sembles être une usine à gaz, alors l'informatique n'est pas fait pour toi.
Si tu ouvres une fenêtre, tu dois prévoir un moyen de la refermer.
Si tu lances une application, soit tu la considères indépendante, soit tu doit gérer toi même son cycle de vie.

Dans un registre plus global, tu utilises des routines sans savoir comment elles fonctionnent.
Shell est obsolète depuis un bon moment.
Mais sa documentation précise qu'elle renvoie l'identifiant du processus que tu as lancé (la colonne PID dans le gestionnaire de tâches).
Tu as donc un moyen de le retrouver.

Aujourd'hui on utilisera plutôt Process.Start qui renvoie un objet de type Process et qui possède une propriété Id et une méthode Kill().
Ce code ouvre un fichier texte et le referme 5 secondes après.
Il ne touche pas aux autres notepad que j'ai lancé en dehors de mon programme.
Code:

1 2 3 4 5 6 7 8 9 10 11 Dim process = New Process() With { .StartInfo = New ProcessStartInfo("C:\Test\Test.txt") With { .UseShellExecute = True }} process.Start() Thread.Sleep(5000) process.Kill()
Si tu lance plusieurs fois la même application, tu dois stocker chaque instance de Process renvoyé par Process.Start afin de pouvoir fermer uniquement ceux que tu as lancé.

25/10/2023, 15h49
Minuitdixhuit

Dans un registre plus global, tu utilises des routines sans savoir comment elles fonctionnent.
Exactement !
C'est un peu pour cela que je viens chercher des infos ici ! Je ne suis pas informaticien et je ne cherche pas à le devenir, juste à me faciliter la tache pour d'autres travaux. D'où ce qu'à juste titre tu qualifies de «bricolage». Un peu comme on fait pousser de la ciboulette sur son balcon sans être agriculteur, juste pour parfumer la salade.
Merci pour tout ce temps consacré à m'aider à la résolution de ce problème.

Personnellement j'utilise un sub comme celui-ci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Sub KillProcessus(ByVal NomDuProcessus As String)
 
 
     Try
         Dim p() As Process
         Dim r As Process
         p = Process.GetProcessesByName(NomDuProcessus)
         For Each r In p
             r.CloseMainWindow()
             r.Kill()
         Next
     Catch ex As Exception
         MessageBox.Show(ex.Message & "Stack Trace: " & vbCrLf & ex.StackTrace)
     Finally
     End Try
 
 End Sub

Il suffit de modifier les lignes à la demande. Si cela peut t'aider, mais cela ne réponds peut être pas tout à fait à ta question.

02/11/2023, 19h12
Minuitdixhuit

Merci je vais tenter ça !

Bonjour,

Quasi identique au code de Excalybur, j'utilise celui-ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub KillOldProcess(NomDuProcess As String)
        Dim Cpt As Integer = 0   ' Inutile si pas de MessageBox
        Dim P As System.Diagnostics.Process
        Try
            For Each P In System.Diagnostics.Process.GetProcesses
                If P.ProcessName.ToUpper Like "*" & NomDuProcess.ToUpper & "*" Then
                    P.Kill()
                    Cpt += 1   ' Inutile si pas de MessageBox
                End If
            Next
        Catch
        End Try
        ' MessageBox.Show(Cpt & " Process trouvé(s)")  ' La MessageBox facultative
    End Sub

Et pour arrêter le Notepad.exe, il suffit d'appeler KillOldProcess("Notepad").

... :)

05/11/2023, 09h49
excalybur

Bonjour

C'est vrai Phil Rob que nous avons pas mal échangé il y a quelques temps sur le sujet ! Ta solution est plus complète encore avec les messages optionnels.

a+
05/11/2023, 10h34
Phil Rob

Merci Ecalybur, mais je ne suis pas que l'une soit meilleure que l'autre.
Ma solution n'est qu'une légère variante.
A Minuitdixhuit de choisir celle qui lui plait le mieux.
Bon dimanche :D
05/11/2023, 11h13
Minuitdixhuit

Pour être honnête, je n'ai pas encore eu le temps d'appliquer vos solutions. Je vous remercie grandement de vos conseils !
Mais, il me semble que la solution (par rapport à la très peu orthodoxe que j'ai utilisée) ne résout pas, sauf erreur, un des petits soucis : ce sont TOUS les .txt notepad (ou autre selon le prog ouvert) qui sont fermés et non juste seuls appelés par le programme qui les a ouvert.
Encore une fois, je suis loin d'être une flèche en analyse et en programmation, mais je suis surpris qu'il ne semble pas exister de fonction permettant de fermer par programmation, par exemple, un .txt bien précis ouvert par notepad (ou autre) et pas les autres qui auraient été ouverts pour une autre raison et qu'on ne désirerait pas fermer.
Pardonnez-moi si je ne suis pas clair ou si je n'ai pas bien compris vos solutions.
Bon Dimanche.

Citation:

ce sont TOUS les .txt notepad (ou autre selon le prog ouvert) qui sont fermés et non juste seuls appelés par le programme qui les a ouvert

En effet ...

Mais en parcourant les codes que tu as postés précédemment, je vois que tu lances le Notepad avec la commande Shell. Or, celle=ci renvoie l'Id du process ouvert. Il te suffit donc (sauf erreur de ma part) de faire un Kill de ce process pour fermer ce Notepad.

Par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
' Au niveau du Form :
 Dim LeProcess As Integer
' ..........
  Private Sub OuvrirLog_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirLog.Click
           Try
                If File.Exists(FicLire) Then
                  LeProcess =  Shell("C:\Windows\notepad.exe " + FicLire, vbMaximizedFocus)
                Else
                    msgbox("Message 901" + Chr(10), FicLire + Chr(10), "introuvable")
                End If
            Catch ex As Exception
                msgbox(ex.Message)
            End Try
 End Sub
 
' Et ailleurs,là où cela te convient, dans une procédure :
         Dim P As System.Diagnostics.Process = System.Diagnostics.Process.GetProcessById(LeProcess)
         P.Kill()
' ..........

J'espère que ceci t'aidera ... :)

06/11/2023, 09h00
Minuitdixhuit

Super.
Merci à tous pour votre patience et vos divers commentaires instructifs.