Discussion :

[ericdev67]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[ouskel'n'or]

Montre le code que tu utilises pour supprimer une feuille. Si tu veux bien
A+

[ouskel'n'or]

Au fait, c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.displayalerts=false

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

[ericdev67]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+