Fermeture du fichier porteur de la macro

[marmotte18]

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 :

'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

 

[marmotte18]

Re : Fermeture du fichier porteur de la macro

Bonjour Jean-Marcel,

Tout d'abord, merci de t'occuper de mon problème. Malheureusement, le message d'erreur est identique à celui que j'ai eu

 

[Pierrot93]

Re : Fermeture du fichier porteur de la macro

Bonjour,

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

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

bon après midi
@+

 

[Pierrot93]

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... :

Workbooks("Ouvre.xls").Sheets("Feuil1").Range("A1" ).Select

 

[Pierrot93]

Re : Fermeture du fichier porteur de la macro

Re

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

Application.Goto Workbooks("Ouvre.xls").Sheets("Feuil1").Range("A1")

 

[marmotte18]

Re : Fermeture du fichier porteur de la macro

Bonjour Pierrot93,

Ta proposition :

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 !