Discussion :

[imaril]

Bonjour,
suite a la résolution d'un autre problème un nouveau vien d'apparaite
voici le code, je vous explique mon probleme juste apres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub B_maj_SB_Click()
Dim reponse As Variant
Dim monfichier As String
MsgBox "Lancement de impromptu"
monfichier = "R:\CMM\Raphael\imp sb.imr"
ShellExecute 0, vbNullString, monfichier, vbNullString, "C:\", 1
reponse = MsgBox("avez vous fais l'extraction impromptu?", 4)
If reponse = vbYes Then
Call maj_sb
Else
MsgBox "faite la et relancez la macro " & vbNewLine & "merci"
End If
End Sub

Voila donc grace a cette macro, je lance mon fichier imp sb.imr mais juste apres la macro continue et revien donc sur excel or il y a des configuration a faire sur l'application qui viens d'etre lancer et je ne peux plus y acceder.
Ma question est : comment faire pour faire une pause dans la macro le temps que l'application soi lancé puis repdnre son exécution quand je quite : imp sb.imr

merci

[ucfoutu]

En premoer examen de ton exposé...
Il me semble que tu devrais tout simplement poser ta question avant l'appel de ShellExecute, ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub B_maj_SB_Click()
  Dim monfichier As String, reponse As String
  monfichier = "d:\essai.txt"
  reponse = MsgBox("avez-vous fait l'extraction impromptu?", 4)
  If reponse = vbNo Then
    MsgBox "faites-la et relancez la macro " & vbNewLine & "merci"
    Exit Sub
  Else
    ShellExecute 0, vbNullString, monfichier, vbNullString, "C:\", 1
    DoEvents
    Call maj_sb
  End If
End sub

A moins que je n'aie mal compris ou que tu n'aies pas tout dit ...

[imaril]

ouaip merci ca marche comme je le veux sauf(mais j'avais mal expliquer) que en fait c'est l'invers de ce que u a mis ^^ c'est quand il m'a pas fais la mise a jours qu'on doi lancer le truc mais bon ^^

merci beaucoup

[ucfoutu]

regarde mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If reponse = vbNo

[imaril]

oui j'a vai ca mais il faut donc déplacer le shell dans la partie then et pas else :p

ps: merci pour les correction d'érreurs :p