besoin d'un coup de main !

[libussa]

bonjour à tous,
je cherche à réaliser la macro suivante :
j'ai un fichier excel, et je cherche à exporter chaque ligne vers un fichier texte. Dans l'idéal, je voudrais exporter chaque ligne dans un dossier différent, avec à chaque fois le même nom pour le fichier texte. Chaque valeur serait séparée par un espace.

Merci beaucoup d'avance pour votre aide !

 

[RENAUDER]

Re : besoin d'un coup de main !

Bonjour,
Ce n'est pas possible de garder le même nom pour le fichier texte.
A chaque export de ligne, il faut in nom de fichier différent.
Pour le reste c'est possible.
J'y réfléchis

 

[RENAUDER]

Re : besoin d'un coup de main !

Bonjour,

Voici un exemple

Sub Test()
    Range("A1").CurrentRegion.Select
    NbColonnes = Selection.Columns.Count
    NbLignes = Selection.Rows.Count
    For i = 1 To NbLignes
        For j = 1 To NbColonnes
            Donnees = Donnees & vbTab & Cells(i, j).Value
        Next j
        Open "c:\excel\Export-" & i & ".txt" For Output As #1
        Print #1, Mid(Donnees, 2, Len(Donnees) - 1)
        Close #1
        Donnees = ""
    Next i
End Sub

 

[libussa]

Re : besoin d'un coup de main !

bonjour,
j'ai bien réussi à faire ce que je voulais (en fait je voulais exporter le même fichier texte, mais dans un répertoire différent, numéroté)

seulement j'ai un autre soucis : dans mes fichiers textes, le séparateur décimal est une virgule, alors que mon Excel est réglé avec des points...Et je dois absolument avoir des points dans mes fichiers de sortie...

merci d'avance !

 

[RENAUDER]

Re : besoin d'un coup de main !

Bonjour,
Comme toi j'ai le point dans Excel comme séparateur et j'exporte bien le point dans le fichier texte.
As tu un fichier source à me fournir pour que je teste ?

 

[libussa]

Re : besoin d'un coup de main !

voilà mon fichier exemple