Répondre automatiquement à un MsgBox

Question

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

cs_JMO · Answer

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

cs_JMO · Answer

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

Répondre automatiquement à un MsgBox

2 réponses

Discussions similaires