Salut, ma fonction s'exécute maintenant correctement mais j'aimerais que le résultat ne s'affiche pas à l'écran mais dans un fichier texte... J'ai un petit problème avec la ligne :

Open nomfich For Binary As #1
qui apparaît en surbrillance... Quelqu'un peut me dire ce que c'est???

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
Private Sub Command1_Click()
Dim NomUtilisateur 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"
nomfich = "C:\" & UCase(MonProfile.Name) & ".txt"
Dim Contenu As String
Open nomfich For Binary As #1
Contenu = "Taille du profile : "
Put #1, 1, Contenu
Contenu = vbCrLf
Put #1, 1, Contenu
Contenu = msg
Put #1, 1, Contenu
Close #1
End Sub