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]

Bonsoir
Pour supprimer un fichier connu , chemin ..etc , tu utilises par exemple
Kill "C:\MGS\osteo10.pdf"
tu devrais pouvoir le caser dans ton code , avec le delete line

 

[kiki29]

Salut, par prudence je déplacerais dans un premier temps les fichiers dans la corbeille ? une recherche ?

 

[YANOU38]

Bonjour à tous,
Merci pour vos réponses.
Avant tout, j'ai cherché à cibler l'emplacement de mes fichiers PDF pour éviter de faire la demande : "CHOISISSEZ le RÉPERTOIRE PRINCIPAL CONTENANT TOUS VOS FICHIERS PDF à LISTER !".
Du coup j'ai modifié cette ligne :

DosSource = ChoisirDossier

par

DosSource = "srvpcvs\DEP_CHAUDRONNERIE\Divers_documents_techniques\8_-_CCPU_Classés"

et en supprimant la fin du code :

Private Function ChoisirDossier()
...

mais cela engendre des erreurs.
Cela vous laisse imaginer mon niveau en VBA...
Merci pour votre aide.

 

[herve62]

Bonjour
Pour moi , tu dois mettre ton DosSource complet avec le "\" en plus à la fin et donc dans l'autre sub juste mettre
Set Dossier = fso.GetFolder(DosSource)
Chez moi comme ça c'est ok , pas d'erreur

 

[YANOU38]

Bonjour et MERCI herve62,
Tout fonctionne !
Pour la suppression du PDF en supprimant la ligne, je pense que je vais laisser vivre le fichier tel qu'il est actuellement et le modifier par la suite si besoin.
Encore grand MERCI et bonne continuation.

 

[herve62]

Bonsoir
Je ne sais pas si tu continues à suivre ton sujet mais je te joins un exemple de ce que cela peut donner
Tu listes d'abord , ensuite en cliquant dans une cellule de col A , tu supprimes la ligne et le fichier associé
A toi de voir

 

[YANOU38]

Bonjour herve62,
Il me semble qu'à chaque cellule choisie, j'ai la question "Voulez vous supprimer la ligne X et supprimer le fichier associé" (pas forcément en colonne A, mais toutes les cellules).
Du coup, si j'ai d'autres choses à faire sur ma feuille, j'ai systématiquement cette question avant...
Peut-être en utilisant uniquement la colonne F ?
Merci pour ton aide.

 

[YANOU38]

Dans l'idée...

 

[herve62]

Salut

J'ai repris un bout de mes fichiers copier/coller pour faire vite fait , et pas tout testé
c'était juste un "End If" mal placé

 

[YANOU38]

Re-bonjour herve62,
Est-ce que la suppression s'effectue bien chez toi ?
Chez moi rien ne se passe...ni suppression du PDF, ni de la ligne.
Merci pour ton aide.

 

[herve62]

Oui , ok !
Sinon reprend cette dernière version , c'est au cas ou tu réponds NON ou Cancel
pour vérifier l'avancement met un "point d'arrêt" au niveau : Target.row , ensuite dans ta feuille , selec. une case en A , ça va t'afficher le VBA puis avance avec F8 en "pas à pas" tu pourras vérifier l'execution de chaque instruction et donc voir ou ça bloque !
quand une instruction est exécutée tu peux juste passer ta souris sur le nom des variables et tu verras ce qu'elle contient ..etc

 

[YANOU38]

Voilà où j'en suis (en utilisant le "point d'arrêt") :

Je choisis A7
Target.Count = 1
Target.Address = $A$7
Target.Column = 1
Target.Row = 7 (du coup je me dis que ça va bien pointer au bon endroit...)
Je réponds OUI à la question et la macro se termine sans rien supprimer... ?

Une question :
Tous mes "Liens" s'appellent .pdf dans la colonne E, alors qu'en réalité chacun est différent mais le nom collé dans la colonne ne doit garder que la fin du nom (?), par contre si j'ouvre les PDF en partant de la colonne E cela m'ouvre bien le bon PDF.

Devrais-je avoir la totalité du nom en colonne E ?
Serait-ce pour cela que ça ne mouline pas correctement ?
Merci pour ton aide.

 

[herve62]

Peux tu remettre ton fichier avec la liste remplie en feuille listes ?
je vais tester en renommant mes noms de pdf avec les tiens
déjà si à OUI tu n'as plus rien ( du pas à pas ) c'est que le IF suivant n'est pas valide donc une erreur dans les variables
Si ton image est réelle , pas bon > il faut le nom complet en E ( lien)
Déjà , bizarre vu ton code :
Sht.Range("E" & DLig + 1).Hyperlinks.Add Sht.Range("E" & DLig + 1), Fic.Path
Il devrait y avoir le chemin + nom complet du fichier ??

 

[YANOU38]

L'arborescence :

En "écriture" pour t'aider dans le renommage :

8 - CCPU Classés

1-TOLE

2-TUBE

P265GH_3__58000-.pdf
P265GH_3__729414_.pdf
P265GH_5__48715_.pdf
P265GH_5__62973_.pdf

SA333Gr.6_48.3_3.68_598449_.pdf
SA333Gr.6_60.3_5.54_55067_.pdf