[Resolvido]Mensagem da Importaçao

Bom dia, estou aqui de novo solicitando ajuda de voces.
Estive procurando no forum um codigo para fazer importação do excel para o access.
Encontre este codigo no mestre JPaulo que e ideal, so gostaria que esse codigo me manda-se uma mensagem dizendo que o processo esta concluido.

Private Sub cmdIniciar_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "D:\" ' drive onde se situa o seu documento excel
strTable = "Tb_TitularSeguro" 'nome da tabela no seu banco
strFile = Dir(strPath & "Titulares.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
End Sub

Tente:

...
Loop
MsgBox "Processo concluído", vbOkOnly + vbInformation, "Concluído"
End Sub

Private Sub cmdIniciar_Click()
Dim strPathFile As String, strFile As String, strPath As String
Dim strTable As String
Dim blnHasFieldNames As Boolean
blnHasFieldNames = True
strPath = "D:\" ' drive onde se situa o seu documento excel
strTable = "Tb_TitularSeguro" 'nome da tabela no seu banco
strFile = Dir(strPath & "Titulares.xls") 'nome do seu excel, se mudar para "*.xls" importa todas as folhas excel _
que estiverem em C:\ para a tabela do banco.
Do While Len(strFile) > 0
strPathFile = strPath & strFile
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
strTable, strPathFile, blnHasFieldNames
strFile = Dir()
Loop
MsgBox="Processo Concluído"
End Sub

Ops, vamos jogar na lotaria?

Obrigado pela ajuda as duas soluções foram ótimas.
Este forum e muito bom para quem trabalha com access.

Valeu do Assombro. Obrigado pelo retorno

CAE