Discussion :

[Nicko29]

Bonsoir,

J'ai consulter la Faq précisement cet article Comment ouvrir une fenêtre de sélection de répertoire ?

Cela fonctionne très bien à condition que l'on utilise cette fonction depusi un formulaire :

genre comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande0_Click()
Dim Msg, Style, Title, Resultat
 
rep = SelectFolder("Sélectionnez un répertoire :", Me.Hwnd)
 
Msg = "chemin : " & rep & "  ."
Style = vbOKOnly + vbInformation
Title = "Version"
Resultat = MsgBox(Msg, Style, Title)
End Sub

Mais je souhaiterai recupérer le chemin , n'on pas pas un msgbox ou champ texte , mais directement dans une autre procédure , en fait qui me sert a sauvegarder des fichiers sur une clé.

Malheureusement , si je met ceci dans un autre module de code intégrant la sauvegarde :

Code :

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

rep = SelectFolder("Sélectionnez un répertoire :", Me.Hwnd)

Cela ne va pas marcher , j'ai conscience que cela doit bloquer à cause de :

Code :

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

Me.Hwnd

Mais que mettre à la place ?

[Invité]

Bonjour

Essayes de mettre à la place :

Code :

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

Application.hWndAccessApp

Starec

[Nicko29]

Merci c'est impeccable , je vais étudier çà ,

Code :

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

Me.hand

faisait référence au formulaire.
Et la maintenant avec

Code :

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

Application.hWndAccessApp

cela fait référence à l'application,si j'ai un peu près compris.

Merci à Bientôt !

Ps :le bouton annulé n'interrompa la procedure si je reprend comme ex le code msbox,

si j'annulle au moment de choisir mon fichier , la valeur rep est null mais est prise en compte et le msgbox retourne la valeur null.
Il faut traiter la valeur vérifier si elle est pas null pour afficher ou pas le msgbox.