création de dossier sur le bureau

T

thebenoit59

XLDnaute Accro

• 23 Février 2016

• #2

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.

 

Pièces jointes

• fichier exemple.xlsm

  17.3 KB · Affichages: 50
• fichier exemple.xlsm

  17.3 KB · Affichages: 38

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 23 Février 2016

• #3

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

bbb38

XLDnaute Accro

• 24 Février 2016

• #4

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.

Cliquez pour agrandir...

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

 

Pièces jointes

• mjulhes création dossiers exemple.xlsm

  19.6 KB · Affichages: 38

Dernière édition: 24 Février 2016

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 24 Février 2016

• #5

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.

 

Vote positif 0 Vote négatif

M

mjulhes

XLDnaute Nouveau

• 25 Février 2016

• #6

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

 

Pièces jointes

• mjulhes création dossiers exemple 2.xlsm

  17.8 KB · Affichages: 26
• mjulhes création dossiers exemple 2.xlsm

  17.8 KB · Affichages: 24

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 25 Février 2016

• #7

Re : création de dossier sur le bureau

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

 

Pièces jointes

• mjulhes création dossiers exemple 2.xlsm

  19.3 KB · Affichages: 23
• mjulhes création dossiers exemple 2.xlsm

  19.3 KB · Affichages: 24

Dernière édition: 25 Février 2016

Vote positif 0 Vote négatif

M

mjulhes

XLDnaute Nouveau

• 25 Février 2016

• #8

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

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 25 Février 2016

• #9

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.

 

Pièces jointes

• mjulhes création dossiers exemple 2.xlsm

  19.4 KB · Affichages: 32
• mjulhes création dossiers exemple 2.xlsm

  19.4 KB · Affichages: 26

Vote positif 0 Vote négatif

Le_Troll_Du_27

XLDnaute Occasionnel

• 25 Février 2016

• #10

Re : création de dossier sur le bureau

Bonjour le forum, le fil, mjulhes

tout simplement

Code:

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

Cordialement

Laurent

 

Vote positif 0 Vote négatif

M

mjulhes

XLDnaute Nouveau

• 25 Février 2016

• #11

Re : création de dossier sur le bureau

Merci beaucoup!

 

Vote positif 0 Vote négatif