Discussion :

[koKoTis]

Bonjour, j'ai un script pour selectionner un répertoire:

Code :

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

1
2
3
4
5
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
BrowseAndCreate = Folder.items.Item.Path

Je voudrai que si l'utlisateur ne selectionne pas de répertoire la fenêtre se réouvre, j'ai essayer comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sub boucle1
 
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
if Folder.items.Item.Path = "" then boucle1 
 
BrowseAndCreate = Folder.items.Item.Path 
 
end sub

mais ca ne fonctionne pas, sauriez vous m'aider ?

[ced600]

passe ton sub en function qui renvois le path.

[koKoTis]

je ne comprend pas

[ced600]

je ne comprend pas

Bah plutot qu'utiliser un sub fait une fonction. Celle-ci te permet de renvoyer une valeur à la fin de son exécution.
renvois le path comme valeur.

Ceci :

Code :

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

1
2
3
if Folder.items.Item.Path = "" then boucle1 
 
BrowseAndCreate = Folder.items.Item.Path

Deviendra un truc comme :

Code :

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

1
2
3
if Folder.items.Item.Path = "" then
 
BrowseAndCreate = boucle1

et tu finis la fonction par :

Code :

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

boucle1 = BrowseAndCreate

[koKoTis]

je ne sais pas ou placer les ligne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Const BIF_EDITBOX = &H10 
Const BIF_NEWDIALOGSTYLE = &H40 
Set sa = CreateObject("Shell.Application") 
Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
BrowseAndCreate = Folder.items.Item.Path 
 
if Folder.items.Item.Path = "" then
 
BrowseAndCreate = boucle1
 
boucle1 = BrowseAndCreate

[ced600]

Code :

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

1
2
3
4
5
6
7
8
9
10
Set sa = CreateObject("Shell.Application")
Function boucle1 (sa)
   Const BIF_EDITBOX = &H10 
   Const BIF_NEWDIALOGSTYLE = &H40  
   Set Folder = sa.BrowseForFolder(0, "My Computer:", BIF_EDITBOX Or BIF_NEWDIALOGSTYLE) 
   If Folder.items.Item.Path = "" Then
      BrowseAndCreate = boucle1 (sa)
   End If
   boucle1 = BrowseAndCreate 
End Function

?