Erreur automation script vbs

Bonjour,

J'ai un problème lié au lancement d'une macro Excel 2013 via un script VBS.
Je ne pense pas que le problème vienne de la macro en elle même ni même du script vbs mais plutot d'un lien entre l'OS (windows 8) et Excel 2013. Je vous explique pourquoi.

Pour mon boulot, j'ai développé plusieurs macros dans des fichiers Excel (Excel 2013 et mon PC est sous 7). Ces macros sont lancées automatiquement à heure fixe via le planificateur des taches qui lance des scripts VBS qui eux même appellent les fameux fichiers Excel avec leurs macros. Tout fonctionnait très bien quand c'était lancé sur mon PC. Je n'avais jamais d'erreur (sauf info manquante sur le réseau ou sur la base mysql). Mes macros vont ouvrir des fichiers Excel, prendre des info dedans, les refermer, ouvrir d'autres fichiers Excel, copier des info dedans, faire des requetes dans une base mysql, printer les résultats dans l'Excel principale etc. Bref, c'est varié.

Depuis 2 semaines, nous avons décidé que ce serait le serveur (que nous venons de changer) qui allait lancer ces macro. Le serveur est sous Windows 8, Excel est toujours sous 2013. Dans les macros que j'ai développées, j'ai mis une détection d'erreur qui m'envoi un mail avec la description de l'erreur et le numéro de l'erreur s'il y a une erreur. De facon aléatoire, les scripts vbs lancés automatiquement me renvoi ce genre d'erreur:

Erreur Automation 2147417848
L’objet invoqué s’est déconnecté de ses clients.

A noter que si je lance les macro à la main en me connectant sur le serveur (j'ouvre l'excel et je lance les macro), je n'ai pas cette erreur et elles tournent très bien.

A noter aussi qu'il n'y a que sur un fichier Excel en particulier que ça foire. Sur tous les autres cela fonctionne très bien. Évidement, c'est sur le plus gros fichier qui fait le plus de choses!

Si vous avez deja rencontré ce probleme ou si vous avez des idées, je suis preneur, j'ai cherché sur internet mais n'ai pas trouvé la solution a mon probleme car a chaque fois les erreurs apparaissent quand les gens lancent leurs macro a la main. Moi je ne reproduis que lorsque c'est lancé par script VBS mais jamais quand je les lance a la main.

Merci beaucoup!!

Bonjour,

je l'ai vu aussi en "pilotage", cette erreur survient par exemple lorsqu'une variable objet pointe sur rien …

Exemple idiot mais explicite : une variable objet est défini sur un classeur ouvert, ce dernier est fermé
puis de nouveau la variable objet est utilisée dans le code -> erreur !

Donc effectuer une gestion d'erreur pour tracer la ligne incohérente …

ok merci pour l'aide je vais essayer de regarder ca.

Petite question, on peut avoir dans les messages d'erreur la ligne ou l'erreur est apparu?

Merci,

bonjour,
si j'ai bien compris, tu ouvre un fichier excel; tu exécute une macro vba; te referme le fichier excel; le tout via un scripte vbs lancé par le gestionnaire de tache planifiées?

ton planificateur de tache exécute ton vbs avec session ouverte ou fermé.

ton fichier excel utilise le mappage Windows pour ouvrir et/ou sauvegarder des fichiers (exemple z:\)?

car je te le rappel ou t'informe que le mappage est inexistant sur des tache planifier hors session!

dans ce cas il faut utiliser l'adresse ip dans vbscript et dans tes macro excel!

ceci est valable également pour ta connexion à MySql.

si tu exécute ton vbs sur le serveur en double cliquant sur le fichier vbs comme un fichier bat ça fonctionne?

Bonjour rdurupt,

Oui tu as bien compris.

Citation:

---

ton planificateur de tache exécute ton vbs avec session ouverte ou fermé.

---

==> session ouverte mais locké. Cela fonctionnait aussi sur mon PC (session locké par moi meme le soir en partant).

Citation:

---

ton fichier excel utilise le mappage Windows pour ouvrir et/ou sauvegarder des fichiers (exemple z:\)?

---

==> oui. Mais comme dit juste au dessus, cela fonctionnait bien sur mon PC.

Citation:

---

ceci est valable également pour ta connexion à MySql.

---

==> la j'utilise l'IP.

Citation:

---

si tu exécute ton vbs sur le serveur en double cliquant sur le fichier vbs comme un fichier bat ça fonctionne?

---

==> Si je le lance en double cliquant dessus, j'ai aussi les erreurs mais pas a chaque fois. Ca a l'air aléatoire...!

Merci!

Ce que je ne comprends pas c'est que ça marche très bien si c'est lancé à la main et non pas par vbs...!
Cela peut etre du a une différence de prise en charge des vbs par windows 8 par rapport a windows 7?

Code:

---

C:\WINDOWS\SysWOW64\Cscript.exe %1

---

Code:

---

c:\monRep\Cscript.Bat MonRep\MonScript.vbs

---

je ne suis pas sur d'avoir très bien compris.

Il faut que je crée un fichier .bar avec dedans C:\WINDOWS\SysWOW64\Cscript.exe %1
et ensuite dans le planificateur des taches, je mets le nom que tu m'as donnée en dessous?

Dans l'onglet actions de mon planificateur des taches, dans l'onglet actions, j'ai fait comme cela:
Démarrer un programme.
Dans les paramètres, j'ai mis:

Code:

---

1 2	\\nomduserveur\"mon chemin entier" \Ratioscript.vbs

---

Ou faut il que je mette "c:\monRep\Cscript.Bat MonRep\MonScript.vbs" ?
C'est a dire:

Code:

---

