Bonjour a tous.
J'ai un code qui prend pas mal de temps et je voulais savoir s'il y avait moyen de faire plus rapide. Voici mon code (j'explique le but aprés)
Le but est de repertorier tous les fichier d'un repertoire dans mon fichier excel. Le probleme est que la liste de fichier du repertoire evolue tous les jours. Je dois rajouter les fichiers qui ne sont pas dans mon tableau excel sans remettre ceux qui y sont deja
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 'Comparaison de la liste des fichiers originaux / tableau excel actuel For j = 1 To Max For k = 3 To Nb_entrées + 2 If Cells(k, 1).Value = Liste_Fichier(j, 1) Then Liste_Fichier(j, 2) = "Fichier trouvé" End If Next k End If Next j
J'espere avoir ete clair?
Ma solution, je prend la premiere entrées de ma liste
Partager