Discussion :

[cbaby]

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

[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 :

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

[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

[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 ?

[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\

[SfJ5Rpw8]

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


Par exemple :

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