1 2	\\nomduserveur\"mon_chemin_entier"\Cscript.Bat "mon_chemin_entier"\Ratioscript.vbs

---

merci beaucoup!

mes commentaires ou leurs absences font cruellement défaut je le reconnais!

par défaut Windows 64 bits exécute le vbs en 32 bits.

le fichier bat à pour objet de forcer l'exécution du vbs en 64 bits! j'a déjà rencontré ce problème, pour ton cas sans garantie j'avais trouvé par tâtonnement!

Bon j'ai tenté de faire ca dans le planificateur des taches:

Code:

---

\\nomduserveur\"mon_chemin_entier"\Cscript.Bat \\nomduserveur\"mon_chemin_entier"\Ratioscript.vbs

---

mais c'est sans succès, Excel cesse de fonctionner maintenant et je reçois la même erreur par mail! Ca avait l'air bien comme solution pourtant, peut être mal exécuté?

D'une certaine manière nous avons une applicaton sur 3 niveaux!
1: le fichier excel
2: le vbs
3: le planificateur

tu me dis et j'ai pas de raison de douter que ton fichier xls fonctionne.

Regardons le vbs:

dans le fichier bat replace le %1 par le chemin et le nom de ton vbs puis double click sur le bat!

On regarera le reste après

J'ai fait ce que tu m'as dit. J'ai la meme erreur qu'avant (donc en double cliquant sur le .bat).
J'ai mis le .bat et le fichier Excel sur le serveur, peut etre que ca peut venir de la?

Je ne pens pas.
Mais temps que le vbs ne passe pas!

Ce qui me chagrine c'est que selon toute vraisenblance tu execute bien excel du vbs et l'erreur arrive a la connexion mysql.
Je continu a chercher même si pour l'instant je sèche!

le VBS se lance bien, c'est l'Excel ensuite qui déconne.
D'autres scripts se lancent pourtant bien depuis le serveur. C'est concentré sur un seul fichier Excel (qui est évidement le plus gros et qui fait le plus de choses!!)

Bizarre bizarre, j'ai un autre script qui ne lance qu'une partie de mes macro de mon gros fichier (en gros c'est un mode allégé pour ne lancer que quelques calculs dans la journée) qui a tourné sans probleme ce matin... Le gros a raté hier soir évidement!

Bon, apres quelques jours de galères, j'ai remis les scripts sur mon PC et oh misère, ils ne fonctionnent pas non plus depuis mon PC! J'ai investigué un peu a coup de msgbox pour voir a quel moment venait l'erreur et mon Excel crash sur la ligne suivante:

Code:

---

1 2 3 4 5 6 7

'Fill the array and get the position of the different values of interest Positions = Range(Range("data0" & iCountDate).Offset(1, 0), Range("data0" & iCountDate).Offset(1, 0).End(xlToRight)).Value 'MsgBox "TEST" iIs_Synthetic = Application.Match("Is_Synthetic", Positions, False) 'le crash vient sur cette ligne!!

---

En fait, j'ai une requete sql que je print dans une feuille de mon classeur. La dite requete a une colonne qui s'appelle "Is_Synthetic" (et d'autres aussi). Je me sers de Application.match pour trouver la position des différentes colonnes si jamais je change ma requete SQL et que l'ordre des colonne bouge normalement j'ai toujours le numéro de la colonne dans iIs_Synthetic. Mes variables sont définies comme tel:

Code:

---

1 2 3

Dim Is_SyntheticAs Integer Dim Positions()

---

Je pense que c'est la déclaration de Positions() qui n'est pas bonne et a laquelle il faudrait que je rajoute le type. J'ai essayer avec Range mais ca me met incompatibilité de type. J'ai essayer avec Variant mais ca me donne le meme probleme qu'avant (automation).

Quelqu'un aurais une idée de comment je dois définir ma variable?

Je rappelle que ca fonctionne bien quand je lance a la main mais que cela ne fonctionne pas quand je lance par VB scripts!

Merci beaucoup!

Ben voilà ! Pour pas que cela "crashe", la variable iIs_Synthetic doit être de type Variant !

Ensuite la tester après son affectation avec la fonction IsError …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour Marc,

J'ai du coup changé Dim iIs_Synthetic as Variant
Mais ca crash toujours!
Ca crash toujours sur la meme ligne!

Je n'ai par contre pas compris ce que tu sous entendais par la tester avec iIError après son affectation?

Merci!

Après l'affectation de la variable, il faut vérifier si elle est en erreur ou pas
car la fonction de feuilles de calculs EQUIV renvoie une erreur quand elle ne trouve pas de correspondance !

Exemple dans la procédure Demo1 de cette discussion …

Edit : c'est la variable iIs_Synthetic qui doit être déclarée Variant !

Bon alors j'ai rusé un peu et fait une boucle for sur la ligne qui m'interesse plutot que d'utiliser l'application.match!

Par contre,j'ai l'impression que chaque fonction "Application." donne ce genre d'erreur quand on les lance via un vbs... J'ai a un autre endroit Application.Worksheetfunction.max qui me donne aussi ce genre d'erreur...!

Ca m'ennuie parce que j'ai utilisé cette fonction dans plusieurs macro et d'autres fonctions Application d'ailleurs! Peut etre me manque t il une librairie?

Merci beaucoup pour votre aide j'ai deja bien avancé!

Bonjour,

Je pense que j'ai trouvé la solution... J'ai remis le script sur mon PC, la il ne fonctionnait pas non plus.

j'ai regardé au niveau des références d'Excel et les ai comparées avec les références de fichiers qui avaient été créés quand ça marchait. Ce n'était plus les memes. J'ai donc remis les références des fichiers précédents qui avaient été généré sans probleme et depuis tada! Ca fonctionne!

Merci pour votre aide en tous cas!