XL 2021 Module d’envoi à la Corbeille qui ne fonctionne pas en 64 Bits

AR MOR

XLDnaute Nouveau
Bonjour,

J’ai deux PC portables du même tonneau. Les deux, sous Wind 11.

L’ancien avec Office 21 (32 bits), et le nouveau idem, mais en 64 bits.

Voici le problème que je ne parviens pas à résoudre malgré une foultitude de recherche sur le web

Mon code pour envoyer un fichier choisi à la corbeille fonctionne parfaitement en 32 bits

Mais en 64 bits, malgré mes ajouts de « PtrSafe »,

j’ai un plantage immédiat. (Voire même sans bug, mais rien n’a bougé)

Ceci est très dommageable pour moi, car j’ai une bonne poignée d’applications où j’utilise ce module.

A noter :

Test à faire avec un dossier où vous aurez mis une dizaine de Fichiers dont 2 ou 3 « Raccourcis »

Pour ce qui est des liens que j’ai pu trouver sur le web, ce sont bien souvent des usines à gaz pas buvables, surtout pour moi qui est n’a pas toujours bien compris le fonctionnement des Fonctions.

Si quelqu’un peut m’aider, je l’en remercie par avance.

Je saurai renvoyer l’ascenseur, si une question entre dans le domaine de ce que je sais faire.

En PJ, Le Classeur qui marche en 32 (Pas la pointure !!!)
 

Pièces jointes

  • REPURGATEUR.xlsm
    26.3 KB · Affichages: 4

AR MOR

XLDnaute Nouveau
Oups j'ai du te renvoyer le fichier téléchargé
Regarde celui-ci à affiner
Re sousou

Merci d’avoir investi ce temps à me construire ton code.

Beau travail, mais il y a des mots que je n’utiliserai jamais plus de ma vie :

« Kill » ou « Dilete » sur un Chemin.

J’ai eu trop de mauvaises surprises par erreur de rédaction genre slaches ou points

De plus, cela ne permet pas de restaurer, si besoin, les fichiers supprimés.

Bonne soirée, et encore Merci
 

sousou

XLDnaute Barbatruc
Il faut simplement qu au lieu de les delete tu les copies dans une corbeille qui t es propre.
Ou dans la corbeille windows ensuite tu les effaces
Un exemple avec une corbeille sur le bureau.
Dans ton cas tu ne peux pas avoir d'erreurs de rédactions, car c'est l'appli qui génère les noms de fichiers :)
 

Pièces jointes

  • REPURGATEUR.xlsm
    32.3 KB · Affichages: 2
Dernière édition:

AR MOR

XLDnaute Nouveau
Il faut simplement qu au lieu de les delete tu les copies dans une corbeille qui t es propre.
Ou dans la corbeille windows ensuite tu les effaces
Un exemple avec une corbeille sur le bureau.
Dans ton cas tu ne peux pas avoir d'erreurs de rédactions, car c'est l'appli qui génère les noms de fichiers :)
J'ai aussi fait, faute de solutions, un module qui déplace les fichiers voués à la corbeille dans un Dossier que j'ai appelé "POUB"
Parallèlement, j'écris son origine dans une feuille, et sa destination dans "POUB"
J'ai donc par cette mémoire, la possibilité des les restaurer.
Comme quoi les beaux esprits se rencontrent :)
Merci Breizh izel
 
Dernière édition:

Statistiques des forums

Discussions
314 669
Messages
2 111 755
Membres
111 286
dernier inscrit
kr1997