Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1358 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Acceder en VBS via ligne de cmd à un fichier excel

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Acceder en VBS via ligne de cmd à un fichier excel

n°1386378
gremlins41
Posté le 13-06-2006 à 12:12:12  profilanswer
 

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

mood
Publicité
Posté le 13-06-2006 à 12:12:12  profilanswer
 

n°1388451
satirik
Posté le 15-06-2006 à 20:51:44  profilanswer
 

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

n°1388609
gremlins41
Posté le 16-06-2006 à 08:36:20  profilanswer
 

satirik a écrit :

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

n°1392453
satirik
Posté le 21-06-2006 à 19:43:06  profilanswer
 

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 ...

n°1392659
gremlins41
Posté le 22-06-2006 à 10:53:02  profilanswer
 

satirik a écrit :

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 .......


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Acceder en VBS via ligne de cmd à un fichier excel

 

Sujets relatifs
[Struts bean Tag/Commons-beanUtils] accéder aux élements d'une MapRécupérer puis modifier des infos depuis un fichier texte
[sql/Excel] requête sql vers Excel : problème de saut de ligne ...Upload de fichier (chgm de fichier tmp)
[PHP] Aperçu de fichiers - Extraire données fichier ExcelAccéder à la première page de mon site
[JS] Accéder à une fenêtre déjà ouverte ?[VBA-E] SOS - Ouverture de fichier avec macro
Plus de sujets relatifs à : Acceder en VBS via ligne de cmd à un fichier excel


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR