Bonjour,

Je suis développeur en WINDEV et WEBDEV depuis quelques mois.
Je bute sur un problème bien particulier depuis peu :
    • Dans une procédure, je crée, paramètre et lance un script VBS.
    • Dans WINDEV ça marche, j'ai quand même introduit une temporisation (1 s) entre la création puis fermeture du fichier VBS et le lanceApplicationAssociée qui l'utilise.
    • Dans WEBDEV, ça ne marche pas (j'ai bien sur traité la tempo avec la fonction Multitâche() car Temporisation() n'est pas gérée par WEBDEV.
    • Quand je lance en déboguage, ça marche super (bien sur, ça va lentement).
    • Quand je le lance en execution normale, j'ai une fenêtre de Windows me disant qu'il ne trouve pas le script vbs !? Pourtant il est là !
A tout hasard je laisse un bout de mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
// enfin on modifie le texte du script et on le met dans un fichier vbs qu'on crée pour la circonstance (sera supprimé)
 
scriptvbs = script
scriptvbs = Remplace(scriptvbs,"CHEMINCOMPLET",fichierModèle)
scriptvbs = Remplace(scriptvbs,"BLOCREMPLACEMENT",bloc)
scriptvbs = Remplace(scriptvbs,"CHEMIN",chemin)
scriptvbs = Remplace(scriptvbs,"NOMFICHIERHTM",fichierHtmCréé)
id1 est un entier = fCrée(fichierVbsCréé)
fSauveTexte(fichierVbsCréé,scriptvbs)
 
// on lance le script pour faire le travail :
 
fFerme(id1)
Multitâche(100)
LanceAppliAssociée(fichierVbsCréé)
 
// on récupère le fichier créé par le script dans la zone de saisie HTML :
 
Texte_HTML_Préparation = fChargeTexte(fichierHtmCréé)
Cellule_MailPréparé..Visible = Vrai
 
// on efface les fichiers devenus inutiles :
 
fSupprime(fichierHtmCréé)
fSupprime(fichierVbsCréé)
 
RENVOYER Vrai
Ca coince entre les lignes 13 et 15, sauf en pas à pas.
Je pense que ça vient du fait que Windows s'empare du fichier avant que WEBDEV l'ai laché, ça expliquerait pourquoi ça marche en déboguage au pas à pas par F7, mais c'est un peu simpliste.
Si quelqu'un a une idée,
Merci d'avance