Discussion :

[Eric93]

Bonjour,

Mon programme VB est maintenant au point, il me manque juste une chose :

Mon programme lis un fichier, crée plusieurs classeur Excel dans lequel il range et formate les données lus.

J'aimerais ouvrir une boite de dialogue, pour demander à l'utilisateur de choisir le dossier dans lequel il souhaite enregistrer les classeur, puis récupérer le chemin pour l'ajouter avant le nom de fichier.

Je débute en VB, si quelqu'un pouvais me donner une piste.

Merci d'avance

[bidou]

http://vb.developpez.com/faq/?page=Fichiers#select_rep

[Eric93]

Merci bidou, je vais potasser ca

[Eric93]

J'ai bien trouvé le code qui m'interesse : Comment ouvrir une fenêtre de sélection d'un répertoire ?

Je l'ai copié tel quelle et il me fait une erreur de compilation sur l'appel de la fonction : Utilisation incorrecte du mot clé Me

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
 
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, _
    ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, _
    ByVal lpString2 As String) As Long
 
Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
     ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
 
Public Function SelectFolder(Titre As String, Handle As Long) As String
 
Dim lpIDList As Long
Dim strBuffer As String
Dim strTitre As String
Dim tBrowseInfo As BrowseInfo
 
strTitre = Titre
With tBrowseInfo
    .hWndOwner = Handle
    .lpszTitle = lstrcat(strTitre, "")
    .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With
 
lpIDList = SHBrowseForFolder(tBrowseInfo)
 
If (lpIDList) Then
    strBuffer = String(260, vbNullChar)
    SHGetPathFromIDList lpIDList, strBuffer
    SelectFolder = Left(strBuffer, InStr(strBuffer, vbNullChar) - 1)
End If
 
End Function
 
Sub repertoire()
MsgBox SelectFolder("Sélectionnez un répertoire :", Me.Hwnd)
End Sub

J'avoue que je comprend pas trop le code, un peu trop corsé pour mon niveau de débutant, je sait pas trop ce qu'est Me.Hwnd dans l'appel de la fonction

[bidou]

essayes avec application.Hwnd

[SilkyRoad]

bonjour


une autre possibilité

Comment choisir un répertoire (utilisation de BrowseForFolder) ?


et si tu dispose d'OfficeXP ou ultérieur

Comment utiliser la boîte de dialogue FileDialog ?



bonne journée
michel

[Eric93]

Merci, ca à l'air de marcher, il m'ouvre bien une fenetre de sélection de répertoire, mais une fois le répertoire selectionné, il m'ouvre une autre petite fenêtre ou il m'affiche le nom du répertoire que j'ai selectionné.

Moi je ne veux pas afficher ce répertoire, mais le récupérer dans une variable pour enregistrer mes classeur dedans.