création de dossier sur le bureau

[mjulhes]

Bonjour à tous,

Je suis très mauvais en excel!
Je traite une base de donnée;
je souhaiterai que lorsque nous double-cliquons dans une case de la colonne "D" un nouveau dossier se crée sur le bureau avec le nom du fichier.
Exemple: je double clique dans la case D3; un nouveau dossier "José idiot 21501" se crée sur mon bureau.

Sans abuser de la gentillesse, pouvez vous m’expliquez pas à pas la manip, ou me renvoyer le fichier avec les modif! merci beaucoup 😀

M.J.

 

[thebenoit59]

Re : création de dossier sur le bureau

Bonsoir.
Alors je te joins ce que j'ai fais.
Je me suis dis que tu ne souhaiterais que ça ne s'applique qu'à la colonne E.

Normalement ça devrait le faire.

Bonne soirée.

 

[thebenoit59]

Re : création de dossier sur le bureau

Et tu peux modifier la ligne comme ça :

If Not Intersect(Target, Range("E1:E" & Cells(Rows.Count, 5).End(xlUp).Row)) Is Nothing Then

Et ça ne s'exécutera que jusqu'à la dernière ligne remplie en E.

 

[bbb38]

Re : création de dossier sur le bureau

Bonjour mjulhes, thebenoit59, le forum,

je souhaiterai que lorsque nous double-cliquons dans une case de la colonne "D" un nouveau dossier se crée sur le bureau avec le nom du fichier.
Exemple: je double clique dans la case D3; un nouveau dossier "José idiot 21501" se crée sur mon bureau.

Une solution pour la création de dossiers, dans le même répertoire, correspondant aux noms des fichiers inscrits en colonne E (si j’ai compris ta demande – dans le cas contraire, voir la solution préconisée par thebenoit59 – que je salue).
Cordialement,
Bernard

 

[thebenoit59]

Re : création de dossier sur le bureau

Bonjour bbb38,

Effectivement ta réponse correspond plus à la demande que la mienne.
Je suis resté focalisé sur le fichier et n'ai pas fais attention que la demande reprend un double clic sur la colonne D et non la E comme je l'ai proposé.

Bonne journée.

 

[mjulhes]

Re : création de dossier sur le bureau

Je vous remercie beaucoup!! Ca marche parfaitement c'est exactement ce que je souhaite!
Sans abuser de votre gentillesse, je souhaiterais pousser le vice un peu plus loin!!! mais je n'y arrive pas....

je souhaiterais avoir deux choses:
-le double clique se fait sur la colonne C ; le dossier portant le nom de la colonne S se créé (ca c'est bon j'ai réussi à modifier le code!)
-lorsque je double clique sur une cellule de la colonne B;D ou N la date du jour apparaît (j'ai réussi aussi mais sans le point du haut)

Là où je n'y arrive pas c'est de faire ces deux commandes dans le même fichier.!
En PJ il y a le fichier avec les deux codes à la suite...

Merci beaucoup!

M.J

 

[thebenoit59]

Re : création de dossier sur le bureau

Salut M.J.
Voilà le fichier joint, tu me diras si tu tombes sur ton souhait.

 

[mjulhes]

Re : création de dossier sur le bureau

Merci beaucoup Benoît.
Ca marche très bien, mais j'ai juste un petit problème! Les répertoires se créés dans le dossier où se situe ce fichier excel. je souhaiterai qu'il se créé sur le bureau.

Ce fichier et partagé sur un réseau, (nous l'ouvrons et le fermons chacun notre tour) il faudrait que le dossier se créé sur le bureau de l'utilisateur qui double clique.

Merci !

M.J

 

[thebenoit59]

Re : création de dossier sur le bureau

J'ai repris une partie de mon premier fichier, et l'ai intégré dans le code de bbb38 qui était plus propre que le mien.
Normalement ça devrait être bon pour toi.
Si tu ne veux pas de la MsgBox tu mets un ' juste avant la ligne de code.

 

[Le_Troll_Du_27]

Re : création de dossier sur le bureau

Bonjour le forum, le fil, mjulhes

tout simplement

Sub Sauvegarde_Fichier()
    ThisWorkbook.SaveCopyAs FileName:="C:\Users\Public\Desktop\" & ThisWorkbook.Name
End Sub

Cordialement

Laurent

 

[mjulhes]

Re : création de dossier sur le bureau

Merci beaucoup!