Le classeur à télécharger permet de rechercher de 1 à 5 termes dans le code VBA des classeurs d'un répertoire et de ses sous-répertoires. La recherche peut s'étendre aux modules exportés (fichiers ".bas") et aux fichiers texte (".txt").
Bonjour @fanch55,
Cette "pièce jointe 1142133" c'est juste un truc du site qui je ne contrôle pas.
Je suppose que c'est l'image GIF animée qui est visible dans la vue principale.
J'ai intercepté les erreurs sur ouverture des fichiers et sur ouverture du Projet VBA en les listant en rouge dans le résultat.
Et aussi laissé passer une recherche sans terme pour seulement lister les fichiers correspondant au filtre ça peut être bien utile.
J'ai intercepté les erreurs sur ouverture des fichiers et sur ouverture du Projet VBA en les listant en rouge dans le résultat.
Et aussi laissé passer une recherche sans terme pour seulement lister les fichiers correspondant au filtre ça peut être bien utile.
Salut Dudu, le pb,
c'est que s'il existe dans un sous-répertoire un fichier du même nom que l'appelant,
ce fichier ne sera pas ouvert, l'activeworkbook restera l'appelant et il sera de ce fait fermé au Close forcé...
( c'est mon cas car j'ai sauvegardé le fichier téléchargé avant de faire des tests sur l'initial ... )
Perso, j'ai résolu le pb en mettant dans la Sub TraiteFichierExcel :
VB:
'On exclue ce fichier
If UCase(NomCompletFichier) = UCase(ThisWorkbook.FullName) Then Exit Sub
If CreateObject("Scripting.FileSystemObject").getfilename(NomCompletFichier) _
= ThisWorkbook.Name Then Exit Sub
Sinon un petit souci non résolu :
Si le fichier à ouvrir a l'affichage masqué, l'activeworkbook restera également l'appelant .....