Aide glisser un document sur un fichier excel et récuper son path

Bonjour,
Actuellement en stage pour valider mon DUT Informatique, mon thème de stage porte sur les macros Excel.
Ayant appris beaucoup de choses j'ai amélioré plusieurs fichiers Excel depuis maintenant 6 semaines.
Hors, aujourd'hui je suis confronté à un problème. J'aimerais savoir si il est possible (et si oui m'aider un peu sur une fonction) de glisser un fichier quelconque (PDF,txt,xls...) ou même une archive sur une cellule de mon fichier excel et d'obtenir son path.
Le but ultime étant ensuite de déplacer ce fichier dans un dossier, ce qui je pense ne sera pas très difficile.

Je vous remercie d'avance pour votre aide, j'aurais simplement besoin d'un coup de pouce et non d'un code tout fait =)

Xiirf,
Étudiant 2eme année DUT Informatique

Bonjour,

Qu’entends-tu par « glisser » ?

Cordialement,

bonjour,
glisser un fichier quelconque (PDF,txt,xls...) ou même une archive --> glisser ?
sur une cellule de mon fichier excel --> sur une cellule ?
et d'obtenir son path. --> son path --> si tu glisse tu as le path ?
@+JP

Re,
Tout d'abord merci de vos réponses.
Ce que je voudrais c'est de cliquer sur un fichier ou une archive et le déplacer sur mon fichier excel (par exemple sur une cellule) comme quand on glisse un fichier dans un dossier sauf que la la feuille excel est ouverte et fait office de dossier.
Une fois le fichier glisser sur ma feuille Excel, je voudrais récupéré son path (son chemin) afin de pouvoir, par la suite le placer dans un dossier grâce à d'autre macro.

Mon soucis ici est donc de pouvoir récupéré le chemin du fichier lorsque l'utilisateur le glisse sur la feuille Excel.

bonjour,
fais une liste des fichiers de ton dossier
avec "dir" ou "FileScriptingObject"
tu auras tous les éléments pour faire ce que tu veux
@+JP

Bonjour,
Merci de ta réponse.

Je connais cela, mais le soucis c'est que le fichier peut venir de n'importe où, donc il faudrait un moyen pour avoir le path du fichier.
D'où le fait de glisser le fichier sur une cellule pour avoir directement le path

Bonjour,

Question curieuse car si tu glisses ce type de fichier sur un classeur, il va s'ouvrir et tu auras le path.

Bonjour
J'ai beau lire et relire et re-relire,
Je vois bien que l'on parle de "glisser" et de "déposer"
qui dit glisser/déposer dit glisser ceci (précis) depuis là (précis) vers là (précis)
Je ne vois par contre nulle part indiqué à partir de quoi on "glisse" en vue d'un "dépôt". Ni même la définition exacte de ce que l'on "glisse".
Elles viennent quand, ces PRECISIONS INDISPENSABLES ?
Tant qu'elles ne sont pas là, ces précisions techniques, je me dis que le demandeur ne sait même pas exprimer ce qu'il veut réellement, mais qu'il veut "quelque-chose d'épatant" ...
J'adresse donc un "coucou" au demandeur, avec toute ma sympathie, mais sans plus.

Bonsoir,
Merci à vous deux pour vos réponse

Tout d'abord, lorsque l'ont glisse un fichier sur une feuille Excel si ce fichier est aussi un fichier Excel alors il s'ouvre mais sinon un message d'erreur apparaît donc sa ne marche pas avec tout les types de fichier

Ce que je voudrais c'est :
J'ouvre mon fichier Excel de base
L'utilisateur choisis un fichier n'importe où dans l'ordinateur et le déplace sur une cellule de mon fichier de base. Ensuite avec cette action j'aimerais récupérer le chemin.
Cest à cette étape que je bloque
Et quand j'aurais cette étape, jai créé une macro qui permet de créer un dossier devis si il n'existe pas sinon il va dessus, et à ce moment là je déplacerai le fichier à déplacer dans ce dossier devis.
Le soucis c'est que pour un fichier autre que Excel à déplacer je vois pas comment récupéré le path car quand je le glisse sur ma feuille j'ai un message d'erreur à cause du format
En espérant avoir été un peu plus clair, Cest assez difficile à expliquer

