Macro pour avoir un fichier texte

Bonjour et Bonne année 2018 à tous,

je suis débutant dans les macros, en fait j'ai fichier excel contenant dans une colonne des numeros (plus de 400.000) que je voudrai utiliser pour faire un update via sql developper.

en fait je voudrai une astuce qui me renvoie en sortie un fichier texte

colonne1

0001

0002

0003

0004

resultat voulu '0001', '0002', '0003', '0004',

Bonjour,

Une piste à adapter :

Sub Ecrire()

    Dim Plage As Range
    Dim Chemin As String
    Dim Fichier As String
    Dim Chaine As String
    Dim I As Long

    'défini la plage sur la colonne A de la feuille active à partir de A1
    With ActiveSheet: Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    'dans le même dossier que le classeur
    Chemin = ThisWorkbook.Path & "\"

    'adapter le nom du fichier !
    Fichier = "Texte.txt"

    For I = 1 To Plage.Count

        If Chaine = "" Then
            Chaine = "'" & Plage(I).Value & "'," 'début de chaine
        Else
            Chaine = Chaine & " '" & Plage(I).Value & "',"
        End If

    Next I

    'supprime la dernière virgule
    Chaine = Left(Chaine, Len(Chaine) - 1)

    Open Chemin & Fichier For Output As #1

        Print #1, Chaine

    Close #1

End Sub

Bonjour, et merci pour ton aide.

c'est cool.