Recuperer liste des documents

Marsh Posté le 06-06-2013 à 13:34:40

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

Reply

Marsh Posté le 06-06-2013 à 13:34:40

Reply

Marsh Posté le 06-06-2013 à 13:59:00

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

Reply

Marsh Posté le 06-06-2013 à 14:07:18

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

Reply

Marsh Posté le 06-06-2013 à 14:16:35

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

Reply

Marsh Posté le 06-06-2013 à 15:40:05

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

Reply

Marsh Posté le 06-06-2013 à 18:08:46

comment integrer cette recherche dans le code?
merci

Reply

Marsh Posté le 06-06-2013 à 18:49:53

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

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

Reply

Marsh Posté le 10-06-2013 à 15:37:19

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

Reply

Marsh Posté le 10-06-2013 à 16:06:48

Toujours dans les arguments de la fonction Dir …

Reply

Recuperer liste des documents

Sujets relatifs:

Leave a Replay