Sous access Ouvrir excel en premier plan

Flomen -  
RV71 Messages postés 620 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
Sous Access j'ouvre un fichier excel, je recherche la solution pour l'afficher en premier plan
Voici mon code
Function OuvrirExcel(ExcelID As String) As String
Dim EXCEL As New EXCEL.Application
OuvrirExcel = ""
Set EXCEL = CreateObject("Excel.Application")
EXCEL.Workbooks.Open ExcelID, readOnly:=False
EXCEL.Visible = True
Set EXCEL = Nothing
End Function

Cordialement

3 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, quand je teste ton code, Excel reste au premier plan.
    comment y fais-tu appel?
    0
  2. Flomen
     
    J'appelle la fonction avec un call OuvrirExcel(....)
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      ce pourrait-il, qu'après ce call, Access revienne en avant-plan, à cause d'une action qui s'y passe?
      0