salut à tous
voici un exemple de valeurs contenu dans une feuille excel:
0 230 230 3.458 100 0.001 0.001
je voudrais écrire ces valeurs alignées (à gauche ou à droite peu importe)dans un fichier texte avec séparateur espace.
pour l'instant voila mon code :
Open resultat For Output As #1
'mise en page des donnée pour l'exportation texte(résulyay est le fichier texte)
nbligne = ActiveSheet.UsedRange.Rows.Count
For i = 1 To nbligne
ligne = Range('A' & i) & Rept(' ', 10 - Len(Range('A' & i))) & Range('B' & i) & Rept(' ', 10 - Len(Range('B' & i))) & Range('C' & i) & Rept(' ', 10 - Len(Range('C' & i))) & Range('D' & i) & Rept(' ', 10 - Len(Range('D' & i))) & Range('E' & i) & Rept(' ', 10 - Len(Range('E' & i))) & Range('F' & i) & Rept(' ', 10 - Len(Range('F' & i))) & Range('G' & i)
Print #1, ligne
Next
Close #1
le problème est que rept ne fonctionne pas, est-ce que quelqu'un possède la solution???
merci
voici un exemple de valeurs contenu dans une feuille excel:
0 230 230 3.458 100 0.001 0.001
je voudrais écrire ces valeurs alignées (à gauche ou à droite peu importe)dans un fichier texte avec séparateur espace.
pour l'instant voila mon code :
Open resultat For Output As #1
'mise en page des donnée pour l'exportation texte(résulyay est le fichier texte)
nbligne = ActiveSheet.UsedRange.Rows.Count
For i = 1 To nbligne
ligne = Range('A' & i) & Rept(' ', 10 - Len(Range('A' & i))) & Range('B' & i) & Rept(' ', 10 - Len(Range('B' & i))) & Range('C' & i) & Rept(' ', 10 - Len(Range('C' & i))) & Range('D' & i) & Rept(' ', 10 - Len(Range('D' & i))) & Range('E' & i) & Rept(' ', 10 - Len(Range('E' & i))) & Range('F' & i) & Rept(' ', 10 - Len(Range('F' & i))) & Range('G' & i)
Print #1, ligne
Next
Close #1
le problème est que rept ne fonctionne pas, est-ce que quelqu'un possède la solution???
merci