Discussion :

[idir.17]

Ajoute cette déclaration :

Code :

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

1
2
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

... et remplace ensuite ton instruction par :

Code :

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

1
2
  MsgBox SelectFolder("Sélectionnez un répertoire :", _
    FindWindow(vbNullString, Application.Caption))

Bonne chance.

Je comprends pas... Où mettre:

Code :

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

1
2
Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

parce que moi ca ne marche pas...
Idir