Discussion :

[Kutoh]

Bonjour j'aimerai récupérer le nom d'un fichier à partir d'une boite de dialogue, et j'aimerai que cette boite de dialogue affiche un répertoir spécifique.
Le problème c'est que dans la liste des options de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.GetOpenFilename()

il n'ya pas d'option permettant de choisir le répertoire

et avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogOpen).Show

je ne peux pas l'associer une variable.
Une idée Please?!
Merci d'avance.

[EngueEngue]

Si il est en local il te suffira de faire un
Chdir C:
puis Chdir ton path avant ton instruction

Sinon pour faire plus simple tu as:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test()
  Dim fld As FileDialog
  Dim strFilePath As String
  Set fld = Application.FileDialog(msoFileDialogOpen)
  With fld
    .InitialFileName = "\\serveur\chemin\"
    .Show
  End With
  strFilePath = fld.SelectedItems(1)
End Sub

[Kutoh]

Merci, ca fonctionne.