XL 2013 Suppimer ligne et PDF associé

[YANOU38]

Bonjour à tous,
Le Fichier joint permet de lister des PDF (merci à BrunoM45).
En cliquant sur "Lister", vous pointer vers un fichier contenant vos PDF et le tableau se remplit en fonction.
Serait-il possible de supprimer une ligne et que le PDF soit supprimé en même temps sans être obligé d'aller le supprimer à son emplacement sur l'explorateur ?
Dans l'idée, une Case à cocher "supprimer" (dans la colonne F en face de chaque ligne) => Clic sur la case "Êtes-vous sûr de vouloir supprimer cette ligne" => "OUI" "NON".
Du coup, suppression de la ligne et du PDF associé.
Merci à vous.

 

[herve62]

Ok , j'ai des modifs à ajouter , je reviens un peu plus tard

 

[herve62]

Bonsoir
@YANOU38
Bon il y avait plus à faire vue la structure de tes fichiers
toutes mes modif. sont dans la sub change de la feuille PDF;
Ce que j"ai fait :
reprise de DosSource
Concaténer les colonnes avec les "_" pour définir le fichier ( comme tu les as énuméré)
J'ai renommé certains de mes fichiers dans mon dossier pdf avec tes noms pour mes essais
exécution > OK , preuve ta liste initiale est restreinte et je n'ai plus les fichiers
ATTENTION !!! : dans tes noms de fichiers tu peux avoir par exemple 60.3 et dans Excel on voit 60,3 et cela ne peut fonctionner > virgule ou point ??
les 2 noms complet doivent être Identiques !!!! Si je concatène 60,3 et que dans ton dossier le fichier est avec 60.3 cela ne va pas
J'ai traité l'erreur , un message s'affichera
A toi de tester ( avec ce fichier )

 

[YANOU38]

Bonjour herve62,
Merci avant tout de passer du temps sur mon problème.
Du coup, peu importe la ligne sélectionnée, toujours le même résultat :

Peut-être avec une approche différente (?)
Dans la colonne G, une formule me permettant de "recréer" le nom des chemins vers les PDF.
Peut-être en ciblant ces cellules (?)
Je ne sais pas si cela peut t'aider...
Merci encore.

 

[herve62]

Bonjour Yanou
Peux tu mettre une capture de l'explo lorsque tu es dans ton répertoire ( fenêtre entière ) ?

 

[YANOU38]

 

[herve62]

Bien !!!! Bon j'ai vu , et vite compris > Normal ton chemin DosSource est :
DosSource = "\\srvpcvs01\PCVS\DEPT CHAUDRONNERIE\Divers documents techniques\8 - CCPU Classés\"
Mais tes fichiers sont encore dans un niveau inférieur :
1-Tole ou 2-Tube
Donc toujours erreur à la suppression, et pas de delete de la ligne car je fais sortir à la 1ére erreur
Pas évident à gérer , mais j'ai entamé une autre méthode plus universelle

Je reviens ce soir avec

 

[herve62]

Bonsoir
Voilà un fichier complètement remanié
C'est un 1er jet sur un autre principe > via un USF

Si pour toi ce principe est ok , il me reste à faire une liste fichiers (**) selon le choix du répertoire et donc éviter les fausses entrées
Fichier à tester !!!

** : Il n'y aura plus de ligne à entrer mais juste choisir le Sous Rep. > affichera les fichiers > on clique sur celui choisi

 

[YANOU38]

Bonsoir Hervé,
Je testerai cela lundi matin.
Encore un grand merci pour ton aide.
Bon week-end.

 

[herve62]

Ok toi aussi Bon WE

 

[YANOU38]

Bonjour Hervé,
OK pour moi sur ce principe.
Merci et bonne journée.

 

[YANOU38]

Juste pour info :
Si la colonne C est vide = TOLE, sinon =TUBE.
Si cela peut éviter la question du sous-répertoire...

 

[herve62]

Bonjour YANOU
Je termine un nouveau fichier encore mieux et simple qui prend en compte le sous répertoire ( Tole , Tube)
A ce soir

 

[herve62]

Re

"Si la colonne C est vide = TOLE, sinon =TUBE." >

Bon j'espère que tu connais quel répertoire rapport au fichier , quand même ?
Donc ci joint nouvelle version via USF qui n'utilise pratiquement pas le tableau juste pour supprimer la ligne
sinon on fait tout depuis l'explorateur
Vu tes images de l'arborescence des fichiers & écriture des noms , j'ai tout pris en compte
Moi j'ai testé avec mes répertoires c'est Ok
A toi de voir

 

[YANOU38]

Bonjour Hervé,
Cela fonctionne aussi chez moi.
A l'ouverture, j'ai une "Erreur d'exécution '1004': la méthode Activate de la classe Worksheet a échoué,
Private Sub Workbook_Open()
=> Sheets("PDF").Activate
End Sub
Mais cela n'empêche pas, par la suite, d'avancer...
Le nombre de lignes est pour l'instant limité, mais à terme il pourrait y avoir plus de 800 références.
Le nombre de "Sous Répertoire" se limitera à 2, mais la liste déroulante "Fichier" de l'USF sera difficilement utilisable avec autant de références.
Les filtres de la ligne 2 me permettent de cibler plus précisément telle ou telle référence...et je suis en train de me dire, qu'une fois ce filtrage effectué, il ne me restera plus qu'une référence...et du coup uniquement la suppression de la ligne 3 et de son PDF associé...
Mais vu que tu passes par l'explorateur et non par le tableau...
Je cherche quelle serait la bonne démarche.
Merci pour ton aide.

 

[herve62]

Salut Yanou

A l'ouverture, j'ai une "Erreur d'exécution '1004'

Bizarre ? , faudra investiguer !!
Le max d'une Combo est de 32000 ( en gros) tu as de la marge
Sinon je ne pige pas la fin

................et du coup uniquement la suppression de la ligne 3 et de son PDF associé...

Tout est encore modifiable