WScript run échec - VB/VBA/VBS - Programmation
Marsh Posté le 10-09-2005 à 12:13:40
Hé bien a priori tu ne fournis pas le bon chemin à la fonction WaitForEnd(fichier)....
Il faudrait peut être lui donner Chdir en rajoutant un "\" après BAT et le fichier...
Car là il ne doit pas voir où est le fameux fichier sans le chemin vu que chemin n'a que le nom du fichier et pas le chemin de celui-ci...
Fred
Marsh Posté le 09-09-2005 à 16:36:52
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