<pre data-code-wrap="vba"><code class="lang-vba">Application.ScreenUpdating = False
Dim wb As Workbook
Set wb = Workbooks.Open("C:\fichier.xlsx", ReadOnly:=True)
' Faire vos opérations...
Dim valeur As Variant
valeur = wb.Sheets(1).Range("A1").Value
' Fermer sans enregistrer
wb.Close SaveChanges:=False
Application.ScreenUpdating = True
</code></pre>
<p>Pour complètement cacher le classeur :</p>
<pre data-code-wrap="vba"><code class="lang-vba">Application.Visible = False
' ... opérations ...
Application.Visible = True
</code></pre>