Export données Excel en fichier texte

Vous vous lancez dans le développement de macro Excel ? Lisez ceci !

1° -> c'est Ok, tu as bien découpé en étape simple.
2° -> à faire...
3° -> à faire...
4° -> Ok, c'est fait aussi.

Perso, j'importerai les données excel dans une table (dbase, visual foxpro,access) ensuite je fais le ménage pour garder de ce qui m'intéresse, un petit triet pour finir un export au format texte là où tu veux.

ca devrait remplir la mission..
export dans un fichier la zone selectionnée sous excel sans export des lignes vides..

Sub tmp()

'   Declaration variables

    Dim i, j, nl, nc As Integer

    Dim t As String

 
'   Ouverture fichier

    Open "C:\aaa.bb" For Output As #1

        nc = Selection.Columns.Count

        nl = Selection.Rows.Count

 
'       On boucle sur la selection

        For i = 1 To nl

            t = ""

            For j = 1 To nc

'               ajout de la tabulation comme separateur

                If t <> "" Then t = t & Chr(9)

                t = t & ActiveWindow.RangeSelection.Next(i, j - 1)

            Next j

'           Ecriture de la ligne dans le fichier si non vide

            If t <> "" Then Print #1, t

        Next i

 
'   Fermeture fichier

    Close #1

End Sub

sinon pour que l'utilisateur selectionne un fichier texte d'export, tu peut remplacer le debut par :

'   Declaration variables

    Dim i, j, nl, nc As Integer

    Dim FileName, t As String

 
'   Demande fichier de sauvegarde

    FileName = Application.GetSaveAsFilename(Nom_Fichier, "Text Files (*.txt), *.txt")

 
'   Ouverture fichier

    Open FileName For Output As #1

 
....

bonjour,
merci pour cette fonction qui m'a fait gagner beaucoup de temps!
cependant j'ai un nouveau petit problème.

Je veux utiliser cette fonction sur des données de type :

24 | 21 | 00 | 810-11300 |

je souhaiterai récupérer :
24200081011300
malheureusement j'ai:
2421081011300
je récupere 0 au lieu de 00

merci d'avance por votre aide

RTFM à la page FormatNumber

merci,
malheureusement, je n'arrive pas à implémenter correctement la fonction
FormatNumber pour cette application.
Si quelqu'un pouvait me donner une ligne de code pour eclaicir les choses.

Ps: je ne suis pas un programmeur professionnel.