La proximité et la méthode ouverte dans Excel VBA peut être utilisé pour fermer des classeurs et ouverts. Rappelez-vous, la collection Workbooks contient tous les objets classeur qui sont actuellement ouverts.

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

  1. La ligne de code ci-dessous se ferme close-open.xlsm.

Workbooks("close-open.xlsm").Close

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

Workbooks(1).Close

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

ActiveWorkbook.Close

  1. La ligne de code ci-dessous ferme tous les classeurs qui sont actuellement ouverts.

Workbooks.Close

  1. La ligne de code ci-dessous ouvre sales.xlsx.

Workbooks.Open ("sales.xlsx")

Remarque: vous ne pouvez sales.xlsx ouvert sans spécifier le chemin du fichier s’il est stocké dans votre emplacement de fichier par défaut. Pour changer l’emplacement du fichier par défaut, sur l’onglet Fichier, cliquez sur Options, Enregistrer.

  1. Vous pouvez également utiliser la méthode GetOpenFilename de l’objet d’application pour afficher la boîte de dialogue Ouvrir standard.

Dim MyFile As String

MyFile = Application.GetOpenFilename()

  1. Sélectionnez un fichier et cliquez sur Ouvrir.

GetOpenFilename Method

Note: GetOpenFilename ne s’ouvre pas réellement le fichier.

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

Workbooks.Open (MyFile)