Discussion :

[Aymeline]

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 :

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

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 :

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

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

[Ben_L]

Bonjour,

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

Code :

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

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

[Aymeline]

Bonjour,

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

Code :

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

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 :

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

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

[Ben_L]

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

Vous pouvez essayer le code suivant :

Code :

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

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).

[patricktoulon]

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

[Aymeline]

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 :

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

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