enlever le message d'autorisation de suppression

Version imprimable

22/03/2008, 18h44
ericdev67

enlever le message d'autorisation de suppression

Bonjour,

Dans mon code, je supprime une feuille à un moment, et j'ai beau mettre

Code:

application.displayalerts=true

Et visual me demande toujours si "les feuilles sélectionnées peuvent contenir des données, pour supprimer définitivement les données, cliquez sur supprimer"

Le code application.displayalerts ne fonctionne pas, il doit surement y avoir une autre instruction....mais je ne la connais pas....

Merci,
A+
22/03/2008, 18h48
ouskel'n'or

Montre le code que tu utilises pour supprimer une feuille. Si tu veux bien ;)
A+
22/03/2008, 18h52
ouskel'n'or

Au fait, c'est

Code:

application.displayalerts=false

pour supprimer les messages d'alerte :mouarf:
Faut pas de True là-dedans

J'ai trop honte..... :
J'ai utilisé l'aide à la création d'Excel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    Workbooks.Open Filename:="C:\essai\Données\ liens .xls"
    Application.Run "'C:\essai\Données\liens.xls'!creationnvlien"
    Windows("Secteur.xls").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.Close
    Windows("Lien D.XLS").Activate
    ActiveWindow.WindowState = xlNormal
    ActiveWindow.WindowState = xlNormal
    With ActiveWindow
        .Top = 4.75
        .Left = -28.25
    End With
    ActiveWindow.Close
    Application.DisplayAlerts = False
    Range("F14").Select
    Sheets("tot").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False
 
    Sheets("Feuil1").Select
    ActiveWindow.SelectedSheets.Delete
    Application.DisplayAlerts = False
    ActiveWorkbook.Save
    Application.DisplayAlerts = False
    ActiveWindow.Close

Je sais, je sais, pas beau le code.....mais il fonctionne (Enfin !!!)

Merci Ouskel'n'or,

J'ai vraiment confondu le true et le false, j'ai pas encore bien assimilé le fonctionnement, idem avec screenplay, mais je vais faire des essais...

Merci,
A+