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  

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