Quelque chose comme ca : ?
Dim StrContenue As String
Open "CheminFichierBinary" For Binary As #1 StrContenue = String$(LOF(1), vbNullChar) Get #1, , StrContenue Close #1
Open "CheminFichierString" For Output As #1 Print #1, StrContenue Close #1
kakenette
|