"GetOpenFilename" du dossier en cours

[boby63]

Bonjour
Je souhaiterai, via la procédure GetOpenFilename, que la fenêtre s'ouvre sur le dossier en cours (c'est à dire le dossier contenant le fichier Excel en cours)
Pour l'instant le code ouvrant la fenêtre est celui-ci

Private Sub CommandButton12_Click()
        nf = Application.GetOpenFilename("Fichiers jpg,*.jpg")
    If Not nf = False Then
      Me.TextBox13 = nf
    End If
End Sub

Merci d'avance

 

[max.lander]

Salut,

Le code n'est pas de moi

A+

Sub test()


ChDrive "C:"

ChDir "C:\Documents and Settings\"


 Application.GetOpenFilename


End Sub

 

[job75]

Bonjour,

Private Sub CommandButton12_Click()
ChDir ThisWorkbook.Path
'-------

A+

 

[boby63]

Bonjour
Merci. Je teste dès que possible.
Bonne journée

 

[boby63]

J'avais un petit peu oublié de vous signaler que c'était un fichier situé sur un réseau ...
Donc j'ai retesté vos propositions et tant que je suis sur un lecteur type C: , ça fonctionne bien mais sur le réseau avec un chemin type \\bureautique\Blabla\... ça ne fonctionne pas il bug dès ChDrive "//"

 

[Dranreb]

Bonjour.
Utilisez l'API SetCurrentDirectory

Private Declare PtrSafe Function SetCurrentDirectoryA Lib "kernel32" (ByVal lpPathName As String) As Long

 

[boby63]

Bonjour
Merci Dranreb, c'est ce qu'il me fallait
Me suis du coup inspiré d'une ancienne conversation sur la même problématique à laquelle tu avais participé :
https://www.excel-downloads.com/threads/vba-boite-de-dialogue-choix-de-repertoire.20012979/
Mes premiers tests sont concluants jusqu'à présent.
Merci beaucoup et bonne journée