Bonjour à vous ^^  
 
Je teste la fermeture et l’ouverture d’un fichier EXCEL.
 
Le but est de le fermer à l’aide de la croix rouge d’un Userform, mais en conservant les autres Excel éventuellement ouverts ou quitter Excel si aucun autre fichier n'est ouvert.
 
Rien de plus simple ^^  … ben non !    
 
 
Ma mini macro « de fermeture »:
 
Un Userform1 voici le code :
 
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload UserForm1
ThisWorkbook.Save
If Workbooks.Count < 2 Then Application.Quit Else ActiveWindow.Close
End Sub
 
 
Un bouton sur feuille Excel relié au code :
 
Sub affiche()
 UserForm1.Show
End Sub
 
 
1er Cas : aucun Excel déjà ouvert : on ferme, on ouvre, on ferme, …. Tout nickel, que du bonheur    
 
2ieme Cas : classeur(s) Excel déjà ouvert(s) on ouvre, on ferme uniquement ce fichier et pas l(es) autre(s) : nickel  mais ….. à la réouverture celui-ci Erreur429 « Un composant ActiveX ne peut pas créer l’objet »    
 
Et la je rame