ms-access vba - lecture à partir d'excel et aussi mise à jour excel

Créé un simple accès DB avec 1 seul formulaire et 1 bouton pour exécuter le code qui ouvre un vide excel (avec 1 feuille de calcul) et écrit "X" dans la 1ère cellule. Il fait le travail, mais le classeur est caché et j'ai manuellement l'afficher. C'est, après le code VBA est exécutée j'ouvre le fichier excel et le tout est grisé. Je dois cliquer sur l'onglet "listes", puis sélectionnez "Afficher" option et tout est très bien et je peux voir que la cellule a été mis à jour au besoin. Si je sors de l'VBA ligne qui écrit "X" dans le fichier excel, de ne pas cacher le classeur. Comment puis-je résoudre le problème de l'classeur masqué?

Windows 7 et Office2013.

Merci!!!!!!

Voici le code:

Private Sub Command0_Click()
    Dim my_xl_app As Object
    Dim my_xl_worksheet As Object
    Dim my_xl_workbook As Object
    Set my_xl_app = CreateObject("Excel.Application")
    my_xl_app.UserControl = True
    my_xl_app.Visible = False    ' yes. I know it's the default
    Set my_xl_workbook = GetObject("D:\Dropbox\MASAV\HIYUVIM\AAA.xlsx")
    Set my_xl_worksheet = my_xl_workbook.Worksheets(1)
    my_xl_worksheet.Cells(1, "A") = "V"
    my_xl_workbook.Close SaveChanges:=True
    Set my_xl_app = Nothing
    Set my_xl_workbook = Nothing
    Set my_xl_worksheet = Nothing
End Sub
  • Vous pourriez essayer d'ajouter my_xl_app.Quittez avant la mise my_xl_app = Rien .
  • Jusqu'à présent, mon expérimentation montre l'ouverture d'une .fichier xlsx avec ce code provoque le classeur à être ouvert cachés. L'ouverture d'un .fichier xls, cependant, provoque le classeur à être ouvert visible. - Encore en train de jouer avec elle.
  • que faire si vous essayez, comme une solution de contournement pour définir le classeur en question démasqués/visible, puis fermer? pourrait contribuer, pourrait pas, bien 🙂
  • Merci à tous. Toujours pas aller. J'ai rétréci vers le bas: créer un nouvel accès db avec 1 seul formulaire et 1 bouton pour exécuter le code qui lit seulement un vide existant excel (avec 1 feuille de calcul) et met un "x" dans la 1ère cellule. Il fait le travail, mais le classeur est caché et j'ai manuellement l'afficher. Aucune idée...? Peut-être qu'il a quelque chose à voir avec des références soit dans access ou excel????
InformationsquelleAutor gadi | 2013-11-19
  1. 2

    S o l v e d !!!

    Voici le code qui fonctionne sans cacher mon classeur entier :

    Private Sub Command0_Click()
    Dim my_xl_app As Object
    Dim my_xl_worksheet As Object
    Dim my_xl_workbook As Object
    Set my_xl_app = CreateObject("Excel.Application")
    Set my_xl_workbook = my_xl_app.Workbooks.Open("D:\Dropbox\MASAV\HIYUVIM\AAA.xlsx")
    Set my_xl_worksheet = my_xl_workbook.Worksheets(1)
    my_xl_workbook.Sheets(1).Range("A1").Value = "V"
    my_xl_workbook.Close SaveChanges:=True
    Set my_xl_app = Nothing
End Sub

    Obtenu le droit de réponse ici dans ce forum, dans un autre thread qui a échappé à mes yeux...

    Merci beaucoup à tous dans ce merveilleux forum!!!!!!

    InformationsquelleAutor gadi
  2. 0

    Utiliser ceci:

    Workbooks(1).Windows(1).Visible = True
    InformationsquelleAutor Mirek F.