Répondre automatiquement à un MsgBox

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 26 août 2002 à 17:42
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 27 août 2002 à 14:36
Bonsoir,

J'ai parcouru le Forum, mais je n'ai pas trouvé mon bonheur.

Après avoir copié x fichiers d'un répertoire, je fais apparaitre une MsgBox via ShowFolderList. Si personne ne répond au message, j'aimerais effacer cette grille au bout de x minutes (c-à-d. cliquer sur le OK).

Si quelqu'un peux m'aider !!!! D'avance merci....
jean-marc

Ci-dessous l'ébauche de mon code. Attention, je fais du VBScript car je n'ai pas VB sur ma bécane.
Sur le forum, j'ai une autre question concernant l'équivalence du progressbar de VB en VBScript.

' Création des fichiers *.doc (sauf Consigne.doc
' à partir du répertoire "c:\Modèles\ vers le
' répertoire "c:\Rapports......" en fonction de
' la date du jour. Les fichiers créés sont
' préfixés par "jj_mm_aaaa_"
' Cette procédure (script VBS) est associée
' au Planificateur de tâches
'
Dim jour, aa, mm, jjmmaa
Dim wSrce, wDest1, wDest2, wDest3, wDest4, wDest5
Dim fso, dossier, fichier, fichiers, newname, Path, strListe

wSrce = "c:\EuroFactor-Modèles"
wDest1 = "c:\Rapports 01 Lundi à Mardi"
wDest2 = "c:\Rapports 02 Mardi à Mercredi"
wDest3 = "c:\Rapports 03 Mercredi à Jeudi"
wDest4 = "c:\Rapports 04 Jeudi à Vendredi"
wDest5 = "c:\Rapports 05 Vendredi à Samedi"
jour = DatePart("w", Date)
aa = DatePart("yyyy", Date)
mm = month(now)
If Len(mm) = 1 Then
mm = "0" & mm
End If
jjmmaa = Left(Date,2) & "_" & mm & "_" & aa

Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(wSrce)
Set fichiers = Dossier.files

For Each fichier in fichiers
If fichier.name <> "Consigne.doc" Then
Newname = jjmmaa & "_" & fichier.name
nbre = nbre + 1
strListe = strListe & vbcrlf & Newname
Select Case jour
Case 2 'Lundi
fso.CopyFile fichier, wDest1 & Newname
Path = wDest1
Case 3 'Mardi
fso.CopyFile fichier, wDest2 & Newname
Path = wDest2
Case 4 'Mercredi
fso.CopyFile fichier, wDest3 & Newname
Path = wDest3
Case 5 'Jeudi
fso.CopyFile fichier, wDest4 & Newname
Path = wDest4
Case 6 'Vendredi
fso.CopyFile fichier, wDest5 & Newname
Path = wDest5
Case Else MsgBox "Procédure interdite aujourd'hui"
WScript.Quit
End Select
End If
Next

'Vérification des fichiers copiés
MsgBox ShowFolderList(Path),vbmessage,"Vérification du répertoire : " & Path
Function ShowFolderList(strPath)
ShowFolderList = strListe & vbcrlf & vbcrlf & "Nombre de fichiers: " & nbre
End Function

2 réponses

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
27 août 2002 à 14:35
J'ai trouvé la solution en utilisant l'option WshShell.Popup dans laquelle on peut fermer automatiquement la fenêtre au bout de x secondes
0
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
27 août 2002 à 14:36
J'ai trouvé la solution en utilisant l'option WshShell.Popup dans laquelle on peut fermer automatiquement la fenêtre au bout de x secondes
0
Rejoignez-nous