Salut Jean
Bonjour le forum
J'ai ceci que les amis du forum mon aider à faire il y a longtemps que tu peut mettre sous un bouton et tu doit bien sur adapter les chemin:
Function FileExists(FileName As String) As Boolean
FileExists = Dir(FileName) <> ''
End Function
Sub Ouvrir()
Dim Nom_Fichier
Nom_Fichier = Application.InputBox(prompt:='Entrez le nom du territoir à ouvrir')
ChDir 'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve'
If FileExists('C:\\Program Files\\Territoire 2004\\Territoires\\' & Nom_Fichier & '.xls') = False Then
MsgBox 'Fichier Inexistant'
Else
Workbooks.Open FileName:= _
'C:\\Program Files\\Territoire 2004\\Territoires\\Maisonneuve\\' & Nom_Fichier & '.xls'
MsgBox '*Éditer maintenant*'
End If
End Sub
et si tu veut en pressant une touche de clavier dans le workbook tu met:
Private Sub Workbook_Activate()
Application.OnKey '{F8}', 'Macro1'
End Sub
A++
Temjeh