Recherche fichiers

Bonjour à toutes et à tous. J'avais sollicité le forum pour m'aider à finir un code pour effectuer une recherche de fichiers dans un dossier partagé pro. Merci à Saboh 12617 pour son aide. Ça fonctionne sur certains dossiers, pour d'autres, il bug sur cette ligne de code

Je sollicite une nouvelle fois votre aide car je ne vois pas où ça pêche.

Merci pour votre aide.

Jym

Bonjour,

Je pense que "le bug" vient d'adresses de dossier mal orthographiées. Vous devez donner le message d'erreur pour qu'on puisse vous aider, sans votre arborescence on ne peut pas reproduire le problème.

En supposant donc que certains de vos chemins d'accès contiennent des coquilles,

Remplacez

Set dossierCourant = fso.GetFolder(dossier)

Par

If FSO.FolderExists(dossier) Then
 Set dossierCourant = FSO.GetFolder(dossier)
Else
 MsgBox "Chemin non trouvé :" & VbCrLf & dossier
End If

bonjour,

J'ai remplacé le code, mais cela ne fonctionne pas. Pour certains dossiers partagés ça marche, pour d'autres non, alors que l'adresse est bonne dans l'onglet liste.

Maintenant c'est le code du dessous qui est surligné.

cdt Jym

Bon jour à tous

petit fichier, d'un précédemment fait pour importer et exporter des fichiers; Vous pourriez le réadapter pour vos besoins en utilisant la recherche du msofile de Windows

cordialement.