Désactiver l'invite du Presse-papiers dans Excel VBA sur le classeur

J'ai un classeur Excel, en utilisant le code VBA qui ouvre un autre classeur, des copies des données dans l'original, puis ferme le deuxième classeur.

Quand je ferme le second classeur (à l'aide de Application.Close), j'ai une invite pour:

Voulez-vous enregistrer le presse-papiers.

Est-il une commande en VBA qui va contourner cette invite?

source d'informationauteur Craig T

  1. 25

    Je peux offrir deux options

    1. Copie directe

    En fonction de votre description, je suppose que vous faites quelque chose comme 

    Set wb2 = Application.Workbooks.Open("YourFile.xls")
wb2.Sheets("YourSheet").[<YourRange>].Copy
ThisWorkbook.Sheets("SomeSheet").Paste
wb2.close

    Si c'est le cas, vous n'avez pas besoin de copier via le presse-papiers. Cette méthode copie de la source à la destination directement. Pas de données dans le presse-papiers = aucune invite

    Set wb2 = Application.Workbooks.Open("YourFile.xls")
wb2.Sheets("YourSheet").[<YourRange>].Copy ThisWorkbook.Sheets("SomeSheet").Cells(<YourCell")
wb2.close
    1. Supprimer invite

    Vous pouvez éviter tous d'alerte pop-ups par la mise en

    Application.DisplayAlerts = False

    [Modifier]

    1. Pour copier uniquement les valeurs de: ne pas utiliser le copier/coller à tous les
    Dim rSrc As Range
Dim rDst As Range
Set rSrc = wb2.Sheets("YourSheet").Range("YourRange")
Set rDst = ThisWorkbook.Sheets("SomeSheet").Cells("YourCell").Resize(rSrc.Rows.Count, rSrc.Columns.Count)
rDst = rSrc.Value
  2. 10

    Si je peut ajouter une autre solution: vous pouvez annuler purement et simplement le presse-papiers avec cette commande:

    Application.CutCopyMode = False
  3. 3

    J'ai frappé ce problème dans le passé - de l'apparence de celui-ci si vous n'avez pas besoin de le presse-papiers au point que vous quittez, vous pouvez donc utiliser la même solution simple que j'ai eu. Juste effacer le presse-papiers. 🙂

    ActiveCell.Copy

    Chris

  4. 0

    Si vous ne voulez pas enregistrer les modifications et ne veulent pas que l'invite d'enregistrement pendant l'enregistrement d'un fichier Excel à l'aide de Macro puis ce morceau de code peut utile pour vous

    Sub Auto_Close()

     ThisWorkbook.Saved = True

End Sub

    Parce que le Saved propriété est définie à TrueExcel répond que le classeur a déjà été enregistré et aucun changement n'est survenu depuis le dernier enregistrement, donc pas de message d'enregistrement.

  5. 0

    Il est simple de contourner. L'alerte vient seulement lorsque vous avez une grande quantité de données dans votre presse-papiers. Il suffit de copier un hasard de la cellule avant de fermer le classeur et il n'apparaît pas plus!

  6. -1

    solution proposée modifier fonctionne que si vous remplacez la ligne

    Set rDst = ThisWorkbook.Sheets("SomeSheet").Cells("YourCell").Resize(rSrc.Rows.Count, rSrc.Columns.Count)

    avec

    Set rDst = ThisWorkbook.Sheets("SomeSheet").Range("YourRange").Resize(rSrc.Rows.Count, rSrc.Columns.Count)