Bonjour à toutes et tous
et par avance merci pour les eventuelles solutions apportées à mon problème que voici
 
un fichier excel contenant plusieurs onglets est ouvert continuellement toute la semaine
mon VBS est en charge de "nettoyer" les onglets en fonction du jour de la semaine
 
or il se fige quand je le lance en ligne de commande
il fonctionnne correctement quand je double click dessus  
 
???????????
pour info dans mon gestionnaire de taches
    mon fichier excel est ouvert avec EXCEL.exe /e
   lorsque je lance mon vbs
   un deuxieme excel apparait mais ouvert avec svchost /embedding
 
je suis sous window XP et excel 2003
dans l'attente d'une aide  
 
Gremlins41 ...................
help avant que je me transforme......................
 
voici un bout de mon vbs
 
 
Const CheminExcel = "E:\CFT_PLUS\CFT_HABILLAGE\"
Const Source = "E:\CFT_PLUS\CFT_HABILLAGE\"
Const Destin = "E:\ECHANGE\CFT\CFT_PLUS\CFT_HABILLAGE\ARCHIVES\"
Const ChemPGM = "E:\dollaru\aprip1\prod_programme\"
 
 
Set OBJSHELL = WScript.CreateObject("WScript.Shell" )    
Set OBJFILES = CreateObject("Scripting.FileSystemObject" )  
Set Pilotage = WScript.GetObject(CheminExcel + "Pilotage.xls" )
Set Catalogue = Pilotage.Application.WorkSheets("CATALOGUE GENERAL" )
Set Noemie = Pilotage.Application.WorkSheets("NOEMIE" )
Set Aprica = Pilotage.Application.WorkSheets("APRICA" )
           
 
Call Save_Pilotage                          
 
Set OBJFeuille = Catalogue                  
Call NettoyageCatalogue                    
 
'----- Sauvegarde du classeur pilotage
'----------------------------------------    
Sub Save_Pilotage
    SourceCopie = Source & "Pilotage.xls"            
    DestinationCopie = Destin & Year(Date) & "\Cft_Archives_Sem_"  
    DestinationCopie = DestinationCopie & Rajout_Zero(DatePart("ww", Date,2)) & "_" & Year(Date) & ".xls"
   Call CopieFichier(SourceCopie,DestinationCopie)
End Sub
 
'----- Nettoyage de la feuille Catalogue
'----------------------------------------    
Sub NettoyageCatalogue
    Call RecupNbLignes(1,i)
    If i > 1 Then    
       Catalogue.Range("A2:IV" & i).delete
    End If
End Sub

pk tu veux le lancer en ligne de commande ?
 
il se fige ... mets des msgbox partout pour voir ou il plante ...
 
si t'as mis des chemins relatifs, mets des chemins absolus

 
 
 
Bonjour à toi
 
je veux le lancer via un automate donc le vbs est inclus dans un cmd
j'ai déjà mis des msgbox, il se fige dans la subroutine ci-dessous
 
Sub RecupNbLignes(Col_a_Compter, NbLig)
     ColTemp = Col_a_Compter + 50
     OBJFeuille.Cells(1, ColTemp).NumberFormat = "0"
     OBJFeuille.Cells(1, ColTemp).FormulaLocal = "=NBVAL(C(-50))"
     NbLig = OBJFeuille.Cells(1, ColTemp).Value
     OBJFeuille.Cells(1, ColTemp).ClearContents
End Sub
 
dans l'attente

je veux le lancer via un automate donc le vbs est inclus dans un cmd  
j'ai déjà mis des msgbox, il se fige dans la subroutine ci-dessous  
 
c'est pas du language d'informaticien je comprend pas un automate ? mettre dans un cmd ?
 
tu veux dire faire un fichier .bat ?
 
dans tous les cas executer un fichier vbs en cliquant dessus ou en le lancant en execution cela revient au même donc le problème ne vient pas de la ...

 
oui je gere des serveurs de production et je déclenche des traitements via un logiciel d' automatisation
(des commandes AT en plus compliqué pour simplifier)
oui un fichier de commande (cmd) ou un .bat  
 
je suis d'accord que quand on lance le vbs par double click ou et dans un .bat s'est pareil ..... enfin normalement
car là il ne réagit pas pareil  
 
alors moi je ne voie pas ce qui peux merder si tu as une piste .......