besoin d'aide en vbs

Question

Bonjour,  je cherche à copier automatiquement dans le presse papier le résultat de l'inpubox. 

Voici le code :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  



Merci par avance pour votre aide 


Configuration: Windows 7 / Chrome 22.0.1229.96

lermite222 · Answer

Bonjour,
Comme ça ?
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
A+

Besoin d'aide en vbs

1 réponse

Discussions similaires

Newsletters