Private Const RepDeBase$ = "R:\DEVIS\SUIVI COMMANDES ET DEVIS"
Private Const FichierBat$ = "TestMiguelV3.bat"
Sub Facturation()
Dim Dossier As Object
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(RepDeBase)
Application.ScreenUpdating = False: Application.EnableEvents = False: Application.Calculation = xlCalculationManual
LoadSuiteDossier Dossier
Application.ScreenUpdating = True: Application.EnableEvents = True: Application.Calculation = xlCalculationAutomatic
Set Dossier = Nothing
ChDir ThisWorkbook.Path
End Sub
Private Sub LoadSuiteDossier(ByRef Rep) 'appel récursif
On Error GoTo Suite
If Dir(Rep & "\" & FichierBat$) > "" Then ExecuteFichBath Rep, FichierBat$
For Each SousRep In Rep.SubFolders
If (SousRep.Attributes And 1024) = 0 Then LoadSuiteDossier SousRep
Next
Suite:
End Sub
Sub ExecuteFichBath(Rep, FichierBat$)
'MsgBox "appel pour exécuter:> " & Rep & "\" & FichierBat$
ChDir Rep: Shell FichierBat$
End Sub