Excelのvbaで外部アプリ呼び出しするとユーザーフォームが消える

Question

前提・実現したいこと

お世話になります。
ユーザーフォームを呼び出し、外部アプリ(捺印アプリ)を呼び出して使いたい。

ソースコードのどこに問題があるでしょうか？

発生している問題・エラーメッセージ

パソコン起動したあと、最初の1度目のみに発生します。
2回目以降は大丈夫です。

Private Sub UserForm_Initialize内のrc = Shell(Targetprogram, vbNormalFocus)
で、外部アプリを呼び出すのですが、1度目は何故かここで立ち上がっていないようです。特にエラーメッセージも表示されません。
そこで、
Private Sub UserForm_Activate()
内に、
AppActivate "職印くん32", True
とし、外部アプリをアクティブに指定していますが、立ち上がっていない時は、エラーを返すので、エラー5を返す場合は、立ち上がっていないようなので、再度呼び出して立ち上げます。
If Err.Number = 5 Then
rc = Shell(Targetprogram)

で、ここで呼び出すことができるのですが、その後、ユーザーフォームを操作しようとすると、ユーザーフォームが消えてしまいます。操作するまでは、存在しています。

(一度この該当Excelファイルを閉じて再度立ち上げ直したとしても)パソコンを起動して2回目以降に実行する場合であれば、最初のPrivate Sub UserForm_Initialize内のrc = Shell(Targetprogram, vbNormalFocus)で、外部アプリが立ち上がりその後のユーザーフォームもそのまま使えます。

Err.Number = 5　
```(パソコン起動後、最初の一回目の実行時のみ発生)

該当のソースコード

Private Sub UserForm_Initialize()
On Error GoTo myError
Targetprogram = "C:\Program Files\Hashi's Tools\職印くん32\Shokuin.exe"
rc = Shell(Targetprogram, vbNormalFocus)

DoEvents
If rc = 0 Then
MsgBox "職印くん32の起動に失敗しました。" & vbCrLf & _
"お手数ですが、再度実行して下さい。"
Exit Sub
End If
Exit Sub

myError:
If Err.Number = 53 Then
MsgBox "指定した場所に捺印アプリがみつかりません。" & vbCrLf & _
"UserForm1のUserForm_Initialize内に記述してあるファイルの指定場所(Targetprogram)を変更して下さい。", vbExclamation
Else
MsgBox "エラーが発生しました" & vbCrLf & _
Err.Description, vbExclamation
End If
End
End Sub

### 試したこと



### 補足情報（FW/ツールのバージョンなど）
Excel2013 32ピット、64ビットパソコンのどちらでも発生することを確認
上記2台のPCで試しましたが、再現率100%です。

Answer 1

問題点は大きく2つですよね。
1.そもそも1度目に外部アプリが起動しない（ユーザーフォームは起動する
2.UserForm_Activateで外部アプリ起動後ユーザーフォームが消える
別々で考えた方がいいかもしれません。

Initializeで起動指示したあとプロセスはどうなってますか？
単に時間がかかってるだけそうなら、
AppActivate "職印くん32", True
をInitializeにも入れてみたらどうでしょう。

---

コメント返信のつもりが誤って別回答に・・・すいません。

Comments

[hinoki]

ありがとうございます。

>2.UserForm_Activateで外部アプリ起動後ユーザーフォームが消える
>別々で考えた方がいいかもしれません。

これにヒントを得て考えてみました。
どうも、PC起動後の1発目に呼び出しに失敗する原因は、外部アプリ（職印くん）にあることが分かりました。バグなのかな？
直接、アプリをクリックで起動した時も、PC起動後の最初の1回目は無応答になりました。2回目以降の呼び出しは問題なしでした。
vbaからの呼び出しだろうが、直接アイコンのクリックで呼び出そうが、1回目は呼び出せないようです。

だから、これは呼び出しに失敗した時のエラー処理で再度呼び出せばよいということが分かりました。
UserForm_Initialize内に以下を記載してもよさそうです。

ElseIf Err.Number = 5 Then
rc = Shell(Targetprogram)
DoEvents
AppActivate "職印くん32", True
Err.Clear

こんな感じでよさそうです。

ただし、このエラー処理で外部アプリを呼び出すとユーザーフォームが立ち上がらない問題は解決していません。

UserForm_Activate内のエラー処理5で職印くんを立ち上げるとユーザーフォームをクリック操作しようとすると消えてしまいましたが、UserForm_Initialize内のエラー処理5で職印くんを立ち上げるとユーザーフォームが立ち上がらないことが分かりました。それから考えると、vbaのバグなのか何かが影響しているのでしょうかね？
再度ユーザーフォームを呼び出すような方法で回避するような方法はないでしょうかね？

[radames1000]

UserForm_Initializeでは初回はエラーが出てないんですよね？
であればErr.Numberで判定したら呼び出されないです。
Err.Numberに関わらず実行していいかもしれません。
ユーザーフォームが消える件は他のアプリで試してみるのはいかがでしょう。
問題なければ職印くん側が原因かもしれません。

ユーザーフォーム.Showとかで立ち上がるのかなど色々検証してみてください。

Answer 2

最大化してみてはいかがでしょうか。

Private Sub UserForm_Initialize内のrc = Shell(Targetprogram, vbMaximizedFocus)

Comments

[hinoki]

回答頂き、ありがとうございました。
試してみましたが、変化ありませんでした。1発目のみユーザーフォームが消え、再度実行すると問題なく動作します。なぜでしょう？