Le bouton Close et Open dans Microsoft d’Excel VBA peut être utilisé pour fermer et ouvrir des classeurs. Rappellez vous, la collection Workbooks contient tous les objets Classeurs  actuellement ouverts.

Placez un bouton de commande sur votre feuille de calcul et ajoutez les lignes de code suivantes:

1. La ligne de code ci-dessous ferme fermerclasseur.xls.

Workbooks("fermerclasseur.xls"). Close

2. La ligne de code ci-dessous ferme le premier classeur ouvert / créé.

Workbooks(1) .Close

3. La ligne de code ci-dessous ferme le classeur actif.

ActiveWorkbook.Close

4. La ligne de code ci-dessous ferme tous les classeurs actuellement ouverts.

Workbooks.Close

5. La ligne de code ci-dessous ouvre vente.xls.

Workbooks.Open ("vente.xls")

6. Remarque: vous ne pouvez ouvrir vente.xls sans spécifier le chemin du fichier que s’il est stocké dans votre emplacement de fichier par défaut. L’emplacement de fichier par défaut est le dossier que vous voyez lorsque vous ouvrez ou enregistrez un fichier.

Vous pouvez également utiliser la méthode GetOpenFilename de l’objet Application pour afficher la boîte de dialogue d’ouverture standard et sélectionner le fichier (sans réellement ouvrir le fichier).

Dim MonFichier As String

MonFichier = Application.GetOpenFilename ()

Résultat:

7. Ensuite, vous pouvez ouvrir le classeur comme d’habitude.

Workbooks.Open(MonFichier)