Attribuer une variable à un fichier ouvert et le fermer via macro VBA

Bonjour,

Je souhaite fermer un fichier Excel en lui attribuant une variable car j'ai plusieurs classeurs ouverts.

Voici mon début de code :

Sub Bouton1_Cliquer()


Dim Fichier As String

With Application.FileDialog(3)

.Show

On Error Resume Next 'si annuler

Fichier = .SelectedItems(1)

If Err.Number <> 0 Then Exit Sub

Workbooks.Open Fichier

End With

End Sub

Merci

Bonjour,

Comme ceci, par exemple :

Public Wbk_1 As Workbook
Dim Fichier As String

Sub ouvre()
With Application.FileDialog(3)
    .Show
    On Error Resume Next
    Fichier = .SelectedItems(1)
    If Err.Number <> 0 Then Exit Sub
    Set Wbk_1 = Workbooks.Open(Fichier)
End With
End Sub

Sub ferme()
Wbk_1.Close False
End Sub

Bonne apm

Top merci beaucoup

J'ai une dernière question svp, je souhaite copier le 1er onglet de ce fichier que j'ai ouvert et le coller dans mon fichier où j'ai la macro

Merci