Je voudrais fermer un fichier

bochacl

XLDnaute Nouveau
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
 

MichelXld

XLDnaute Barbatruc
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 922
Messages
2 093 643
Membres
105 773
dernier inscrit
godelvie-divine.bihonda-b