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.

[clementmarcotte]

Bonjour,

Malheureusement , je pense que ce n'est pas possible.

Même chose pour moi.

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

Dans le cas d'un classeur particulier, rien ne t'empêche, qu'au moment où ta macro change de dossier, de le noter à quelque part sur une feuille de calcul dans un endroit où tu es sûr qu'elle ne sera pas écrasée ou modifiée par accident.

Tu risques d'avoir besoin de lancer Excel comme administrateur, mais VBA fournit SaveSetting ou SaveSettings (je ne me souviens plus) et GetSetting pour conserver et récupérer des informations dans le registre. (Il me semble qu'il y a aussi moyen de le faire avec FileSystemObject.)

Tu peux aussi te faire un petit fichier texte d'une ligne avec ton information

Ou, en faisant du zèle, utiliser l'API Windows pour en faire un fichier .ini. Mais, j'ai bien dit que c'était faire du zèle

[tamtam64]

Merci pour ton aide, mais je vais rester dans quelque chose que je maitrise , je n'aime pas trop utiliser des choses que je ne maitrise pas , mais peut etre lors d'une amelioration effectivement, je me mettrais aux api quand je serais au point .
Mais la j'ai fais mon programme et ca marche trés bien . Merci je clos le sujet

[joe.levrai]

Bonjour,

tu souhaites récupérer le dossier le plus récent parmi une liste de sous dossier dont le lien du folder parent est dans ton fichier excel ?
ensuite tu dois réaliser une action sur chaque classeur du dossier ?

si tous les sous dossiers de ton dossier parent sont sur le format yyyymmdd, je ne comprend pas la difficulté

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
Option Base 1
Sub test1234()
    Dim Folder As Object
    Dim Fichier As Object
    Dim folderPath As New Scripting.FileSystemObject
    Dim TabFold() As Date
    Dim Nom As String
 
    ' tableau des noms de dossiers convertis en jj/mm/aaaa
    ReDim TabFold(1)
    For Each Folder In folderPath.GetFolder(ThisWorkbook.Worksheets("Feuil1").Range("A1")).SubFolders
        Nom = Right(Folder.Name, 2) & "/" & Mid(Folder.Name, 5, 2) & "/" & Left(Folder.Name, 4)
        If IsEmpty(TabFold(1)) Then
            TabFold(1) = Nom
        Else
            ReDim Preserve TabFold(UBound(TabFold) + 1)
            TabFold(UBound(TabFold)) = Nom
        End If
    Next Folder
 
    ' tri
    For i = LBound(TabFold) To UBound(TabFold) - 1
        For j = i + 1 To UBound(TabFold)
            If TabFold(i) > TabFold(j) Then
                Temp = TabFold(j)
                TabFold(j) = TabFold(i)
                TabFold(i) = Temp
            End If
        Next j
    Next i
 
    'détection du plus récent
    Nom = TabFold(UBound(TabFold))
    Nom = Right(Nom, 4) & Mid(Nom, 4, 2) & Left(Nom, 2)
 
    ' instanciation du dossier
    Set Folder = folderPath.GetFolder(ThisWorkbook.Worksheets("Feuil1").Range("A1")).SubFolders(Nom)
 
    ' boucle sur les fichiers
    For Each Fichier In Folder.Files
            ' cherche tes fichiers Excel ici
    Next Fichier
End Sub

[kiki29]

Salut, à consulter : Manipulation des fichiers en VBA, il y a, il me semble, un exemple de recherche récursive, après il faudra l'adapter à ton contexte. Voir également dans la FAQ