Discussion :

[tamtam64]

Rebonjour, Je cherche a selectionner, aller dans le sous dossier le plus recent, c'est a dire finalement le dernier. Dans ma feuille le range nommé "Link_Folder" est un lien vers ce folder , puis dans ce folder , j'ai des folder yyyymmdd qui contiennent des workbooks. Mon idee est donc d'y aller de selectionner le nombre( ca c'est bon) et puis le le nom pour ensuite y aller (ca je saurais y aller) mais la mon code me sort une erreur aparement le nom c'est pas possible ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test1234()
    'lien fixe
    Dim NbF As Integer
    Dim Nom As String
    Dim Folder As Folder
    Dim folderPath As New Scripting.FileSystemObject
    NbF = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder")).SubFolders.Count
    Nom = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder")).SubFolders(NbF).Name
 
 
End Sub

[SfJ5Rpw8]

Bonsoir,

....mais la mon code me sort une erreur ...

cela aurais été bien de lire le message d'erreur !



ensuite pense aussi que les index d'une collection commencent à 0 ..

[tamtam64]

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test1234()
    'lien fixe
    Dim NbF As Integer
    Dim Nom As String
    Dim Folder As Variant
    Dim folderPath As New Scripting.FileSystemObject
    NbF = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder")).SubFolders.Count
   Set Folder = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder")).SubFolders
Next Folder
End Sub

erreur d'execution 5

Argument ou appel de procedure incorrect

Oui Oui j'ai essayé tout ce que je pouvais avant de poster , c'est a dire un autre indice , et quand je met un espion on me donne bien les item et le nom , en tipe variant , donc j'ai essayé en mettant en variant mais ca ne marche pas .... c'est vraiment bizarre.

[SfJ5Rpw8]

a oui ... tu dois utiliser For Each :

Code :

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

1
2
3
    For Each Folder In folderPath.GetFolder(ThisWorkbook.Worksheets("Feuil1").Range("A29")).SubFolders
        Nom = Folder.Name
    Next

[tamtam64]

Oui mais moi je ne veux pas parcourir tous les dossiers , je souhaiterais juste prendre le nom du dernier.
Et aparement avec item on pourrait le faire sauf que ca ne marche pas du tt .

Je ne trouve pas la solution meme avec l'espion.

[tamtam64]

Malheureusement , je pense que ce n'est pas possible , je recherche meme sur des sites anglais , apparement c'est pas possible
donc j'ai trouvé une autre solution mais bon c'est pas super mais je la communique pour ceux que ca interesse.

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
Sub test1234()
    'lien fixe
    Dim NbF As Integer
    Dim Nom As String
    Dim Folders As Folders
    Dim MyFolder As Folder
    Dim Lien As String
    Dim i As Long
    Dim folderPath As New Scripting.FileSystemObject
    NbF = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder")).SubFolders.Count
   Set Folders = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder")).SubFolders
   For Each MyFolder In Folders
    i = i + 1
        If i = NbF Then
        Nom = MyFolder.Name
        End If
   Next MyFolder
   Lien = folderPath.GetFolder(ThisWorkbook.Worksheets("DB").Range("Link_Folder") & Nom).Path
End Sub

Voila, je recupere bien le dossier le plus recent, c'est a dire le dernier , puisque les noms des fichiers est une date yyyymmdd

je clos le sujet demain au cas ou quelqu'un veuille rajouter une idee.