Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro demande de confirmation fermeture ou delete

laraviole

XLDnaute Junior
Bonsoir le forum
J'aimerais savoir s'il est possible de s'affranchir d'une demande de confirmation de fermeture d'un fichier dans une macro . Sur 3 fichiers 2 se ferment correctement mais le 1er me dit que le presse papier contient une grande quantité d'information et à ce moment je suis obligé de cliquer sur Non
C'est le fichier 1016.xsls qui pose probléme

Windows("1016.XLS").Activate
ActiveWindow.Close SaveChanges:=False
Windows("CAP.XLS").Activate
ActiveWindow.Close SaveChanges:=False
Windows("CCP.XLS").Activate
ActiveWindow.Close SaveChanges:=False

A la fin lorsque je supprime des feuilles du fichier excel il me demande pour chaque feuille une confirmation de suppression j'utilise comme commande ceci:

Sheets("1016_Cap_Ccpro").Select
ActiveWindow.SelectedSheets.Delete

Merci pour vos propositions
Bonne soirée à tous
Laraviole
 

Coriolan

XLDnaute Occasionnel
Re : Macro demande de confirmation fermeture ou delete

Bonsoir,

Pour le pb de presse-papiers, tu dois te livrer à des copies effrénées pour avoir ce message ...

Avant fermeture, mets une ligne de code:

Application.CutCopyMode = False

Pour ton autre problème, il suffit de faire une sélection multiple des feuilles à détruire:

Sheets(Array(Nomfeuille1, Nomfeuille 2 ...)).select




Edit

Application.displayalerts = false
permet d'éviter les messages de confirmation. Avant de quitter définitivement, restaurer par
Application.displayalerts = true

Edit Bis

Bonsoir Eric
 
Dernière édition:

OldZebra

XLDnaute Nouveau
Re : Macro demande de confirmation fermeture ou delete

Salut

Tu peux placer le code
DisplayAlerts=false
pour annuler toute demande de confirmation qu'elle qu'elle soit,
Tu rétablit ensuite avec Display......=true

A+
 

DJ FA

XLDnaute Occasionnel
Re : Macro demande de confirmation fermeture ou delete

Bonsoir, j'ai un soucis avec cette alerte que je ne veux pas puisque je suis sur de vouloir supprimer mon fichier. voici mon code avec le message. Merci pour votre aide.



Code:
 On Error Resume Next
.Sheets("Feuil2").Delete
On Error GoTo 0
 Application.DisplayAlerts = True
 With Application
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…