Autres annulation discussion

[alan5]

annulation de la discussion

 

[sylvanu]

Bonjour Alan,
un essai en PJ avec :

Sub EcritFichier()
    Application.ScreenUpdating = False
    DL = Range("A65500").End(xlUp).Row          ' Dernière ligne
    Nom = ThisWorkbook.Name                     ' Récupération du nom de fichier
    Nom = Mid(Nom, 1, Len(Nom) - 5) & ".txt"    ' Transformation en nom txt
    Chemin = CurDir & "\"                       ' Récupération du chemin
    Open Chemin & Nom For Output As #1          ' Ouverture d'un fichier texte
    For L = 1 To DL                             ' Pour toutes les lignes
        Chaine = ""
        For C = 1 To 6                          ' Et toutes les colonnes
            Chaine = Chaine & ";" & Cells(L, C) ' Concaténation des cellules, séparateur ";"
        Next C
        Print #1, Mid(Chaine, 2)                ' Ecriture de la chaine dans fichier texte
    Next L
    Close #1                                    ' Ecriture fichier texte et fermeture
End Sub

Le fichier générer porte le même nom que le fichier XL et est rangé au même niveau dans le même dossier.

 

[sylvanu]

Merci.