salut,
j'aimerais créer un fichier texte à partir d'un fichier Excel : j'ai écrit ce code
Private Const Chemin As String = "C:\Documents and Settings\admin\Bureau\exempl"
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
End Sub
mais on me renvoie l'erreur suivante:
la méthode 'Range de l'objet '_global' à échoué
Si vous plait je ne sais plus quoi faire??????????
