Bonjour à tous,
j'ai le problème suivant : je lance des batch par des fichiers .BAT en utilisant WScript pour attendre la fin de l'exécution du fichier avant de passer à la suite.
D'habitude cela fonctionne sans problème mais depuis que j'ai mis le fichier sur le réseau et que je l'ai "fait grossir", le programme plante à la ligne Code:
wsh.Run(Chr(34) & fichier & Chr(34), 1, True)
en m'indiquant "la méthode Run de l'objet IWshShell3 a échoué".
Je n'arrive pas à voir d'où cela vient.
Merci d'avance pour vos idées
Voici la partie du code concernée, qui est en début de programme : Code:
Public Sub LancerSmile()
Dim i As Integer
Dim fichier As String
Dim Dossier As Striing
fichier = "VEGA_Smile1.BAT"
Lancement_Bat (fichier)...
end sub
_____________________________________________________________
Public Sub Lancement_Bat(f As String)
Dim chemin As String
ChDir ("N:\saad\Stock\BAT" )
chemin = f
WaitForEnd chemin
Range("A1" ).Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
_____________________________________________________________
Public Function WaitForEnd(fichier) As Long
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell" )
DoEvents
WaitForEnd = wsh.Run(Chr(34) & fichier & Chr(34), 1, True)
Set wsh = Nothing
End Function