Xiirf

Citation:

---

Envoyé par Xiirf

Bonsoir,
L'utilisateur choisis un fichier n'importe où dans l'ordinateur et le déplace sur une cellule de mon fichier de base. Ensuite avec cette action j'aimerais récupérer le chemin.
Cest à cette étape que je bloque

Xiirf

---

Impossible avec VBA, du moins sans un recours à l'API Windows. Parce que cela relève de la programmation de l'Explorateur Windows, pas de Excel.

D'accord merci de ta réponse Cest ce que je pensais

Je vais voir avec mon maître de stage pour trouver une alternative et changer un peu la procédure

Xiirf

Si ton maître de stage ne t'avait pas déjà dit, change de maître de stage, c'est un zouave à la compétence douteuse.

Au pire, tu peux créer des raccourcis pour accéder à tes fichiers et accéder aux propriétés des raccourcis avec la bibliothèque Scripting. Il y a une des propriétés du raccourci qui donne le chemin d'accès au fichier,

Bonjour,
A tester :
Ajouter un contrôle ActiveX ListView sur ta feuille, activer le drop et utiliser l'événement OLEDragDrop.

Bonjour,

Je ne vois aucun intérêt à créer une tel procédure, juste pour déplacer un fichier dans un dossier ce que le système peut très bien faire (exemple du raccourci donné par clementmarcotte).
En revanche, ce qui serait plus intéressant, c'est de créer un script annexe (non Excel / vba) qui permettrait lorsque l'on glisse un fichier dessus, de récupérer le chemin, puis de lancer la procédure vba du fichier Excel qui déterminerai selon le nom du fichier glisser, dans quel dossier ce fichier devra être déplacé (par exemple).

Mais ça ne sera pas possible seul avec vba … !

Edit : @zenpbb as tu testé toi même ce que tu proposes ?

Edit 2 : petite précision si je me suis mal exprimé, c'est le script qui démarre la procédure vba qui elle prend le relais pour finir les actions à faire.

Bonsoir Ryu,

Voici ce que j'ai testé :
1- via onglet Développeur, création d'un ActiveX Microsoft ListView Control dans une feuille de calcul
2- Propriété de la ListView : OLEDropMode = 1 - ccOLEDropManual
3- Dans le code de la feuille : utilisation de l'évènement OLEDragDrop de la ListView, en exploitant le contenu de la variable Data
4- onglet Développeur, désélection du Mode Création
5- un glisser-déposer d'un fichier (ou plusieurs) sur la ListView à partir de l'explorateur Windows déclenche l'évènement OLEDragDrop, et via la variable Data, on récupère facilement le nom complet du (ou des) fichier(s) déposés pour en faire ce que l'on veut

Je ne suis pas allé plus loin, mais en fonction de ce que Xirf souhaite, cela me semblait être une piste à explorer (si j'ai bien compris la demande)

Salut,
J'ai essayer la solution avec les ListViews et j'ai trouvé le moyen de glisser le fichier. Merci pour cette solution zenpbb.
Maintenant je bute un peu sur comment récupérer le path avec le data ..

Xiirf

Re,

J'ai trouvé avec l'aide d'un autre sujet du forum : path = Data.Files(1)

Merci à tous !

Xiirf

Juste une remarque complémentaire. Selon ce que dépose l'utilisateur, tu peux te retrouver avec, au lieu d'un fichier : soit plusieurs fichiers, soit un dossier, soit tout autre chose. Un conseil donc : gère ces cas pour éviter les plantages et autres soucis potentiels...

Bonjour,

Comme la coutume de tout forum, il serait bien de poster la solution final, afin que ceux qui ont un problème similaire puisse être aidé à leur tour. ;)

Edit : @zenpbb, je suis sur Mac je me mettrai sur PC pour regarder ce que tu as proposé

Re,

Je n'avais pas penser au fait d'avoir plusieurs fichiers je m'en occupe demain et je posterais mon résultat !