Je voudrais fermer un fichier

[bochacl]

Bjr à tout le forum,

J'ai un petit soucis, je lance une macro pour mettre à jour une table et je n'arrive pas à fermer après la MAJ le fichier (de MAJ) ci-joint une partie du code:

Range('A4').Select
Range('A4:J360').Select
Selection.ClearContents
Workbooks.Open Filename:='C:\\TRAVAIL\\MAJclients.xls'
ActiveSheet.Range('A1:J360').Select
Selection.Copy
Windows(2).Activate
ActiveSheet.Range('A4').Select
ActiveSheet.Paste
Windows(1).Activate

1 j'efface les données
2 j'ouvre le fichier MAJ
3 je sélectionne et je copie
4 et là je me plante ! car je ne ferme pas le fichier de MAJ

Merci de me trouver une solution

cdt

 

[excalibur]

bonjour bochacl , le forum peut etre comme cela
apres Selection.Copy
ActiveWindow.Close salutations

 

[MichelXld]

bonjour Bochacl , bonjour Excalibur

une autre possibilité en complément de la reponse d'Excalibur



Dim Wb As Workbook

.....

Set Wb = Workbooks.Open(Filename:='C:TRAVAILMAJclients.xls')

.......

Wb.Close False 'False pour ne pas enregistrer les modifs du classeur à fermer



bonne soiree
MichelXld