Convertir fichier excel en texte

Bonjour,
Pour résoudre mon problème lié à la conversion du fichier Excel en un fichier texte j'ai saisie le code suivant :

Private Const Chemin As String = "C:\Documents and Settings\admin\Bureau\exemple"
Private Type Enregistrement
N° As Integer
Type As String
Code As String
Designation As String
Famille As String
Date_acquisition As String
Date_mise_service As String
Nature_Fiscale As Integer
Nature_Acquisition As Integer
Taux As Double
Prorata As Integer
Valeur_acquisition As Integer
Durée As Integer
Mode_amortissement As Integer
Type_état As Integer
End Type
Option Explicit

Sub fichier_texte()

Dim NumFichier As Integer, Compteur As Long, MyEnr As Enregistrement

NumFichier = FreeFile
Open Chemin & ".txt" For Random As #NumFichier Len = Len(MyEnr)
For Compteur = 3 To Range("data").Rows.Count + 2
With MyEnr
.N° = Cells(Compteur, 1).Values
.Type = Cells(Compteur, 2).Values
.Code = Cells(Compteur, 3).Values
.Designation = Cells(Compteur, 4).Values
.Famille = Cells(Compteur, 5).Values
.Date_acquisition = Cells(Compteur, 6).Values
.Date_mise_service = Cells(Compteur, 7).Value
.Nature_Fiscale = Cells(Compteur, 8).Values
.Nature_Acquisition = Cells(Compteur, 9).Values
.Taux = Cells(Compteur, 10).Values
.Prorata = Cells(Compteur, 11).Values
.Valeur_acquisition = Cells(Compteur, 12).Values
.Durée = Cells(Compteur, 13).Values
.Mode_amortissement = Cells(Compteur, 14).Values
.Type_état = Cells(Compteur, 15).Values
End With
Put #NumFichier, , MyEnr
Next Compteur
Close #NumFichier

ActiveWorkbook.Save
End Sub

il me renvoie l'erreur suivante :
La méthode 'Range' de l'objet '_Global' à échoué

Que faire???????????
Merci