2 directions dans ChDir

P

Pierrot93

Guest

• 18 Avril 2006

• #2

Bonjour DarkBlaste

essaies le code ci dessous ca devrait marcher


Public Const MonRepert = 'D:\\DONNEES\\'
Sub Test()
Dim fs As FileSearch
Set fs = Application.FileSearch

With fs
.LookIn = MonRepert
.FileName = 'nom du fichier recherché'
If .Execute = 0 Then
MsgBox 'Le fichier n'existe pas !!!'
Else


End If
End With

End Sub

 

Vote positif 0 Vote négatif

D

Darkblaste

Guest

• 18 Avril 2006

• #3

Salut Pierrot93

Heu dsl mais je comprend pas trop ton code la comment il va chercher mes fichiers dans 2 repertoir different par exemple:

Code:

\\VBA\\rep1
\\VBA\\rep5

Merci

Ps: c'est quoi ta constante Const?? et je fait ça à partir d'un userform

Merci

Message édité par: Darkblaste, à: 18/04/2006 11:56

 

Vote positif 0 Vote négatif

P

Pierrot93

Guest

• 18 Avril 2006

• #4

Re

Ce bout de code permet de rechercher 1 fichier dans tous les dossiers, sous dossiers, 'D😀ONNEES\\' (D est la lettre du disque dur). Pour toi si tu veux rechercher dans VBA la constante sera C:VBA\\

Une constante est un élément nommé, que tu utilise dans le code, un peu comme une variable, qui garde la même valeur tout au long de lexécution.

Tu éxécute le tout au travers dune macro et non dun userform.

@+

 

Vote positif 0 Vote négatif

D

Darkblaste

Guest

• 18 Avril 2006

• #5

Ok merci Pierrot93 mais en fait je souhaite integrer a ma macro la possibilité de lister les fichier xls dans 2 repertoires en meme temps

Je m'étais trompé de bou de code dsl 😱 :

 

Vote positif 0 Vote négatif

P

pierrot93

Guest

• 18 Avril 2006

• #6

Re

il faut remonter d'un ou de 2 crans dans l'arborescence, prendre le dossier le plus haut qui contient les 2 répertoires. Je ne connais pas la façon dattaquer 2 répertoires différents si ce nest doubler la macro. Essaies le code ci dessous, n'oublies pas de modifier les noms des dossiers dans la définition de la variable MonRepertoire (tu peux en supprimer ou rajouter).

bon courage

Sub RechFichier()
Dim MonRepertoire As String

Set fs = Application.FileSearch
MonRepertoire = 'C:\\nomdudossier\\nomdudossier\\nomdudossier '
With fs
.LookIn = MonRepertoire
.FileName = '*.*'
If .Execute > 0 Then
MsgBox 'Ce dossier contient ' & .FoundFiles.Count & _
' fichier(s) répondant aux critères.'
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
Else
MsgBox 'Aucun fichier n'a été trouvé.'
End If
End With

End Sub

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 18 Avril 2006

• #7

bonjour darkblast, pierrot

ce type de code liste dans les colonnes 1 et 2 les fichiers se trouvant dans 2 chemins different.

Public Sub toto()
Dim rep As String
Dim chemin
Dim Ligne As Integer
Dim colonne As Byte
Dim element

For Each chemin In Array('C:\\\\\\\\WINDOWS\\\\\\\\system\\\\\\\\*.???', 'C:\\\\\\\\WINDOWS\\\\\\\\system32\\\\\\\\*.???')
        Ligne = 1
        If colonne = 0 Then colonne = 1 Else colonne = 2
        rep = Dir(chemin)
        While not rep = ''
                Cells(Ligne, colonne) = rep
                rep = Dir
                Ligne = Ligne + 1
        Wend
Next chemin


End Sub

Cliquez pour agrandir...

les chemins sont stockés dans le array.

salut

 

Vote positif 0 Vote négatif

D

Darkblaste

Guest

• 18 Avril 2006

• #8

Ok merci nikel Hervé Merci à toi aussi Pierrot 93

 

Vote positif 0 Vote négatif

D

Darkblaste

Guest

• 18 Avril 2006

• #9

Hervé ça marche nikel mais je n'arrive pas à l'adapter à mon userform
Ce serai possible que je t'envoi mon code pour me dire la ou ça bloque??

Merci

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 18 Avril 2006

• #10

re

bien sur 🙂

comme je suppose que ton fichier est trop gros pour le forum (<50 ko zippé).

soit tu nous fournis un exemple epuré, soit tu nous donne le code qui 'coince'

salut

 

Vote positif 0 Vote négatif

D

Darkblaste

Guest

• 19 Avril 2006

• #11

Ok merci Hervé mais le soucis c'est que je suis rentré tard et la au boulot ni le fichier ni le code passe (je peu pas envoyé plus de 5lignes) donc j'en voie ça des cette fin d'apres midi merci encore

 

Vote positif 0 Vote négatif

D

Darkblaste

Guest

• 19 Avril 2006

• #12

:woohoo: POST RESOLUT

comme quoi la perceverance paye 😛

J'ai trouvé d'ou venai le probleme, j'avai bien adapté ton code Hervé mais le soucis venais de plus loin dans mon code avec la recherche de la taille, de la date et des icones des fichiers dans le chemin... j'ai enlevé donc ces options :whistle:

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 19 Avril 2006

• #13

re

ben, c'est un peu dommage de faire sauter des options à cause d'un code qui bug, non ?

Si j'ai bien compris, tu veux lister dans une listview les fichiers d'un répertoire, ainsi que les icones et les dates.

je te conseille donc la lecture de se post :

Lien supprimé

ou l'ami MichelXLD, à généreusement effectué un superbe travail qui à mon avis devrait t'aider.

salut

 

Vote positif 0 Vote négatif

D

Darkblaste

Guest

• 19 Avril 2006

• #14

Bonsoir Hervé,

Bein en fait c'est a partir de ce fichier que je suis partie, et je tente constament de l'amelioré (c pas mal pour débuté en VBA en plus d'etre tres utile) mais la je bloque sur plusieur petit truck 😛inch:

Je croi que je v creer un autre topic comme le dit la charte ( hé ui je l'ai lu 😛 )donc le probleme n'étant plus trop le meme je vais en faire un autre

Merci a toi pour ton aide tu m'as trés bien aidé
Merci aussi au forum

 

Vote positif 0 Vote négatif