eryk17
Messages postés138Date d'inscriptionlundi 27 mai 2002StatutMembreDernière intervention29 mai 2006 17 déc. 2004 à 23:56
merci
ça m'as aidé mais je voudrai savoir s'il était possible d'utiliser la fonction sleep en vba outlook
si oui comment car je n'est pas reussi a le faire j'ai essayé ontime mais il ne le reconai pas non plus.
SInon comment mettre du vbs dans du vba ? si c'est possible
sem68
Messages postés10Date d'inscriptionmardi 24 août 2004StatutMembreDernière intervention21 décembre 2004 20 déc. 2004 à 08:35
Salut
Pour la fonction sleep, le plus simple est de te la fabriquer:
Sub attente()
Dim sStartTime As Single
Dim sTempsAttente As Single
sTempsAttente = 10
MsgBox "Début d'attente 10S !"
sStartTime = Timer
Do While Timer < sStartTime + sTempsAttente
DoEvents
' DoEvents passe la main au système
'd'exploitation
Loop
MsgBox "Attente terminée"
End Sub
Pour ce qui est de mettre du vbs dans vba, la demande est curieuse, pourquoi ne pas tout écrire en vba directement?
Serge
Vous n’avez pas trouvé la réponse que vous recherchez ?
eryk17
Messages postés138Date d'inscriptionlundi 27 mai 2002StatutMembreDernière intervention29 mai 2006 20 déc. 2004 à 09:05
le fait de mettre du vbs dans du vba me permet d'utiliser le batch en passant par le vbs ce qui n'est pas possible en vba je crois.
puisque lorsque je crée des objet en vba de type :
Set WshShell = WScript.CreateObject("WScript.Shell")
il ne le reconnait pas.
sem68
Messages postés10Date d'inscriptionmardi 24 août 2004StatutMembreDernière intervention21 décembre 2004 20 déc. 2004 à 15:20
reSalut
Tout ça me parait bien compliqué. A ta place je réfléchirais pour optimiser cette construction. (1 seul fichier vba, plus de batch si possible..)
Je ne crois pas que lancer un bat depuis vba pose pb.
shell "d:\today\0412\imprimer.bat", vbNormalFocus
Ton pb vient peut être de l'écriture de ton bat.
Met la commande "pause" après chaque ligne pour voir où l'exécution s'arrête. Si tu chaines des bat utilises la commande "start" pour lancer tes commandes (ou peut être call).