VBA : récupérer un chemin de fichier fluctuant

Version imprimable

09/10/2017, 16h27
Aymeline

VBA : récupérer un chemin de fichier fluctuant
Bonjour,
J'ai cherché et essayé plusieurs solutions mais n'ai rien trouvé qui soit opérationnel : j'ai besoin de récupérer des chemins d'accès & noms de fichiers qui peuvent être fluctuants car manipulés par plusieurs personnes. Concrètement pour un mailing je dois récupérer les chemins des différents disponibles de la semaine suivante.
1/ Répertoire parent identique à celui du classeur où se trouve la macro récupéré avec le workbook.path
2/ sous dossier défini par exemple "GAMME"
3/ sous-dossier contenant le n° de la semaine mais pouvant être appelé Semaine 41 ou semaine 41 ou sem 41 avec ou non des caractères derrière
4/ nom du fichier contenant le n° de sem et le nom du tarif défini dans mon classeur ou dans la macro (par exemple NET)

J'ai testé avec "*", "*[a-z]*", rien n'a fonctionné. Je précise qu'à chaque fois il n'y a qu'un sous-dossier ou nom de fichier remplissant les critères. J'avais réussi à inclure un nom de feuille partiel dans une formule une fois et il me trouve toujours le nom de la feuille en entier donc je me dis que ça doit être possible...

Dernier code testé :
Code:

