Discussion :

[isfet]

Bonjour n'ayant pas trouvé la solution au problème d'avant, j'ai décidé de passer par une autre voie..

il faut que je recupere un chemin comme celui ci (sur mon ordinateur) a l'aide de ma macro pour ouvrir les fichier s'y trouvant :

\\Wcdcellrn03\c$\Bench\Test\Result\DXL401472.001

sachant que j'ai déja en parametre \\Wcdcellrn03\c$\Bench\Test\Result\ et 401472 et que les autres sont des caractères plus ou moins aléatoires mais tjr le meme nombre 3 (DXL, ABC, DEJ) et 4 ( .001 .002 .003)

il me faut un dossier, mais je n'aurais pas le nom complet du dernier sous repertoire quand j'utiliserai la macro, juste son identifiant, symbolisé par le nombre a 6 chiffre, mais comment recuperer l'adresse entiere ? quelle fonction devrais-je utiliser ?

Je n'arrive pas a faire un genre d'expression réguliere, ChDir ( like "\\Wcdcellrn03\c$\Bench\Test\Result\*401472.*" ) c'est ce qu'il me faudrait pour acceder a mon repertoire enfin je pense !

[sabzzz]

bonjour isfet,

une possibilité serait d'utiliser une boite de dialog FileDialogFolderPicker

Code :

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

1
2
3
Sub test()
répertoire = ChoixRépertoire
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Function ChoixRépertoire()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
     With fd
      .AllowMultiSelect = False
      .Show 'afficher la boite de dialogue
      ChoixRépertoire = .SelectedItems(1)
     End With
End Function

[isfet]

Après 5h de recherche j'ai enfin trouvé (merci sousou)

voici le bout de code

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
Private Sub Parcourir_Click()
Dim k
Dim dir_suffixe As String
 
k = Dir(dir_test, vbDirectory) 'dir test correspond à \\Wcdcellrn03\c$\Bench\Test\Result\
 
While k <> ""
 
n = InStr(k, CStr(Val(test_number_str))) ' test number string correspond à 401472
If n <> 0 Then
dir_suffixe = k
End If
k = Dir()
Wend
Label1.Caption = dir_suffixe ' affichage de DXL401472.001 
 
End Sub