Je patine

L

le CH'TI160

Guest

• 24 Janvier 2004

• #2

Bonsoir le Forum,
Salut YVES
je pense qu'il faut que tu inséres dans ton code
au debut Application.DisPlayAlert =False
se qui inhibe la demande
et tu réactive cette demande en fin de code avec
Application DisplayAlert =True
j'ai 47 Ans et je commence à bidouiller
C'est pas evident
A+++
jean Marie

 

Vote positif 0 Vote négatif

L

le CH'TI160

Guest

• 24 Janvier 2004

• #3

re Yves
petite erreur de Frappe
Application.DisPlayAlerts =False un ( s ) à DisplayAlerts
Application.DisPlayAlerts =True un ( s ) à DisplayAlerts

un exemple
suppression de feuilles sans demande de confirmation

Sub KillSheets ()
Dim WS As Worksheet
With Application
.DisplayAlerts = False
For Each WS In Sheets
If Left(WS.Name, 1) = "J" Then WS.Delete
Next
.DisplayAlerts = True
End With
End Sub
excuses
Jean Marie

 

Vote positif 0 Vote négatif

Y

Yves

Guest

• 24 Janvier 2004

• #4

Sympa!
(Entre vieux.......)

Voici dix ans, l'on m'a collé sur le bureau un ordi sous DOS et NOVELL,
alors que je ne m'étais jamais servi d'un minitel !!!

Et personne pour commenter le mode d'emploi!

Aujourd'hui, on peut bien me fiche à la retraite, j'ai trouvé de quoi
faire ma gymnastique cérébrale et m'occuper encore un demi siècle....

Merci encore, Jean Marie, plein de bonnes choses à toi pour cette nouvelle année, et les nombreuses qui suivront, of course..

Yves

 

Vote positif 0 Vote négatif

Y

Yves

Guest

• 24 Janvier 2004

• #5

Vingt Dieux !!!!

T'es un "Bon"

En plus tu dis que ce n'est pas évident ????

O.K. Tu viens de me filer une grosse caisse de complexes

Si t'as envie de "Causer" un jour ou si tu cherches un truc,
qui par hasard pourrait entrer dans mes compétences autre qu'informatiques, je te donne mon mail:
mtytyves@aol.com

Qui sait?
Dire merci, c'est bien, mais renvoyer l'assenseur qd on peut, c'est mieux

à +

 

Vote positif 0 Vote négatif

Y

Yves

Guest

• 24 Janvier 2004

• #6

Vingt Dieux !!!!

T'es un "Bon"

En plus tu dis que ce n'est pas évident ????

O.K. Tu viens de me filer une grosse caisse de complexes

Si t'as envie de "Causer" un jour ou si tu cherches un truc,
qui par hasard pourrait entrer dans mes compétences autre qu'informatiques, je te donne mon mail:
mtytyves@aol.com

Qui sait?
Dire merci, c'est bien, mais renvoyer l'ascenseur qd on peut, c'est mieux

à +

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Janvier 2004

• #7

Re: Fermeture de Classeur sans Sauvegarde ni Message d'Alerte

Bonsoir Yves, Le CH'Ti, le Forum

Oui, "DisPlayAlerts" en valeur False peut faire l'affaire dans ce cas aussi, mais je l'utilise plus souvent pour des suppressions de feuilles comme dans l'exemple de JM.

Etant donné qu'il existe une intruction spécifique pour éviter le message en laissant croire à Excel que le classeur est déjà sauvé, donc on peut l'utiliser dans le cas de figure spécifique présenté par Yves :

Sub FermerClasseurSansSauver()

With Workbooks("TonClasseur.xls")
.Saved = True
.Close
End With

End Sub

Bonne Nuit
@+Thierry

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Janvier 2004

• #8

Re: Je patine <---- NON !!! pas de sujet comme çà !!

PS pour Yves

Etant donné que tu es nouveau sur ce Forum je te souhaite la bienvenue, j'en profite aussi pour te faire remarquer comment j'ai rédigé le sujet dans mon post précédent.

En effet le sujet est très important dans un Forum de Partage de Connaissance, surtout ici depuis que le moteur de recherche est HS.

Je te conseille un petit tour par notre Charte, tu auras des info complémentaires.

Bonne Nuit
@+Thierry

 

Vote positif 0 Vote négatif

C

chris

Guest

• 25 Janvier 2004

• #9

Re: Tout simplement

Bonjour

J'utilise tout simplement
ActiveWorkbook.Close SaveChanges:=False

(sans changer les alertes)

il ne pose pas de question.

Chris

 

Vote positif 0 Vote négatif

@

@+Thierry

Guest

• 25 Janvier 2004

• #10

Bonjour Chris, Yves, le CH'ti, le Forum

Oui tu as raison Chris, çà aussi on peut le faire et, même encore plus cours :
ActiveWorkbook.Close 0

Bon Dimanche
@+Thierry

 

Vote positif 0 Vote négatif

Y

Yves

Guest

• 25 Janvier 2004

• #11

Là, je commence à me sentir tout petit devant tant de compétence !!!
(Et de gentillesse) Merci, j'avance. Promis, je saurai venir vous
mendier un coup de pelle quand le mur de mon incompréhension
sera trop épais.
Amitiés.
Yves

 

Vote positif 0 Vote négatif