Private Sub CommandButtonMORY_Click() Ouvrir ("Transporteurs\Procedures\DHL.xlsm") End Sub Private Sub Ouvrir(Fichier As String) Workbooks.Open Filename:=ActiveWorkbook.Path & "" & Fichier End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub CommandButtonMORY_Click() Ouvrir ("Transporteurs\Procedures\DHL.xlsm") End Sub Private Sub Ouvrir(Fichier As String) Workbooks.Open Filename:=ActiveWorkbook.Path & "" & Fichier End Sub
Je te fournis le code utilisé pour les boutons de la feuille excel " Choix-transporteur"
Private Sub CommandButtonDHL_Click() Ouvrir ("Transporteurs\Procedures\DHL.xlsm") End Sub Private Sub CommandButtonTNT_Click() Ouvrir ("Transporteurs\Procedures\TNT.xlsm") End Sub Private Sub CommandButtonMORY_Click() Ouvrir ("Transporteurs\Procedures\MORY.xlsm") End Sub Private Sub Ouvrir(Fichier As String) Workbooks.Open Filename:=ActiveWorkbook.Path & "" & Fichier End Sub