Petit probleme avec code

[Eric]

Bonjour tout le monde,

J ai une macro qui ouvrir un fivhier excel et qui me copie un range pour me le coller dans mon second fichier. Mais je veux que la macro me ferme le fichier source sans m afficher le message voulez vous enregistre les mmodif, 1 j ai pas fais de modif et 2 je veux le ferme sans cette boite qui s ouvre.

Sub Macro1()

ChDir 'C:\\Documents and Settings\\TRAD\\Desktop'
Workbooks.Open Filename:='C:\\Documents and Settings\\TRAD\\Desktop\\source.xls'
Range('E11:G17').Copy
Windows('~final2.xls').Activate

Range('Z5').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False



Range('Z5:ab11').Copy
Range('P6').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Range('Z5:ab11').ClearContents


Windows('source.xls').Close

end sub

POuvez vous m aider please?

 

[Danix]

Bonjour,

ajouter derrière le Close :

false pour eviter d'enregistrer tous changements
true pour enregistrer les changements

Si le message persite, on peut aussi lui demander Application.DisplayAlerts = false pour éviter tous messages, mais il faut ensuite le repositionner à true

slts

 

[Eric]

Merci pour ton aide,

j ai essaye de mettre false apres le close mais ca me met un message d erreur pour le code, et l autre code pour eviter les messages en genral ne marche pas puisque le message d enregistrement apparait quand meme.

 

[pierrejean]

bonjour Eric


voici un petit fichier de demonstration de fermeture sans avertissement
entrer une valeur quelconque sur la feuille 1 [file name=Classeur2_20060217172921.zip size=6896]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060217172921.zip[/file]

 

[eric]

merci pour ton aide,

je suis au boulot et je ne peux pas telecharger ton fichier, peux tu stp me poster le code sur le forum?