Sub Ouvrir_Fermer_classeur()
Dim Nom$, noext$
Nom = Application.GetOpenFilename()
If Nom = "" Then
MsgBox "Aucun Fichier Sélectionné", vbOKOnly + vbCritical, "Importation des votes non réalisée "
Exit Sub
Else
Workbooks.Open Filename:=Nom
Importation_Journée (Nom)
noext = Split(Nom, "\")(UBound(Split(Nom, "\")))
Workbooks(noext).Close False
End If
End Sub