XL 2019 Problème d'export fichier xls en txt

nb = Plage.Rows(I).Offset(, Plage.Columns.Count).End(xlToLeft).Column

Cliquez pour agrandir...

LLB29 à dit:

- Fanch55, je n'arrive pas à aller au bout de la macro car j'ai une erreur d'exécution 424 "Objet requis" pour la ligne:
For Each R In UsedRange.Rows

Cliquez pour agrandir...

Sub ExporTxt()
Dim File    As Variant
Dim N       As Long
Dim Fso     As Object 'New FileSystemObject
Dim R       As Range
Dim Target  As Object 'TextStream
Dim Line    As Variant

    File = Application.GetSaveAsFilename(fileFilter:="Text Files,*.txt,Csv Files,*.csv", Title:="Export Text spécial")
    If File <> False Then
        Set Fso = CreateObject("Scripting.FileSystemObject")
            Set Target = Fso.CreateTextFile(File)
            For Each R In Worksheets("Feuil1").UsedRange.Rows
                Select Case R.Cells(1)
                    Case "DOS": N = 8 + 1
                    Case "ECH": N = 9 + 1
                    Case "LID": N = 12 + 1
                    Case "VID": N = 11 + 1
                    Case "ELE": N = R.Parent.Cells(R.Row, R.Columns.Count + 1).End(xlToLeft).Column
                    Case Else: N = 0
                End Select
                If N > 0 Then
                    Line = WorksheetFunction.Transpose(WorksheetFunction.Transpose(R.Cells(1).Resize(, N)))
                    Line = Join(Line, ";")
                    Target.Writeline Line
                End If
            Next
            Target.Close
            Set Target = Nothing
        Set Fso = Nothing
    End If

End Sub

LLB29 à dit:

Job75, le code rajouté à la macro d'origine permet effectivement de supprimer tous les ";" en bout de ligne, mais cela ne permet pas de différencier les structures différentes de chacune des 5 lignes.

Cliquez pour agrandir...

    'création du fichier txt'ou csv
    Chemin = Chemin & ".txt" 'ou ".csv"
    Open Chemin For Output As #1
    Dim x$, y$
    For I = 1 To UBound(Tbl)
        x = Tbl(I)
        For J = Len(x) To 1 Step -1
            If Mid(x, J, 1) <> ";" Then Exit For
        Next J
        y = Left(x, 3)
        Print #1, Left(x, J) + IIf(y = "DOS", ";;;", IIf(y = "ECH", ";;", ""))
    Next I
    Close #1

fanch55 à dit:

Bonsoir,
Sans préciser exactement dans le code ce que vous voulez à l'exportation,
le fichier ne sera pas vraiment identique à l'original.
Testez ce genre de code :

VB:

Sub ExporTxt()
Dim File    As Variant
Dim N       As Long
Dim Fso     As Object 'New FileSystemObject
Dim R       As Range
Dim Target  As Object 'TextStream
Dim Line    As Variant

    Set Fso = CreateObject("Scripting.FileSystemObject")
        File = "D:\........\Exporttxt.txt"
        Set Target = Fso.CreateTextFile(File)
        For Each R In UsedRange.Rows
            Select Case R.Cells(1)
                Case "DOS": N = 8 + 1
                Case "ECH": N = 9 + 1
                Case "LID": N = 12 + 1
                Case "VID": N = 11 + 1
                Case "ELE": N = Cells(R.Row, R.Columns.Count + 1).End(xlToLeft).Column
                Case Else: N = 0
            End Select
            If N > 0 Then
                Line = WorksheetFunction.Transpose(WorksheetFunction.Transpose(R.Cells(1).Resize(, N)))
                Line = Join(Line, ";")
                Target.Writeline Line
            End If
        Next
        Target.Close
        Set Target = Nothing
    Set Fso = Nothing

End Sub

Cliquez pour agrandir...

Mouelhib à dit:

Bonjour, prière de m'aider, je viens de tester votre macro seulement pour moi mon fichier comporte 40 colonnes avec autant de lignes qu'il faut et les colonnes concernent des champs provenant d'un logiciel métier qui a une certaine structure. Merci pour votre aide

Cliquez pour agrandir...

fanch55 à dit:

Bonjour,
Vous avez validé la réponse de @job75 ( bonjour @job75 ), je présume qu'en fait vous utilisez son code.
Je lui laisse le soin de répondre .
J'ai par ailleur examiné le nouveau classeur fourni, il me semble qu'il n'a rien à voir avec la demande ???

Cliquez pour agrandir...

Mouelhib à dit:

mERCI pour votre réactivité, oui en fait je me bloque, j'ai besoin de convertir mon fichier excel que j'ai importé de Sage en fichier texte selon un modèle fourni (j'ai bien testé votre macro sur d'autres classeurs et elle marche seulement pour moi je doit remplacer les vides par des zéros par exemple si le code etablissement est sur 4 "1344" il doit être converti en '0000001344' et ainsi de suite. et merci pour votre aide.

Cliquez pour agrandir...

JHA à dit:

Bonjour à tous,

Ci joint une solution power query dans l'onglet "Données" avec une copie des données en mode tableau de la "feuil1".
Solution avec format de nombre ou par formule dans l'onglet "fichier"

Edit: Désolé @fanch55 , je n'ai pas remarqué que le demandeur avait changé. Dommage, sous power query j'avais réussi à trouver pour les N° en texte à 10 caractères .

JHA

Cliquez pour agrandir...