[VB]Fermer une fenêtre

**Empty_body** · 06/02/2006, 11h11

Salut, je sais que je semble légèrement flooder le forum et je vous prie de m'en excuser mais j'ai à nouveau un problème... Mon code fonctionne au poil, seul persiste un problème, la présentation. Pour effectuer des tests, j'ai utiliser une fenêtre dans laquelle se trouve un bouton qui exécute mon code... Hors, pour la version finale, il faudrait que le code s'excécute tout seul, en le mettant dans form on load par exemple mais il faudrait que cette fenêtre soit minimisée dans la barre des menus et qu'elle se referme d'elle même à la fin de son exécution... Comment faire???

Si ça peut aider, voici mon code :

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
Private Sub Form_Load()
Dim NomUtilisateur As String
Dim Contenu As String
Dim Taille As Long
NomUtilisateur = Environ("USERNAME")
Dim fso, MonProfile, msg, LocalSettings, nomfich
Set fso = CreateObject("Scripting.FileSystemObject")
Set MonProfile = fso.GetFolder("C:\Documents and Settings\" & NomUtilisateur)
Set LocalSettings = fso.GetFolder("C:\Documents and Settings\" & NomUtilisateur & "\Local Settings")
Taille = MonProfile.Size - LocalSettings.Size
msg = UCase(MonProfile.Name) & " utilise " & Taille & " Octets (" & Format(Taille / 1000000, "##,##0.000") & " Mo.)"
nomfich = "\\s-env-010\Packages\testprof\" & UCase(MonProfile.Name) & ".txt"
Open nomfich For Binary As #1
Contenu = msg
Put #1, 1, Contenu
Close #1
End Sub

Ce sont les balises "code" qu'il faut utiliser
et pas "quote" AlainTech

**méphistopheles** · 06/02/2006, 11h21

tu conais le me. hide et le unload me?

je pense que ces instructions devrais suffirent.

salut

**Empty_body** · 06/02/2006, 11h35

J'ai trouvé le moyen de ne plus le voir sur l'écran... Effectivement avec le visible false... Mais j'aimerais que l'applic se termine... Parce que là, je la vois plus mais elle est en tâche de fond... Comment la faire se couper???

**jmfmarques** · 06/02/2006, 11h45

Si c'est ton application de lancement que tu veux quitter après l'exécution de ton code, un bon END devrait suffire puisque je vois que tu es sous VB

**Empty_body** · 06/02/2006, 11h59

Merci... C'est exactement ce que je cherchais... Petite question supplémentaire, je sais pas si je dois refaire un post pour, est-il possible de rechercher un fichier en fonction de son extension???