rechercher un dossier en VBA sous Excel

Version imprimable

14/11/2015, 12h04
cbaby

rechercher un dossier en VBA sous Excel

Bonjour,

je souhaite rechercher un dossier sur le disque en fonction d'une chaine de caractère figurant dans une cellule d'une feuille excel:

le but est d'enregistrer le fichier contenant 15.0040 dans une cellule définie du fichier dans le dossier "15.0040 KKKKK"

on m'a proposé d'utiliser la fonction FileSystemObject mais cela ne fonctionne pas en vba excel.

Merci de vos réponses
14/11/2015, 12h23
SfJ5Rpw8

Bonjour,

"FileSystemObject " fonctionne bien avec excel... voir ici http://warin.developpez.com/access/fichiers/

mais que veux tu faire exactement ?

je ne comprends pas la phrase :

Citation:

le but est d'enregistrer le fichier contenant 15.0040 dans une cellule définie du fichier dans le dossier "15.0040 KKKKK"

à quoi correspond la chaîne de caractère contenu dans ta celllule ? est-ce le nom du fichier recherché ? une partie du nom ? ...
14/11/2015, 12h57
cbaby

j'ai un fichier excel en mode lecture seul qui me sert de modèle
sur ce fichier figure sur cellule 3,6 le nom de l'affaire "15.0040"

lorsque j'ai fini le traitement du fichier, je lance une macro qui doit me l'enregistrer dans un dossier dont le nom est "15.0040 gfesjsjhvsj"
pour cela je dois rechercher le dossier comprenant dans son nom "15.0040", recupérer son chemin et ensuite enregistrer le fichier dedans

le nom du fichier est généré à partir d'une autre cellule du fichier
14/11/2015, 14h04
SfJ5Rpw8

ok "15.0040" c'est une partie du nom de ton dossier ... mais où cherche tu ce dossier ? sur le Net ? ... sur un de tes disques durs.... ? essai de nous en dire plus du dois bien pouvoir limité la recherche .. à un dossier ..? ou un dossier et ses sous dossiers... ..

est-tu sur que l'on ne trouveras qu'un seul dossier contenant le texte "150040" dans son nom ?
14/11/2015, 17h33
cbaby

Je cherche le dossier dans un dossier nommé affaires et il n'existe qu'un seul dossier ayant un nom précis d'affaire

ce dossier est physiquement sur mon dd

l'arborescence des dossiers est la suivante:

c:\\user\cbaby\dropbox\affaires

le fichier de traitement est situé dans ce dossier

le dossier cible est dans c:\\user\cbaby\dropbox\affaires\2015\

à priori tu aurais des sous-répertoire par années ...? l'année ferait partie des information connues?

Par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub MonTestRepertoire
Dim stRep as string 'Répertoire de recherche 
Dim stFichier as string 'Fichier ..
 
stRep = "c:\user\cbaby\dropbox\affaires\2015\"
 
stFichier = Dir( stRep & "*" & ThisWorkBook.sheets("Mafeuille").cells(3,6) & "*")
 
 
if stFichier <> "" then
   msgbox "Fichier trouvé : " & vbCrlf & stREp & stFichier
else
   msgbox "Pas de fichier avec filtre : " & "*" & ThisWorkBook.sheets("Mafeuille").cells(3,6) & "*"
endif
 
End sub

14/11/2015, 19h57
cbaby

oui l'arborescence des affaires est

affaires\2015\15.MRS.XXXX MARSEILLE AFFAIRE MACHIN
15/11/2015, 13h19
cbaby

Merci pour le code, mais il recherche des fichiers et non des dossiers

Que faut-il modifier pour rechercher des dossiers ?
15/11/2015, 13h34
SfJ5Rpw8

salut,

regarde l'aide en ligne de DIR ..

de mémoire cela doit-être

Code:

stFichier = Dir( stRep & "*" & ThisWorkBook.sheets("Mafeuille").cells(3,6) & "*",vbDirectory)
15/11/2015, 16h04
cbaby

Re-salut

Code:

stFichier = Dir( stRep & "*" & ThisWorkBook.sheets("Mafeuille").cells(3,6) & "*",vbDirectory)

me renvoie ""

as-tu un lien pour l'aide sur dir ?
15/11/2015, 16h28
cbaby

PB RESOLU!!!!!

NICKEL

ça marche parfaitement avec VbDirectory!!!!

Merci beaucoup!!!!!