Macro pour fermer sans enregistrer

Bonjour à vous amis du forum,

Je reviens vers vous concernant une anomalie qui me chagrine et dont j'ai déjà disctuté ici.

Je souhaite fermer excel sans enregistrer.

Dans le code de la maco, le classeur n'est pas visible pour qu'uniquement l'USF apparait.

Mais à la fermeture du classeur, il arrive parfois qu'il ferme les autres fichiers excel et cela sans enregistrer ce qui est dérengeant.

J'ai essayé avec les codes Workbooks("LEADS AUTO_V5.xlsm").Close savechanges:=False et ThisWorkbook.Close False

mais j'ai toujours ce problème par intermittence.

Avez vous une solution ou autre pour éviter ce genre de chose?

D'avance merci pour votre temps et vos réponses

Vinno

bonjour,

as-tu essayé ceci ?

Private Sub CommandButton2_Click()
    Dim Données As Object
    Dim presse_papier As Variant

    'récupération champs du formulaire
    presse_papier = TextBox6.Value

    'alimentation presse-papier
    Set Données = New DataObject
    Données.SetText (presse_papier)
    Données.PutInClipboard
    MsgBox ("Libellé copié !")
    ThisWorkbook.Saved = True
    ThisWorkbook.Close
End Sub