Ouvrir un fichier Excel sans ouvrir une autre page.

Bonjour,
Mes compétences en language VBA sont nul. Je me suis "baladé" de forum en forum pour trouver comment faire mais hélas j'ai créer une macros qui ne fonctionne pas. J'ai piauché des morceaux qui pouvait être interressant en fonction de ma création faites déjà sur Excel.

J'aimerais donc, pouvoir Ouvrir un fichier excel à l'aide d'un bouton et lui affecter une macros qui permetterait, à mon bouton d'ouvrir un fichier déjà existant sans qu'il m'ouvre une autre page excel (c'est le probléme des liens hypertexte).

Voici mon programme( les commentaires sont ce que je pense que la ligne exécute):

Sub tranche_zéro()
Dim OUV As Variant 'Déclaration de variable
Dim t As Variant 'Déclaration de variable

OUV = 0
For t = 1 To Workbooks.Count 'Rebouclage pour eviter d'ouvrir à chaque fois mon fichier "0LGGb.xls j'ai trouver ca dans un forum
If Workbooks(t).Name = "0LGGb.xls" Then OUV = 1
Next t
If OUV = 0 Then Workbooks.Open Filename:="C:\Users\I60774\Documents\Synoptique Tranche 0\6.6kV\0LGGb.xls"
End Sub

Private Sub CommandButton1_Click() 'lors du clique sur l'objet...
Dim tranche_0 As Variant 'Déclaration de variable
tranche_0.Hide 'Fermer le fichier Excel Tranche 0
End Sub
Sub Ouverture_fichier()
Dim ActivateWorkbook As Variant 'Déclaration de variable
Static LGGb As Variant 'Déclaration de variable
Dim tranche_0 As Variant 'Déclaration de variable
Workbooks.Open Filename:="C:\Users\I60774\Documents\Synoptique Tranche 0\6.6kV\0LGGb.xls" 'Ouverture du fichier voulu(0LGGb)
LGGb = ActivateWorkbook.Name 'activation du fichier voulant être ouvert
Workbooks(LGGb).Activate 'activation du classeur LGGb à la place du fichier Excel Tranche_0
Close tranche_0 ' fermer la page ou j'ai cliquer sur l'objet
Sheets("Feuille 1").Select 'Ouvrir la feuille1 du fichier 0LGGb
ActiveWindow.DisplayWorkbookTabs = False 'fermer le classeur Tranche 0
Application.DisplayFullScreen = True 'Ouverture sur la même page Excel

End Sub

Sinon j'ai lu ca dans un livre qui ne fonctionne pas non plus:

Sub LGG_zéro()
Dim LGGzéro As String
Open "C:\Users\I60774\Documents\Synoptique Tranche 0\6.6kV\0LGGb.xls" For Input As #1
While Not EOF(1)
Line Input #1, LGGzéro
Wend
Close #1
End Sub

Merci de votre aide.