Recuperer liste des documents

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Recuperer liste des documents

86vomito33

bonjour à tous,

J'ai en donnée d'entrée une reference du type SXXX XXXXX XXX XX et un dossier source cible dans lequel les fichiers pdf sont classés dans des repertoires SXXX

dans mon fichier excel j'ai 20 lignes de références. je souhaie pour chacune lister dans une cellule tous les fichiers pdf commancant par SXXX XXXXX XXX

pour cela j'ai fait le code suivant

Code :

Sub RechercheSDF()
Dim Chemin As String, Fichier As String
'Définit le répertoire contenant les fichiers
Chemin = Sheets("Chemin" ).Range("A1" ).Value
For i = 4 To Sheets("Liste" ).Range("C65000" ).End(xlUp).Row Step 1
txt = ""
RefS = Mid(Sheets("Liste" ).Cells(i, 3), 1, 4)
Ref5 = Mid(Sheets("Liste" ).Cells(i, 3), 5, 5)
ref3 = Mid(Sheets("Liste" ).Cells(i, 3), 10, 3)
'Boucle sur tous les fichiers xls du répertoire.
Fichier = Dir(Chemin & "\" & RefS & "\*.pdf" )
ct = 1
Do While Fichier <> ""
test = InStr(1, Fichier, "-" )
T5A = Mid(Fichier, 5, 5)
T5B = Mid(Fichier, 6, 5)
T3A = Mid(Fichier, 1, 3)
T3B = Mid(Fichier, 1, 3)
T3C = Mid(Fichier, 1, 3)
T3D = Mid(Fichier, 1, 3)
If (T5A = Ref5 Or T5B = Ref5) And (T3A = ref3 Or T3B = ref3 Or T3C = ref3 Or T3D = ref3) Then
txt = txt & Chr(10) & Fichier
End If
Fichier = Dir()
ct = ct + 1
Loop
Sheets("Liste" ).Cells(i, 6) = txt
Next i
End Sub

Le résultat reste nul malgres le fait que j'ai bien des fichiers correspondants à ma référence

Savez vous ce qui se passe ?

Merci de votre aide

Publicité

86vomito33

ca me parait suspect tous ces liens (virus ?)

petite précision les T5A B et T3A,B,C,D viennent du fait que les références ont différents formats
SXXXXXXXXXXXXX
SXXX-XXXXXXXXXX
SXXX-XXXXX-XXXXX
SXXX-XXXXX-XXX-XX

Marc L

Bonjour,

je ne vois pas l'intérêt de quatre variables contenant la même valeur (lignes n°23 à 26 + test de la ligne n°27) …

Sinon je suspecte tellement d'incohérences (me trompe-je peut-être ? …) que plutôt d'écrire un roman,
cela serait plus simple de détailler ta demande et tes critères agrémentés d'un exemple clair …

Message édité par Marc L le 06-06-2013 à 15:31:24

86vomito33

je suis telement plongé dans ce sujet que je ne me suis meme pas apercu que j'avais oublié de modifier les 4 variables (qui doivent etre différentes vu que les références ont plusieurs formats

je regarde ca

Marc L

Ne serait-il pas plus simple d'effectuer une recherche sur les fichiers pdf commençant par S ? (S*.pdf)

S'il faut respecter une structure à la lettre, la recherche devrait alors s'effectuer comme ceci :

SXXXXXXXXXXXXX : S?????????????.pdf
SXXX-XXXXXXXXXX : S???-??????????.pdf
SXXX-XXXXX-XXXXX : S???-?????-?????.pdf
SXXX-XXXXX-XXX-XX : S???-?????-???-??.pdf

86vomito33

comment integrer cette recherche dans le code?
merci

Marc L

Directement dans la fonction Dir , par exemple pour tous les fichiers pdf commençant par S :

Fichier = Dir(Chemin & "\S*.pdf" )

86vomito33

en changeant les 4 variables c bizarres mais ca fonctionne

Marc L, le test des fichiers pdf commencant par S n'est pas possible (ce n'est pas vrai tout le temps)

Par contre comment géréer des S????????????.pdf ? je ne vois pas comment les intégrer

Merci pour votre aide

Marc L

Toujours dans les arguments de la fonction Dir …

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Recuperer liste des documents

Sujets relatifs
Récupérer valeur entre deux balises	recuperer la valeur castée d'une cle de registre
Récupérer les lignes sous forme de liste	[PHP] débutant, liste déroulante
liste aléatoire sous Excel	Récupérer des données dans plusieurs fichiers
liste langage C (bug compilation code blocks)	lire documents\|. Txt; .Rtf ;* . Docs ;* . PDF ;* . Xlsx dans Picture
recuperer id en ajax/php
Plus de sujets relatifs à : Recuperer liste des documents

Page générée en 0.056 secondes