Salut Olivier, le Forum
Voici deux méthodes qui devraient faire l'affaire (au choix) :
Méthode "HyperLink"
Sub OpeningFromCellHyperLink()
Dim ThePath As String, TheFile As String, TheSheetAddress
ThePath = "C:\Documents and Settings\te\My Documents\"
TheFile = Sheets("Sheet1").Range("A2") & ".xls"
TheSheetAddress = "Global!$C$44"
ThisWorkbook.FollowHyperlink ThePath & TheFile, TheSheetAddress
End Sub
Méthode "WorkBook.Open"
Sub OpeningFromCellOpen()
Dim ThePath As String, TheFile As String, TheSheet As String, TheAddress As String
ThePath = "C:\Documents and Settings\te\My Documents\"
TheFile = Sheets("Sheet1").Range("A2") & ".xls"
TheSheet = "Global"
TheAddress = "C44"
Workbooks.Open ThePath & TheFile
Sheets(TheSheet).Activate
Range(TheAddress).Activate
End Sub
En prime dans les deux méthode tu peux ajouter avant le end sub :
ActiveWindow.ScrollRow = ActiveCell.Row
Ce qui te mettra la ligne de la cellule "C44" en "Top" de la fenêtre (si besoin)
Bon Aprèm
@+Thierry