[RESOLU]-Liste fichiers + suppression doublons

[Riko]

Bonjour,
je viens vous demander de l'aide car je suis ennuyé par une de mes macros que je souhaite modifier mais en vain.

Voici ce que je souhaite faire:

• Un dossier dans lequel il y a des fichier pdf.
• dans ce dossier les fichiers sont nommés 1-A.pdf, 1-B.pdf, 2-A etc...
• Je liste dans une feuille les fichiers et j'inscris leurs liens hypertexte.

Juste là j'étais bon. (non sans mal mais c'est OK)

Maintenant je voudrais supprimer les fichiers (et donc ne pas les inscrire sur la feuille) qui portent l'indice inférieur.

Par exemple si dans le dossier il y a un fichier nommé 1-A.pdf et un autre 1-B.pdf je veux supprimer (ou déplacer) le fichier 1-A.pdf


J'ai essayé d'insérer Kill, delete dans ma boucle mais j'ai une erreur et je n'arrive pas à trouver comment faire.
Je pense que l'erreur vient du fait que j'ai supprimé le fichier.
je joins le dossier dans lequel j'ai l'arborescence et le fichier excel.

Merci d'avance pour vos réponses.

 

[Riko]

Re : Liste fichiers + suppression doublons

Oui je regarde ça de suite.
Désolé je ne change plus d'idée c'est promis

EDIT:
ça fonctionne, il ne me reste plus qu'à adapter pour avoir un affichage comme je souhaite.

Par contre pourrais tu m'expliquer, si cela ne te dérange pas, cette ligne

Dim Fso As Object, f As Object, x&, adr$, i&, fin&, wbks As Workbook, n, y

C'est quoi x& , adr$, i&, fin&

 

[Paritec]

Re : Liste fichiers + suppression doublons

Re Riko le forum
c'est très simple c'est la déclaration des variables a& signifie a as long, c'est plus court c'est tout
X$ signifie que X as string C# signifie c as double
S'il ne te reste que l'affichage c'est du gâteau !!!
a+
Papou

 

[Riko]

Re : Liste fichiers + suppression doublons

Ok merci,
Par contre, et oui encore, il semblerait que les fichiers xls ne soit pas affichés.
Je suis entrain de chercher pourquoi.
si je mets un fichier xls dans le dossier il n'est pas affiché sur la liste.
Je vais peut être bien trouvé.

Grand merci ........ tu es un chef

EDIT:
j'ai trouvé c'était tellement évident.

Bonne journée à toi.

 

[Paritec]

Re : Liste fichiers + suppression doublons

Bonjour Riko le forum
Bon alors Riko il te faut mettre de l’ordre dans ta tête !!!
Tu demandais de récupérer tous les chemins .pdf, alors j'ai récupéré tous les chemins .pdf.
D'ailleurs comment s'appelle ton dossier ou sont stocké tes fichiers?
Si il fallait tous les fichiers, pourquoi mettre en Entête de colonne "Nom des Fichiers PDF????
Bon tu as retiré la condition, et cela est réglé
Bonne journée
Papou

 

[Riko]

Re : Liste fichiers + suppression doublons

Oui désolé c'est OK maintenant.
Par contre je me suis heurté à des problèmes de compatibilité avec excel 2013.
Il a fallu que je refasse un fichier vierge et que j'y insère ta(es) macro(s).
Je pense que maintenant c'est bon de excel 2003 jusqu'à excel 2013.

 

[Paritec]

Re : Liste fichiers + suppression doublons

Bonjour Riko le forum
Pour moi un .xls est compatible avec 2003 2007 2010 2013
mais si tu nous avais passé ton fichier, on aurait directement fait ce qu'il fallait
a+
Papou

 

[Riko]

Re : Liste fichiers + suppression doublons

Le .xls s'ouvrait bien mais il y avait des problèmes de reconnaissance du noms des feuilles + les controles de formulaire et controle activeX.
En cherchant un peu sur le net j'ai vu que cela arrivait.

Ca fait du bien de se gratter la tête tout seul aussi.