Ouvrir fichier XL par VBA Access 2010

Solutions (1)
Tags :
  • Arrière plan
  • Microsoft Excel
  • Programmation
|
Bonjour,
Mon problème, c'est que le fichier XL s'ouvre, mais en arrière-plan du formulaire Access qui a appelé XL. Une opération supplémentaire est nécessaire pour afficher le fichier XL.
Voici mon code :
Module de classe :
Private Sub CmdMenuXL_Click()

StrFichier = Me.[TxtTable]
StrFeuilleXL = Me.[TxtFeuilleXL]

Call OuvreFichierXL(StrFichier, StrFeuilleXL)
End Sub

Module indépendant :
Public Sub OuvreFichierXL(valeur1, valeur2)

Dim Xl As Excel.Application
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet

'Ouvre Excel et affiche le fichier demandé (Voir TblMenuXL)
Set Xl = New Excel.Application
Xl.Visible = True
Set Classeur = Xl.Workbooks.Open(valeur1)
Set Feuille = Classeur.Worksheets(valeur2)
On Error Resume Next ' Pour essai
DoCmd.Minimize ' Pour essai

End Sub

Merci d'avance pour une aide qui serait bienvenue.

Modification de code : J'ai tout mis dans une même procédure dans le module de classe.


Option Compare Database
Option Explicit

Private Sub CmdMenuXL_Click() ' Toute la procédure dans le module de classe
Dim StrFichier As String
Dim StrFeuilleXL As String

StrFichier = Me.[TxtTable]
StrFeuilleXL = Me.[TxtFeuilleXL]

' Call OuvreFichierXL(StrFichier, StrFeuilleXL) ''Supprimé appel à procédure externe
Dim Xl As Excel.Application
Dim Classeur As Excel.Workbook
Dim Feuille As Excel.Worksheet

'Ouvre Excel et affiche le fichier demandé (Voir TblMenuXL)
Set Xl = New Excel.Application
Xl.Visible = True
Set Classeur = Xl.Workbooks.Open(StrFichier)
Set Feuille = Classeur.Worksheets(StrFeuilleXL)
' classeur.Show
' Set Xl = Nothing
' Set Feuille = Nothing
' Set Classeur = Nothing

End Sub '' Toujours le même problème : Fichier XL parfois en avant-plan, parfois sous la Form !
  • claudio31 a édité ce message
Contenus similaires
Score
0
òh
òi
|
Classeur.Show pour l'afficher
  • Commenter cette réponse |

Ce n'est pas ce que vous cherchiez ?

Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS