Recherche nom dans un répertoire

Bonjour,

je suis à la recherche d'un code car je n’arrive pas à le faire pour trouver un dossier correspondant je m'explique:

j'ai déjà une partie du répertoire mais le dossier final change à chaque nouvel achat

DA 2019-110 renault

DA 2019-111 peugeot

DA 2019-112 citroen

je ne peux donc pas ouvrir le fichier avec son nom de répertoire car le client change en fin d'adresse

Comment je peux faire une recherche "DA 2019-110" et qu'il me sorte "DA 2019-110 renault".

Merci d'avance

Bonjour,

Avec le minimum nombre d'éléments que tu fournis ...

Il te suffit de rechercher "DA 2019-110" & "*"

oups j'ai oublié de mettre le vba

Sub Ouvre()

Dim MonDossier As String

MonDossier = "\\GAMMA3\Sacatec\Achats\Partage\DA\DA 2019\DA 2019-150" & "*"

Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus

End Sub

Re,

Quel résultat as-tu de ton test ...?

Pourquoi ta partie variable du mon de ton fichier ... n'est-elle pas justement stockée ... dans une variable ...???

en faite c'est un fichier ou je ressence toutes nos demandes d'achats

ce fichier après je m'en sert pour faire des comptes rendu sauf qu'en fin de mois je passe beaucoup de temps à aller chercher des données dans ces fichiers

Chaque demande d'achat est numéro par DA "Année"-"numéro" "fournisseur"

Donc je voulais faire une recherche de DA "Année"-"Numéro" mais cela ne fonctionne pas il ouvre juste documents car je pense qu'il ne trouve pas par contre si je fait la même chose avec le dossier parent soit

Sub Ouvre()

Dim MonDossier As String

MonDossier = "\\GAMMA3\Sacatec\Achats\Partage\DA\DA 2019"

Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus

End Sub

ça fonctionne

Content que tout fonctionne ...

justement non ça fonctionne pas car je veux ouvrir le répertoire du dossier final et non le parent

\\GAMMA3\Sacatec\Achats\Partage\DA\DA 2019\DA 2019-110 Radiospares

et quand je fais du coup

Sub Ouvre()

Dim MonDossier As String

MonDossier = "\\GAMMA3\Sacatec\Achats\Partage\DA\DA 2019\DA 2019-110" & "*"

Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbNormalFocus

End Sub

ça ne fonctionne pas

Re,

Est-ce-que tu parles de fichiers Excel ou pas ?

Si oui ... Workbooks.Open ... fonctionne ... je viens de le re-tester ...

Pourquoi utilises-tu Shell et Explorer ...???

oui je parles bien de fichier excel

j'ai donc testé avec workbook.open

Sub Ouvre()

Dim MonDossier As String

MonDossier = "\\GAMMA3\Sacatec\Achats\Partage\DA\DA 2019\DA 2019-110" & "*" & "\DA 2019-110.xls"

Workbooks.Open Filename:=MonDossier

End Sub

ça ne fonctionne pas non plus

il me dit nous sommes désolé impossible d'ouvrir \\GAMMA3\Sacatec\Achats\Partage\DA\DA 2019\DA 2019-110*\DA 2019-110.xls

ce qui est logique car à la place de * il y a le nom d'un fournisseur

et après il me dit erreur 1004

nom du fichier ou chemin n'existe pas

ce fichier est actuellement utilisé par un autre programme

le classeur que vous essayez d'enregistrer porte le même nom

j'ai utiliser Shell et explorer car c'était un code que j'avais trouvé pour chercher le nom complet du répertoire pour après faire une ouverture

Re,

Tu dis que tu as testé ...

Mais tu ne dis pas ... si cela fonctionne ou pas ...

ba ça ne fonctionne pas vu qu'il me met une erreur

b.vincent a écrit :

ba ça ne fonctionne pas vu qu'il me met une erreur

Re,

Tu voudrais que je devine les erreurs que tu as sous les yeux ...!!!

A tester le code suivant ...

Sub Ouvre()
Dim MonDossier As String
MonDossier = "\\GAMMA3\Sacatec\Achats\Partage\DA\DA 2019\DA 2019-110" & "*" & ".xls"
Workbooks.Open Filename:=MonDossier
End Sub

Non pas besoin de deviner car j'ai tout détaillé avant

même avec ton code cela ne fonctionne pas

il ne trouve pas le dossier qui contient le xls

Je ne sais pas comment lui dire de chercher dans le répertoire DA 2019 un dossier qui contient DA 2019-110

A partir de la il trouverais