Fermeture d'un fichier excel externe [Résolu]

- - Dernière réponse :  Fred - 3 oct. 2013 à 09:41
Bonjour,

J'aimerais pouvoir fermer le fichier excel dans lequel je vais piocher les données (sans que je doive cocher, "ne pas enregistrer") et que je copie et réarrange de mon fichier. J'ai une macro qui va chercher les données dans un fichier de l'entreprise, jes les copie et les réarrange dans mon propre fichier. Mon propre fichier doit rester ouvert, mais celui dans lequel je vais chercher les données doit se fermer sans que je doive rien faire.
Merci beaucoup pour votre aide
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
13
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
7 octobre 2013
1
1
Merci
Je passe ici un peu par hasard !

Voici une piste :
ActiveWorkbook.Close savechanges:=False
ou
Workbooks(nomfich).Close savechanges:=False

çà ferme une classeur en ne sauvegardant pas les changements.

Sinon deuxième piste : en essayant aussi cette technique :

Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True

çà évite que les évènements déclenchés pendant la fermeture se lance... çà peut servir dans d'autres cas...

Bonne prog !

Dire « Merci » 1

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 195 internautes nous ont dit merci ce mois-ci

Commenter la réponse de rackamlerouge
0
Merci
Je ne sais pas pourquoi je ne vois pas le commentaire de rackamlerouge, ça ne marche pas, je ne sais si ça change quelque chose si le dossier sources est sur un autre disque (s:/)...
ça me met errer '424'
Objet requis
ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212 -
Bonjour,
j'espère que tu n'as pas fait un simple copié/collé de :
Workbooks(nomfich)
:-). Non quand même pas.

Avec ActiveWorkbook.Close savechanges:=False , ca marche, mais ça n'est pas le but de fermer cette page là. Avec "

Workbooks(Vente_par_prod).Close savechanges:=False

ou

Workbooks(Vente_par_prod.xls).Close savechanges:=False


ça ne fonctionne pas, alors que la page ouverte où je vais chercher les données ne se ferme pas, vu que ça me met "objet requis"
ucfoutu
Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212 -
Vente_par_prod (ex) doit bien évidemment être mis entre guillemets et être le nom d'un classeur ouvert.
MERCI cette fois ça fonctionne très bien (pour l'instant). Maintenant j'ai encore un soucis avec le nom du fichier qui change chaque jour, mais je vais faire un nouveau post. MERCI à tous pour votre aide
Commenter la réponse de Fred