Bouton appelant un autre fichier

[foxy2]

Bonjour,

J'aimerais savoir comment créer un bouton sur un fichier excel faisant appel à un autre fichier excel.
J'arrive à réaliser cette expérience mais en récupérant l'adresse du futur fichier comme suit :

Sub Bouton2_QuandClic()

Dim wk As Workbook

Set wk = Workbooks.Open("D:\Mes documents\A FAURE\plan de maintenance\Dossier plan de maintenance\Entretien périodique.xls"

Cependant dans le futur ce programme que je suis en train de faire sera sur d'autres PC donc le lien D:\..... ne servira plus à rien !

J'aurais donc voulu savoir comment faire appel à ces autres fichiers sans avoir à répertorier les liens de mon disque dur.

NB: Les fichiers sont quant à eux tous dans le même dossier.

Merci de vos réponses.

 

[RENAUDER]

Re : Bouton appelant un autre fichier

Bonjour,

Le mieux est d'utiliser quelque chose comme cela :
Ca ouvre une boîte de dialogue pour rechercher un fichier.

FileArticlesFIA = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls", , "Ouvrir le fichier Articles-FIA.xls ...")
    If FileArticlesFIA = "Faux" Then End
......

 

[foxy2]

Re : Bouton appelant un autre fichier

Je vous remercie du conseil.