demande d'enregistrement à la fermeture

[jd]

Bonjour à toutes et tous,

J'ai un classeur où s'éxécute mon application, elle ouvre une feuille de calcul pour récupérer une plage, mais quand mon application referme cette feuille, j'ai une fenêtre qui s'ouvre me demandant si je veux enregistrer les modifs. Bizarre, oui j'ai dis Bizarre car en aucun cas il n'y a de modif sur cette feuille.
Comment supprimer cette fenêtre?
j'ouvre et ferme la feuille comme ci-dessous...

Application.Workbooks.Open "C:\ma_Feuille.xls"
Sheets("Feuil").Select
Range("A1:AR20000").Select
Selection.Copy
ThisWorkbook.Activate
Sheets("Feuil1").Select
Range("AA1").Select
ActiveSheet.Paste
Application.Workbooks("Ma_Feuille.xls").Close

Merci pour vos solutions.
jd

 

[Wilfried]

Salut JD,

Le cod suivant evite les questions du genre : voulez vous sauvegardez, mettre les liens a jours etc....

Attention il faut toujours remettre en place avec un true avant de quitter car si non tu n'as plus aucun message d'alerte et seul VBA peu le remettre en place.

Application.displayalerte=false
Application.Workbooks("Ma_Feuille.xls").Close
application.displayalerte=true


A+ et bonne fête de fin d'année ;op

Wilfried

 

[Pascal76]

Bonjour

juste pour signaler que la ligne de code s'ecrit avec un s à alert et non un e. Cela donne donc

Application.DisplayAlerts = False

Pour ce qui est d'Excel vu que tu copies quelque chose sur ta feuille il considère qu'elle a été modifiée donc il te pose la question. Mais avec ce que te donne Wilfried cela marchera sans question

Bonne journée

Pascal

 

[Wilfried]

Merci pascal76 pour cette correction,

J'ai ecrit le code de tête et une coquille est vite arriver...

A+ wilfried ;op

 

[jd]

Bonjour Pascal76, Wilfried,

Merci pour cette petite explication, même si elle est basique, elle n'en est pas moins fort instructive.

Bonne Soirée et Bonnes Fêtes.

jd