Discussion :

[l_autodidacte]

Bonjour

Tu as induit ProgElecT(salut) en erreur avec ton message.

En fait le code est utilisé sous Excel(donc en VBA qui "nécessite" le typage des variables).

Tu dois ajouter la référence Microsoft Scripting Runtime(fichier Scrrun.dll) accessible dans la fenêtre de l'éditeur par le menu Outils / Références...

Maintenant, pour le fichier .xls en cours, on peut essayer(sans avoir besoin de FileSystemObject) avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub recupere_le_fichier()
 
 Dim Recup As String
 
 Open ActiveWorkbook.FullName For Binary Access Read As #1
 Open "C:\Resultat.xls" For Binary Access Write As #2
 Do While Not EOF(1)
    Recup = Input(1, #1)
    Put #2, , Recup
 
 Loop
 Close #1
 Close #2
End Sub

[Sun2k]

Merci ça fonctionne