lien hypertexte et fermeture excel

[thalyan13]

bonjour à tous...

voilà, je travaille sur plusieurs fichiers excel qui comportent tous de nombreuses pages, ce qui ferait trop lourd à intégrer en un seul fichier excel.
je cherche une macro ou un lien hypertexte qui me permettrait d'ouvrir un deuxième fichier excel (jusque là j'ai trouvé) mais qui me ferme le premier fichier excel.

en résumé, si j'ai un bouton macro sur BOOK1, je veux que cela puisse m'ouvrir BOOK2 mais aussi me fermer BOOK1

merci d'avance pour le coup de main

bonne journée à vous tous

nathalie

 

[soft]

Bonjour thalyan13, le forum,

Exemple :

Sub ChangeFichier()
Dim W As String
W = ActiveWorkbook.Name
Workbooks.Open Filename:='C:\\Fichier.xls'
Workbooks(W).Close
End Sub

 

[Lagache]

Bonjour le Forum
Salut à toi Nathalie

Code associé à un bouton

Workbooks('Ton fichier.xls').Activate
ThisWorkbook.close


Ton fichier = le fichier que tu veux ouvrir

@ +++
Bonne journée
Lagache

 

[Blunet]

Salut le fil, autre méthode

Sub OuvrirEtFermer()
'Bien sûr Adpter le chemin et ne pas permuter l'ordre
Workbooks.Open ('C:\\Book2.xls')
Workbooks.Close ('C:\\Book1.xls')
End Sub

 

[thalyan13]

merci à vous tous, avec vos indications et surtout votre aide, j'ai nettement amélioré mon projet.
encore merci, et à la prochaine
slts
nathalie