Dans cet article, nous allons apprendre à fermer et à ouvrir la méthode dans Excel VBA qui est utilisée pour ouvrir le classeur de fermeture et également fermer le classeur ouvert.

Nous créons un bouton de commande dans une feuille Excel et attribuons une macro.

Pour savoir comment créer un contrôle Activex, cliquez sur lien: / tips-activex-controls-in-microsoft-excel-2010 [lien]

Comment ouvrir le classeur Excel via VBA?

Suivez les étapes et le codage ci-dessous: – * Insérez 2 boutons de commande.

  • Premier bouton de commande que nous utilisons pour cliquer avec le bouton droit de la souris sur le bouton de commande.

  • La page VBE s’ouvrira et copiera le codage ci-dessous et le collera dans la page VBE.

  • Pour ouvrir le classeur, attribuez la macro mentionnée ci-dessous.

Sous sOpenWorkbook ()

‘définir une variable pour le nom de fichier Dim csFileName As String’ obtenir le nom de fichier de la cellule A1 sur la feuille Sheet1 csFileName = ThisWorkbook.Sheets (« Exemple d’ouverture et de fermeture »). Range (« A1 »)

‘ouvrir le classeur Workbooks.Open csFileName MsgBox csFileName & « ouvert »

End Sub * Deuxième bouton de commande que nous utilisons pour cliquer avec le bouton droit de la souris sur le bouton de commande.

  • La page VBE s’ouvrira et copiera le codage ci-dessous et le collera dans la page VBE.

  • Pour ouvrir le classeur, attribuez la macro mentionnée ci-dessous.

Sous sCloseWorkbook ()

‘définir une variable pour le nom de fichier Dim csFileName As String’ obtenir le nom de fichier de la cellule A1 sur la feuille Sheet1 csFileName = ThisWorkbook.Sheets (« Exemple d’ouverture et de fermeture »). Range (« A1 »)

‘ferme les classeurs Workbooks (Split (csFileName, « \ ») (UBound (Split (csFileName, « \ »)))). CloseMsgBox Split (csFileName, « \ ») (UBound (Split (csFileName, « \ »))) & « fermé »

End Sub Les deux macros seront assignées aux boutons de commande, nous devons utiliser le codage de macro ci-dessous.

Option Explicit Sub sExample () Const csFileName As String = _ « C: \ Test \ Master.xlsx » Workbooks.Ouvrez csFileNameWorkbooks (Split (csFileName, « \ ») (UBound (Split (csFileName, « \ »)))). Close End Sub Sub sOpenWorkbook ()

‘définir une variable pour le nom de fichier Dim csFileName As String’ obtenir le nom de fichier de la cellule A1 sur la feuille Sheet1 csFileName = ThisWorkbook.Sheets (« Example Open and Close »). Range (« A1 ») ‘ouvre le classeur Workbooks.Open csFileNameMsgBox csFileName & « ouvert « 

End Sub Sub sCloseWorkbook ()

‘définir une variable pour le nom de fichier Dim csFileName As String’ obtenir le nom de fichier de la cellule A1 sur la feuille Sheet1 csFileName = ThisWorkbook.Sheets (« Exemple d’ouverture et de fermeture »). Range (« A1 »)

‘fermez le classeurWorkbooks (Split (csFileName, « \ ») (UBound (Split (csFileName, « \ »)))). & « fermé »

End Sub Note: – Vous devez mentionner le chemin en fonction de votre fichier.

image 4