Discussion :

[phal2ip]

Bonjour,
dans un de mes programmes je voudrais faire apparaitre l'explorateur Windows et je ne sais pas si c'est faisable ou non?
Quelqu'un pourrait-il m'aider?
Je précise que je voudrais ouvrir l'explorateur et non pas la boite de dialogue Ouvrir car je voudrais simplement que la personne puisse vérifié l'existence d'un dossier ou non...
A moins que je puisse faire cette vérification moi même automatiquement...

Merci

[aalex_38]

Bonjour,

Avec VBA on peut faire beaucoup de chose, le mieux serait que tu précises ce que tu voudrais faire exactement, ensuite tu pourras adapter.

Parce que je suis sympa, je te donne un exemple pour tester l'existence d'un répertoire à adapter :

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
sub unexemple ()
 
Dim RepSource As String
    If Not DossierExiste(RepSource, True) Then
        MsgBox "Le repertoire " & RepSource & " n'existe pas."
        Exit Sub
    End If
end sub
Function DossierExiste(ByRef NomDossier As String, BchoixR As Boolean) As Boolean
DossierExiste = Dir(NomDossier, vbDirectory) <> ""
 
If DossierExiste Then:       Exit Function:
 
Dim libdos As String
If Not NomDossier = Empty Then
    libdos = "[Le dossier " & NomDossier & " n'existe pas !]"
End If
 
If BchoixR = True Then
    Dim Dossier As FileDialog
    Set Dossier = Application.FileDialog(msoFileDialogFolderPicker)
    With Dossier: .AllowMultiSelect = False
        .InitialFileName = CurDir
        .Title = "Choix du dossier" & libdos
        If .Show = -1 Then: NomDossier = .SelectedItems(1) & "\": DossierExiste = True:
    End With
End If
 
End Function

Nb: Attention Repsource sera modifié après l'appel de la fonction

[phal2ip]

Merci pour cette première esquisse..
Je fais le test et vous tient au courant.
Par contre que veux tu dire par :
Nb: Attention Repsource sera modifié après l'appel de la fonction

Merci

[aalex_38]

Dans l'exemple que je t'ai donné, on appelle la fonction DossierExiste avec la variable RepSource qui contient le nom du repertoire.

Dans la fonction "ByRef NomDossier As String" signifie que l'on passe la variable par référence, donc si la variable NomDossier est modifiée dans la fonction RepSource sera modifié au retour de la fonction, j'ai fait ça afin de pouvoir modifier directement le nom du repertoire trouvé.
En géneral on prefère travailler ByVal ce qui ne modifie pas la variable, par exemple on appele une fonction qui retourne un string et on modifie ensuite :

Exemple :

Code :

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

1
2
3
4
5
6
NouveauNom = DossierExiste(RepSource, True)
if NouveauNom > '' then
'....
 
Function DossierExiste(ByVal NomDossier As String, BchoixR As Boolean) As String
'....

[mercatog]

Bonjour Phal2, aalex
si je me permet de proposer, une discussion similaire http://www.developpez.net/forums/d80...rcher-dossier/

[phal2ip]

Merci à tous ça marche à merveille