Exportation des donné Excel vers un fichier txt

bonjour tout le monde, je suis nouveau dans vos groupe et je suis vraiment besoin de votre aide, concernant une macro qui exporte des données d'une colonne vers un fichier texte.

chaque données d'une cellule vers un ligne,et nous doit respectons l'espaces.

et j'ai réussie de créer cette macro mes le problème que le système ne valid pas les donnés de ce fichier il me écrire "erreur syntaxique dans le ligne 2" , par contre quand je créer et saisir les données manuellement le système valide les données

voici la macro qui j'ai créer:

et je vous remerciant d'avance.

Dim Chemin As String

Dim DerniereLigne As Long 'Index de la dernière ligne

Dim Tableau() As Variant

Dim Ligne As Long

Chemin = "C:\DAS\"

DerniereLigne = Sheets("DAS-1").Range("A1").SpecialCells(xlCellTypeLastCell).Row

'Création du tableau par une boucle

Ligne = 1

Do While Ligne <= DerniereLigne

'Ajout 1 élément à l'array en conservant les éléments précédents

ReDim Preserve Tableau(Ligne)

'Affectation de la valeur au nouvel élément

Tableau(Ligne) = Sheets("DAS-1").Range("A" & Ligne).Value

Ligne = Ligne + 1

Loop

'Ecrit dans le fichier txt

Ligne = 1

Do While Ligne <= DerniereLigne

Open Chemin & "\" & Sheets("DAS-1").Range("Q1") & ".TXT" For Append As #Ligne

Print #Ligne, Tableau(Ligne) & vbCr

Close

Ligne = Ligne + 2

Loop

Bonjour,

A tester :

Sub Test()

    Dim Chemin As String
    Dim DerniereLigne As Long 'Index de la dernière ligne
    Dim Ligne As Long

    Chemin = "C:\DAS\"

    DerniereLigne = Sheets("DAS-1").Range("A1").SpecialCells(xlCellTypeLastCell).Row

    Open Chemin & Sheets("DAS-1").Range("Q1") & ".TXT" For Output As #1

        Do While Ligne <= DerniereLigne

            Ligne = Ligne + 1
            Print #1, Sheets("DAS-1").Range("A" & Ligne).Value & vbCrLf '<--- vbCrLf insère une ligne vide entre les données

        Loop

    Close #1

End Sub

merci beaucoup de votre aide, mais ça fonctionne pas car je ne veux pas une ligne entre les données dans le fichier texte

et je veux que exporte par exemple la cellule a1 et la cellule a3 et la cellule a5...ect

vous trouvez mon fichier excel "base de donner " avec le fichier texte " résultat que je veux"

Sub DAS()

Dim Chemin As String

Dim DerniereLigne As Long 'Index de la dernière ligne

Dim Ligne As Long

Chemin = "C:\DAS\"

DerniereLigne = Sheets("DAS-1").Range("A1").SpecialCells(xlCellTypeLastCell).Row

Open Chemin & Sheets("DAS-1").Range("Q1") & ".TXT" For Output As #1

Do While Ligne <= DerniereLigne

Ligne = Ligne + 1

Print #1, Sheets("DAS-1").Range("A" & Ligne).Value & vbCr '<--- vbCrLf

Ligne = Ligne + 1

Loop

Close #1

End Sub

Bonjour,

A tester :

Sub Test()

    Dim Chemin As String
    Dim DerniereLigne As Long 'Index de la dernière ligne
    Dim Ligne As Long

    Chemin = "C:\DAS\"

    DerniereLigne = Sheets("DAS-1").Range("A1").SpecialCells(xlCellTypeLastCell).Row

    Open Chemin & Sheets("DAS-1").Range("Q1") & ".TXT" For Output As #1

        Do While Ligne <= DerniereLigne

            Ligne = Ligne + 1

            If Sheets("DAS-1").Range("A" & Ligne).EntireRow.Hidden = False Then
                Print #1, Sheets("DAS-1").Range("A" & Ligne).Value
            End If

        Loop

    Close #1

End Sub

merci beaucoup Theze, mais malheureusement le système n'a pas reconnue le format des fichiers texte et quand je saisie les fichiers texte manuellement il valide les données , vous trouvez jointe les détails des erreurs

je te souhaite une très belle journée.

Theze vous me sauver la vie, le fichier reconnue par le système , je te remercie beaucoup

Re,

c'était dû à quoi cette erreur syntaxique ?

l'erreur syntaxique apparemment est des lignes supplémentaires vide dans le fichier texte, car la macro attrape meme les cellule qui ont des formules,la colonne A composé de 30 formules, chaque formules dans une cellule des donnée d'un employé, la formule est =si(BASE DE DONNER!A1="";"";BASE DE DONNER!A1) puisque j'avez seulement 2 employé, le fichier texte ajoute 28 ligne vide.

j'avais essayé une autre fois, et j'avais éliminé toutes les ligne supplémentaire et le système reconnue mes donnée.

je suis très content et j'espère quelqu'un vous sauver la vie comme tu a sauvé la mienn.