"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