dim prem as string
Open "c:\premier.txt" For Binary As #1 'ouverture de premier.txt
prem$ = Space$(FileLen("c:\premier.txt")) 'stockage du contenu de premier.txt dans la variable prem
Get #1, , prem$ 'stockage du contenu de premier.txt dans la variable prem
Close #1