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.
Le mieux est d'utiliser quelque chose comme cela :
Ca ouvre une boîte de dialogue pour rechercher un fichier.
Code:
FileArticlesFIA = Application.GetOpenFilename("Fichiers Excel (*.xls), *.xls", , "Ouvrir le fichier Articles-FIA.xls ...")
If FileArticlesFIA = "Faux" Then End
......