Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fermeture du fichier porteur de la macro

  • Initiateur de la discussion Initiateur de la discussion marmotte18
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

marmotte18

XLDnaute Impliqué
Bonjour,

J'ai une macro qui ouvre tous les dossiers, fichiers et applications dont j'ai besoin à un instant donné.

A l'issue de son travail automatique, je souhaiterais que cette macro ferme le fichier Excel qui la porte. Comment faut-il procéder ?

J'ai bien essayé le type d'instruction suivante mais cela ne fonctionne pas :

Code:
'Fermeture du fichier porteur de cette macro
'----------------------------------------------------
Workbooks("Ouvre").Sheets("Feuil1").Range("A1").Select
ActiveWindow.Close

Erreur d'exécution 1004 : la méthode Select de la classe Range a échoué.

Merci par avance
 
Re : Fermeture du fichier porteur de la macro

Bonjour,

essaye peut être ainsi, mais l'exécution du code s'arretera là....

Code:
ThisWorkbook.Close 'true ou false pour l'enregistrement, selon le cas

bon après midi
@+
 
Re : Fermeture du fichier porteur de la macro

Re

pas sur que cette ligne de code fonctionne en l'état, si ce n'est pas déjà la feuille active... :

Code:
Workbooks("Ouvre.xls").Sheets("Feuil1").Range("A1" ).Select
 
Re : Fermeture du fichier porteur de la macro

Re

sinon pour la selection d'un autre classeur / autre feuille / autre cellule

Code:
Application.Goto Workbooks("Ouvre.xls").Sheets("Feuil1").Range("A1")
 
Re : Fermeture du fichier porteur de la macro

Bonjour Pierrot93,

Ta proposition :

Code:
ThisWorkbook.Close

fonctionne impeccablement bien ! Il n'est pas gênant que le code s'arrête là, car à ce stade, la macro à effectuer toutes ces tâches d'ouverture. Elle ne fait que cela !

Merci beaucoup !
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…