Ouvrir un fichier Excel pour lecture avec VBA sans affichage

Question

Je veux rechercher des fichiers Excel existants avec une macro, mais je ne veux pas afficher ces fichiers lorsqu'ils sont ouverts par le code. Y a-t-il un moyen de les ouvrir "en arrière-plan", pour ainsi dire?

Answer 1

Pas sûr que vous puissiez les ouvrir invisiblement dans l'instance Excel actuelle

Vous pouvez ouvrir une nouvelle instance d'Excel, la masquer et ensuite ouvrir les classeurs

Dim app as New Excel.Application
app.Visible = False 'Visible est False par défaut, donc ce n'est pas nécessaire
Dim book As Excel.Workbook
Set book = app.Workbooks.Add(fileName)
'
' Faites ce que vous avez à faire
'
book.Close SaveChanges:=False
app.Quit
Set app = Nothing

Comme d'autres l'ont mentionné, assurez-vous de faire le ménage après avoir terminé avec les classeurs ouverts

Answer 2

Si cela correspond à vos besoins, j'utiliserais simplement

Application.ScreenUpdating = False

avec l'avantage supplémentaire d'accélérer votre code, au lieu de le ralentir en utilisant une deuxième instance d'Excel.

Answer 3

Pour ouvrir un classeur en tant que caché dans l'instance existante d'Excel, utilisez ce qui suit :

    Application.ScreenUpdating = False
    Workbooks.Open Filename:=CheminDuFichier, UpdateLinks:=True, ReadOnly:=True
    ActiveWindow.Visible = False
    ThisWorkbook.Activate
    Application.ScreenUpdating = True

Answer 4

Même si vous avez votre réponse, pour ceux qui trouvent cette question, il est également possible d'ouvrir une feuille de calcul Excel en tant que magasin de données JET. Empruntant la chaîne de connexion d'un projet sur lequel je l'ai utilisé, cela ressemblera un peu à ceci:

strExcelConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & objFile.Path & ";Extended Properties=""Excel 8.0;HDR=Yes"""
strSQL = "SELECT * FROM [RegistrationList$] ORDER BY DateToRegister DESC"

Notez que "RegistrationList" est le nom de l'onglet dans le classeur. Il existe quelques tutoriels circulant sur le web sur les détails de ce que vous pouvez faire ou ne pas faire en accédant à une feuille de cette façon.

Juste une pensée à ajouter. :)

Answer 5

Ouvrez-les à partir d'une nouvelle instance d'Excel.

Sub Test()

    Dim xl As Excel.Application
    Set xl = CreateObject("Excel.Application")

    Dim w As Workbook
    Set w = xl.Workbooks.Add()

    MsgBox "Pas encore visible..."
    xl.Visible = True

    w.Close False
    Set xl = Nothing

End Sub

Vous devez penser à nettoyer une fois que vous avez fini.