Bonjour,
Oui effectivement, mais dans ce cas je le fais que pour mon " EXCEL ", et déffinitivement. Mais j'ai d'autre fichier à ouvrir et pas forcément dans le même dossier.
Je pensais plutot a un quelque chose dans ce genre là, mais qui ne fonctionne pas très bien.
Autre chose...
Merci
Private Sub Workbook_Open()
ThisWorkbook.Sheets("Menu").Activate
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
End With
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
Sheets("Menu").Range("C2").Select
NomAbsolu = ActiveWorkbook.FullName
If Mid$(NomAbsolu, 2, 1) = ":" Then
For i = Len(NomAbsolu) To 1 Step -1
If Mid$(NomAbsolu, i, 1) = "\" Then
RepAbsolu = Left(NomAbsolu, i)
i = 1
End If
Next i
ChDrive (Left(RepAbsolu, 2))
ChDir (RepAbsolu)
End If
End Sub