سكرول لعرض سورة البقرة في ورقة إكسل

حمل من هنا

Résuméabuiyad

 سكرايبث لحفظ الأوراق التي تريدها في ملف 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

Résuméabuiyad

أسعار الصرف مباشرة من الأنثرنات 

رابط التحميل من هنا

Résuméabuiyad

 

دالة حساب الضريبة IRG 2020-2022 للاستخدام الجاهز و الحساب التلقائي  (عادي + ذوي الاحتياجات الخاصة)​

من هنا تحميل البرنامج

Résuméabuiyad