Chemin Ouverture Fichier

[Williams]

Bonjour,

Je voudrais lorsque j'ouvre un fichier Excel celui-ci travail toujours dans le même répertoire, ainsi que les fichiers de tavail lui appartenant.


Merci pour votre aide.

 

[Wilfried]

Salut WILLIAMS

Tu peu paramétre cela dans EXCEL :

Outils
-> Option
-> onglet 'general'

Voila

Wilfried ;-)

 

[Williams]

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

 

[Yeahou]

Bonjour William, Wilfried, le forum

cela fonctionnera peut être mieux comme cela

Cordialement, A+

Private Sub Workbook_Open()
ThisWorkbook.Sheets("Menu").select
Range("C2").Select
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFullScreen = True
Application.DisplayFormulaBar = False
ChDrive Left( thisWorkbook.path, 1)
ChDir thisWorkbook.path
End Sub