export donnee excel en fichier texte

Version imprimable

30/05/2008, 17h49
Mimosa777

export donnee excel en fichier texte

Salut a tous,

j'essaie de produire un fichier texte a partir des données que j'ai dans une feuille excel. J'arrive sans probleme a creer ce fichier texte et recuperer les données. Mon probleme est au niveau du format de recupération des données excel.

Voila un apercu de ma feuille excel :
USNOVRC0 1.1422 1
USDECRC0 1.1654 1
USJANRC0 1.177 1

et j'aimerais générer un fichier texte ayant une accolade "{" comme delimitateur du genre :
USNOVRC0{1.1422{1
USDECRC0{1.1654{1
USJANRC0{1.177{1

Pouvez vous m'aider svp ??

Merci d'avance.:oops:;)

Je n'ai pas à comprendre tes raisons ;) mais si tu veux faire ça, alors tu devras réaliser ton txt cellule par cellule

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub FichierTxtEcrire()
Dim i, j, DernièreLigne, DernièreColonne, f As Worksheet
Set f = ActiveSheet
    derniereligne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DerniereColonne = f.Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Open "D:\txt\LeFichier.txt" For Output As #1
    For i = 1 To derniereligne
        For j = 1 To DerniereColonne - 1
            Print #1, f.Cells(i, j).Formula + "{";
        Next j
        Print #1, f.Cells(i, j + 1).Formula
    Next i
    Close #1
End Sub

30/05/2008, 19h15
Mimosa777

Merci enormement pour ton aide. c'est impec.

Mon besoin est de pouvoir reprendre ce fichier texte afin de l'importer dans un systeme interne ici ou je travaille. Celui-ci gere uniquement des fichiers ASCII avec l'accolade comme separateur. C'est un systeme de processus budgetaire

Merci encore :king: