Excel Milev

 سكرايبث لحفظ الأوراق التي تريدها في ملف txt

Sub CopySheetToTextFile()

Dim chemin As String
chemin = "F:\X L S\*.txt"
    
    ' Vérifier si le fichier existe déjà
    If Dir(chemin) <> "" Then
        ' Si le fichier existe, le supprimer
        Kill chemin
    End If

Dim ws As Worksheet
    For Each ws In Worksheets
        If ws.Name = "Nabil" Or ws.Name = "Nabil2" Then
            ws.Copy
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".txt", xlTextMSDOS
            ActiveWorkbook.Close False
        End If
    Next
End Sub