Public Function DateDiff(Interval As String, Date1, Date2, Optional FirstDayOfWeek As VbDayOfWeek = vbSunday, Optional FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1) As Variant
Dim nStep As Integer
Dim dLoop As Date
   If StrComp(Interval, "WD", vbTextCompare) Then
       DateDiff = VBA.DateDiff(Interval, Date1, Date2, FirstDayOfWeek, FirstWeekOfYear)
   Else
       nStep = Sgn(Date2 - Date1)
       If nStep Then
           For dLoop = Date1 + nStep To Date2 Step nStep
               If Not IsHoliday(dLoop) Then
                   DateDiff = DateDiff + nStep
               End If
           Next dLoop
       Else
           DateDiff = 0
       End If
   End If
End Function 

//Dans le code du bouton :
// début de la boucle
BOUCLE
             // prend en valeur la date de retour
                    Yannn est un entier=SAI_Retour_prevu
                    
                    DateVersJour(DateDuJour) // Retourne 2
                    //si les deux date sont identique on sort de la procedure
                    SI SAI_Retour_prevu=SAI_Derniere_sortie ALORS
                                               //si la derniere date est un samedi ou dimanche on sort sans rienb faire d'autre
                                                      SI DateVersJour(SAI_Retour_prevu) > 5 ALORS
                                                            //Info ("fin 01")
                                                            SORTIR
                                                      SINON
                                                      //si la derniere date n'est pas un samedi ou dimanche on compte un jour de plus
                                                            SAI_Saisie3=SAI_Saisie3+1
                                                            //Info ("fin 02")
                                                            SORTIR
                                                      FIN
                    
                    SINON
                                                                                       //si la  date est un samedi ou dimanche on change de jour
                                                                                        SI DateVersJour(SAI_Retour_prevu) > 5 ALORS
                                                                                       //compte un jour en moin valide dans le champs
                                                                                       date_moins_un()
                                                                                       SINON
                                                                                       //si la  date n'est pas un samedi ou dimanche on compte un jour de plus                                                                                    
                                                                                        SAI_Saisie3=SAI_Saisie3+1
                                                                                       //compte un jour en moin valide dans le champs
                                                                                       date_moins_un()
                                                                                       FIN
               FIN 
                    
                    FIN

// enfin dans une procedur Local nommée « date_moins_un() »
// Résumé : prend la date dans "SAI_retour_Prevu" en date valide.
PROCEDURE date_moins_un()
dDate  est une Date
dDate = SAI_Retour_prevu
dDate..Jour--
SI DateValide(dDate) ALORS
       SAI_Retour_prevu = dDate
SINON
       SAI_Retour_prevu = DateSys()
FIN

 

PROCEDURE Jours_Ouvrable(Date_Debut,Date_Fin)

x,Nbre_jours sont des entiers

nJours_Ouvrable est un entier = 0

Nbre_jours = DateDifférence(Date_Debut,Date_Fin)
POUR x = 1 A Nbre_jours
  Trace(DateVersJourEnLettre(Date_Debut))
  SI DateVersJourEnLettre(Date_Debut) <> "Samedi" ET DateVersJourEnLettre(Date_Debut) <> "Dimanche" ALORS
    nJours_Ouvrable++ 
  FIN
  Date_Debut..Jour ++ 
FIN

RENVOYER nJours_Ouvrable