Discussion :

[emjie]

bonjour,

J'ai un evenement clic qui lance une petit programme ".bat" dans access (ce programme lance met à jour une table) cela ouvre une fenetre puis manuellement on ferme la fenetre des que le programme a terminé et une msgbox doit apparaitre ...

Comment en VBA puis-je dire d'attendre la fin du deroulement du ".bat" ou de la fermeture de la fenetre de ce programme qui fera apparaitre ma msgbox ?

Merci

[emjie]

Personne n'a une solution à proposer avp ?

[DMboup]

Tu peux essayer d'utiliser une variable globale que tu initialises, ensuite tu modifie cette variable dans ton programme .bat.

Ainsi après fermeture de la fenetre, tu teste la valeur de ta variable pour afficher ou non le message que tu veux.

[francishop]

Bonsoir,

Il y a : http://access.developpez.com/faq/?pa...og#AttFinTrait
Mais: http://access.developpez.com/faq/?pa...ion#AttFinProc semble mieux convenir.

Cordialement

[emjie]

J'avoue etre perdu. Je ne peux pas modifier le .bat comme vous me l'indiquer.
Concernant le code, il est un peu complexe.
Ou dois-je copier ce code ? notamment la fonction :Private Sub LancerProg(PathFilename As String) Dans le code de mon bouton d'action ? Car ca ne marche pas j'ai une message d'erreur car j'ai une sub+end sub dans la sub de mon bouton et le systeme n'accepte pas.
Dois-je changer "PathFilename" par le chemin d'accés de mon programme ?
si oui j'ai essayé et comme il est sur c:\travail\ la ponctuation ":" et "\" posent probleme dans le code.

Je ne sais pas ou je suis parti mais c'est complexe voici le code de mon bouton (un peu farfelu je l'avoue):

Private Sub bt_majspics_Click()

dateMAJ = Me![TxtDateMax] 'prend la date max du champs du formulaire en cours nommé TxtDateMax
DateDuJour = Date - 1 'permet la comparaison avec la date max du fichier
Num_Jour = Weekday(Date) 'donne le chiffre representant le jour en court
ind = True
DoCmd.RunMacro ("M_exeFTP") 'macro qui execute le programme en .bat

If Num_Jour = 2 And dateMAJ < Date - 3 Then '1-test permettant la comparaison si le jour actuel est lundi avec la date max du fichier
DateDuJour = Date - 4
'MsgBox DateDuJour
If DateDuJour = dateMAJ And ind = True Then '2-test
Rep = MsgBox("La dernière mise à jour du fichier date du " & dateMAJ & ". Souhaitez-vous mettre à jour la table SPICS à la date d'hier ?", vbOKCancel, "MISE A JOUR")
If Rep = vbOK Then '-3 test
DoCmd.RunMacro ("MAJdateMax")
Else 'utilisateur annule sa reponse
MsgBox "L action a été annulée", 64, "MISE A JOUR"
End If 'fin-3
End If 'fin -2
ElseIf DateDuJour > dateMAJ Then 'a-test permettant de lancer la macro de MAJ du fichier fstockev (spics)
Rep = MsgBox("La dernière mise à jour du fichier date du " & dateMAJ & ". Souhaitez-vous mettre à jour la table SPICS à la date d'hier ?", vbOKCancel, "MISE A JOUR")
If Rep = vbOK And DateDuJour >= dateMAJ Then 'b-test sur l'action du bouton OK-annuler
DoCmd.RunMacro ("MAJdateMax")
End If 'fin b-
Else 'la date max. de la table DateMAJfichierSPICS = date du jour
MsgBox "Action impossible: Une mise à jour a déjà eu lieu aujourd'hui", 16, "DB PRICING ERROR"

End If 'fin a&1

End Sub

J'espére que vous pourrez m'aider.