Focus on opened Filename before Dialog Box

[Drofidnas]

Hi

I have the following macro which opens an external file.
I want the user to be able to edit it and save it and then in the parent Excel file again be given the choice to re-import those changes.

As it stands, the file opens but I get the dialog up first before focusing on the opened file. How can I force the focus or delay the dialog box?

Thanks for any help

Chris

Sub Open_Nat_Dem_331()

On Error Resume Next

Application.ScreenUpdating = False
Application.DisplayAlerts = False

'Define Source Workbook
DMRLSource = "\Nat Dem 331 01-05-14.xlsx"
SheetSource = "Template"

'Open Source Workbook and correct tab
Workbooks.Open Filename:=DMRLSource
Workbooks(DMRLSetup).Activate
Sheets(SheetSource).Select

Ans = MsgBox("Do you want to re-import the DMRL data for " & DMRLSource & "?", vbQuestion + vbYesNo)

Select Case Ans
  Case vbYes
  Call Data_Import_Nat_Dem_331
  Case vbNo
  Exit Sub
End Select

End Sub

 

[AlphaFrog]

One possibility; instead of using a MsgBox is to use a UserForm with a Label and two command buttons (Yes and No). The UserForm remains visible and allows the user to edit the worksheet. When done editing, they click Yes or No.

[COLOR=darkblue]Sub[/COLOR] Open_Nat_Dem_331()

[COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]Resume[/COLOR] [COLOR=darkblue]Next[/COLOR]

Application.ScreenUpdating = [COLOR=darkblue]False[/COLOR]
Application.DisplayAlerts = [COLOR=darkblue]False[/COLOR]

[COLOR=green]'Define Source Workbook[/COLOR]
DMRLSource = "\Nat Dem 331 01-05-14.xlsx"
SheetSource = "Template"

[COLOR=green]'Open Source Workbook and correct tab[/COLOR]
Workbooks.Open Filename:=DMRLSource
Workbooks(DMRLSetup).Activate
Sheets(SheetSource).Select
 
[COLOR=#ff0000]UserForm1.Show vbModeless[/COLOR]

[COLOR=green]'Ans = MsgBox("Do you want to re-import the DMRL data for " & DMRLSource & "?", vbQuestion + vbYesNo)[/COLOR]
[COLOR=green]'[/COLOR]
[COLOR=green]'Select Case Ans[/COLOR]
[COLOR=green]'  Case vbYes[/COLOR]
[COLOR=green]'  Call Data_Import_Nat_Dem_331[/COLOR]
[COLOR=green]'  Case vbNo[/COLOR]
[COLOR=green]'  Exit Sub[/COLOR]
[COLOR=green]'End Select[/COLOR]

End [COLOR=darkblue]Sub[/COLOR]

UserForm1 code module.

[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] CommandButton1_Click()
    [COLOR=green]'Yes[/COLOR]
    [COLOR=darkblue]Call[/COLOR] Data_Import_Nat_Dem_331
    Unload Me   [COLOR=green]'Exit userform[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
    
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Sub[/COLOR] CommandButton2_Click()
    [COLOR=green]'No[/COLOR]
    Unload Me   [COLOR=green]'Exit userform[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[Drofidnas]

Thanks, that sort of works, but the form is visible over the top of the editing.
The dialog was really for the parent worksheet, so when the editing in the opened file had finished, you could choose whether to update the parent file with this new info.

 

[AlphaFrog]

How is the macro suppose to know when the editing is finished?

 

[Drofidnas]

It's not.
My idea, but maybe flawed(!) was this:

Parent file runs Macro, dialog opens in it while other file is opened.
Nat Dem 331 file is opened and focused.
Editing happens and file is saved.
Parent file now has a dialog box present.

Clearly the dialog box takes precedent over all open Excel windows and focus is on this at all times.

I'm going to have to rethink.

Thanks for your help.