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.
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
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
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 :
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
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.
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
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.
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.
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
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.
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 ??