"GetOpenFilename" du dossier en cours

boby63 · 3 Mars 2017

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

Code:

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 · 3 Mars 2017

Salut,

Le code n'est pas de moi

A+

Code:

Sub test()


ChDrive "C:"

ChDir "C:\Documents and Settings\"


 Application.GetOpenFilename


End Sub

job75 · 3 Mars 2017

Bonjour,

Code:

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

A+

boby63 · 6 Mars 2017

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

boby63 · 6 Mars 2017

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 · 8 Mars 2017

Bonjour.
Utilisez l'API SetCurrentDirectory

VB:

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

boby63 · 9 Mars 2017

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

"GetOpenFilename" du dossier en cours

boby63

XLDnaute Nouveau

max.lander

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

boby63

XLDnaute Nouveau

boby63

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

boby63

XLDnaute Nouveau

Discussions similaires