Besoin d'aide en vbs

lettres = "abcdefghijklmnopqrstuvwxyz" 
nLettres = Len(lettres) 
pwd = "" 

randomize  

for i = 1 to 7 
    car = int(nLettres * rnd + 1) 
    pwd = pwd + Mid(lettres,car,1) 
next  

Inputbox "","Generateur de pseudo",pwd  

Sub CreeChaineAlea()
Dim i As Integer, S As String
Randomize Timer
    For i = 0 To 6
        S = S & Chr(Int(Rnd * 26) + 97)
    Next i
    'Mémorise dans le presse papier
    Clipboard.SetText S
    
    'Eventuellement restitue dans un textBox
    Text1.Text = Clipboard.GetText
End Sub

Discussions similaires