1 2 dossier = ThisWorkbook.Path Set fich_gamme_net = Workbooks.Open(dossier & "\GAMME\" & "*[a-z]*" & nosem & "\" & "*[a-z]*" & nosem & "*NET*" & ".xls")
Génère un message d'erreur disant qu'il est impossible d'ouvrir le fichier avec les *[a-z]* apparaissant tels quels dans le nom du fichier

Code avec nom de feuille partiel qui fonctionne :

Code:

cell.Offset(0, -14).FormulaR1C1 = "=VLOOKUP(R[0]C[6],'export*'!R1C1:R9500C4,2,FALSE)"

export étant suivi de la date de l'export et donc variable
dans la formule de ma cellule j'ai bien le nom de la feuille en entier.

J'espère avoir été suffisamment claire, c'est pas simple à expliquer.

Merci d'avance pour votre aide :)

Bonjour,

Le simple semble de procéder par étape, en utilisant la fonction Dir().
Par exemple :

Code:

1
2
3
4
5
6
7
8
DPath = ThisWorkbook.Path
FPath = Dir(DPath & "\*em*" & NumSem & "*", vbDirectory)
If FPath <> "" Then
    FName = Dir(DPath & "\" & FPath & "\*" & NumSem & "*" & Tarif & "*")
    If FName <> "" Then
        MsgBox "Vous pouvez ouvrir le fichier : " & DPath & "\" & FPath & "\" & FName
    End If
End If

Citation:

Envoyé par Ben_L

Bonjour,

Le simple semble de procéder par étape, en utilisant la fonction Dir().
Par exemple :

Code:

1
2
3
4
5
6
7
8
DPath = ThisWorkbook.Path
FPath = Dir(DPath & "\*em*" & NumSem & "*", vbDirectory)
If FPath <> "" Then
    FName = Dir(DPath & "\" & FPath & "\*" & NumSem & "*" & Tarif & "*")
    If FName <> "" Then
        MsgBox "Vous pouvez ouvrir le fichier : " & DPath & "\" & FPath & "\" & FName
    End If
End If

Bonjour,
Merci pour la réponse rapide :)
Il manque le niveau 2, j'ai essayé d'adapter ainsi mais ça ne fonctionne pas :

Code:

1
2
3
4
5
6
7
8
9
DPath = ThisWorkbook.Path
DPath = ThisWorkbook.Path
FPath = Dir(DPath & "\GAMME\*" & nosem & "*", vbDirectory)
If FPath <> "" Then
    Fname = Dir(DPath & "\" & FPath & "\*" & nosem & "*" & "NET" & "*")
    'If FName <> "" Then
        MsgBox "Vous pouvez ouvrir le fichier : " & DPath & "\" & FPath & "\" & Fname
    'End If
End If

Il manque le sous dossier GAMME et le nom de fichier dans ce qui ressort dans la msgbox

Ah oui, j'ai oublié le point 2... :oops:

Vous pouvez essayer le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 DPath = ThisWorkbook.Path FPath = Dir(DPath & "\GAMME\*" & nosem & "*", vbDirectory) If FPath <> "" Then Fname = Dir(DPath & "\GAMME\" & FPath & "\*" & nosem & "*NET*") If FName <> "" Then MsgBox "Vous pouvez ouvrir le fichier : " & DPath & "\GAMME\" & FPath & "\" & Fname Else MsgBox "Il n'a pas été possible de trouver le fichier associé à la semaine " & nosem & " !", vbCritical End If Else MsgBox "Il n'a pas été possible de trouver le dossier associé à la semaine " & nosem & " !", vbCritical End If
Attention cependant : la méthode ci-dessus caractérise très peu les noms de dossiers1 et de fichiers. Elle est donc peu robuste.
Si le nom de fichier obtenu n'est pas celui souhaité, il est possible d'améliorer le tout en scannant tous les fichiers/sous-dossiers d'un dossier et en cherchant un schéma orthographique donné par l'utilisation, soit de 'opérateur Like, soit d'expressions régulières (plus puissant mais nécessite l'ajout d'une référence).

09/10/2017, 21h36
patricktoulon

re

bonsoir
visiblement ton fichier a nom fluctuant se trouve dans un sous dossier (avec un nom fluctuant aussi) du dossier"GAME" qui lui même est enfant de thisworbook.path

étant donné que seul le chemin et seul un, partie du sous dossier est connu et seul 1 ou 2 morceaux du nom du fichier recherché est connu

il va te falloir parcourir dossier et sous dossier jusqu'au fichier en partant de la racine connu soit thisworkbook.path & "\game\"
on peut déjà parler de fonction récursive avec dir tu a des exemples dans les contributions

a chaque sous dossier on le parcourt
je te ferais un exemple demain quand tu aura un peu cherché
des exemples il y en a à foison

Merci pour vos réponses.

J'ai simplifié la macro en ajoutant une formule dans une feuille Excel existante pour fusionner les étapes 1 & 2, et ça donne :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 dossier = Sheets("Données").Range("D7").Value tarif = NET dossier_sem = Dir(dossier & "*" & numsem & "*", vbDirectory) If dossier_sem <> "" Then PJ = Dir(dossier & dossier_sem & "\*" & numsem & "*" & tarif & "*") If PJ <> "" Then MsgBox "Vous pouvez ouvrir le fichier : " & dossier & dossier_sem & "\" & PJ Else MsgBox "Il n'a pas été possible de trouver le fichier associé à la semaine " & numsem & " !", vbCritical End If Else MsgBox "Il n'a pas été possible de trouver le dossier associé à la semaine " & numsem & " !", vbCritical End If
Le but est de remplir ce tableau qui référence les pièces à joindre :
Dispo 1 Dispo 2 Dispo 3
Tarif 1 ou 1bis
Tarif 2
Tarif 3
En fait j'aimerais faire varier les variables dossier et tarif pour remplir mes 9 cases sans avoir à répéter tout le code à chaque fois, ce qui fonctionnerait mais est assez fastidieux et difficile à entretenir.
Est-ce là que les fonctions récursives vont pouvoir m'être utiles? J'avoue être restée sur des fonctions basiques jusque là. Je vais chercher et reviens vers vous si je rame trop, ce qui sera sûrement le cas ;)

Merci encore

10/10/2017, 16h00
Ben_L

Attention, il manque des guillemets à la ligne 2 de votre code :

Code:

tarif = "NET"

Quant à l'application du code sur diverses valeur, nul besoin de fonctions récursives.
Il vous suffit d'inclure le code dans une Sub qui prendra des arguments (a priori nosem et tarif, voire également dossier).
Appeler ensuite cette Sub dans une boucle. Les arguments peuvent être stockés dans une plage de données ou dans un tableau VBA.
10/10/2017, 16h19
Aymeline

Citation:

Envoyé par Ben_L

Quant à l'application du code sur diverses valeur, nul besoin de fonctions récursives.
Il vous suffit d'inclure le code dans une Sub qui prendra des arguments (a priori nosem et tarif, voire également dossier).
Appeler ensuite cette Sub dans une boucle. Les arguments peuvent être stockés dans une plage de données ou dans un tableau VBA.

Mais oui j'aurais dû y penser, c'est pas comme si j'avais pas déjà utilisé la fonction For... :roll: Pourquoi faire simple quand on peut faire compliqué ! J'ai déjà les arguments dans des plages en plus :mur: :mur: :mur:

Je reviens mettre le code final une fois que tout fonctionne.

Merci encore !
10/10/2017, 18h27
unparia

Bonjour,
La "fonction" For ?
Je ne connais aucune fonction de ce nom !

Une fonction est une procédure qui retourne une valeur.
Quelle est donc cette "fonction" For et que retourne-t-elle ? :koi:

Ne me dis surtout pas que je "pinaille", sinon j'utiliserais des mots comme truc, machin, chouette, etc ... pour désigner n'importe quoi dans les réponses que je serais éventuellement amené à te faire. Et on verra ta tête.
Les mots ont un sens et une importance. Leur utilisation correcte est la marque de la bonne compréhension que l'on a des choses traitées.

Comme promis voici le code final fonctionnel :

Code:

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
i = 1 ' rang dossier (colonne)
j = 1 'rang tarif (ligne)
 
For Each cell In Sheets("Données").Range("E7:G7")
dossier = cell.Value
 
    For Each cell2 In Sheets("Données").Range("B2:B4")
    tarif = cell2.Value
 
    If i = 3 Then
        dossier_sem = Sheets("Données").Range("G6").Value ' pas de sous dossier par semaine
        Else: dossier_sem = Dir(dossier & "*" & numsem & "*", vbDirectory)
    End If
    If dossier_sem <> "" Then
        PJ = Dir(dossier & dossier_sem & "\*" & numsem & "*" & tarif & "*")
        If PJ <> "" Then 'si fichier trouvé
            'MsgBox "Vous pouvez ouvrir le fichier : " & dossier & dossier_sem & "\" & PJ
            Sheets("Mail").Cells(5 + j, 8 + i).Value = dossier & dossier_sem & "\" & PJ 'H8 = début du tableau à remplir
 
 
        Else ' si fichier non trouvé
            MsgBox "Il n'a pas été possible de trouver le fichier associé à la semaine " & numsem & " !", vbCritical
        End If
    Else ' si dossier semaine non trouvé
        MsgBox "Il n'a pas été possible de trouver le dossier associé à la semaine " & numsem & " !", vbCritical
    End If
 
    j = j + 1
    Next cell2
 
i = i + 1
j = 1
Next cell

Grand merci à Ben_L pour son aide précieuse :)