Empecher la copie ou le deplacm du fichier partage

Résolu/Fermé
Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018 - 18 août 2018 à 17:32
Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018 - 21 août 2018 à 11:13
Bonjour/bonsoir,


Nous avons un fichier .xlsm partage sur lequel nous travaillons en meme temps.

Nous aimerions s'assurer que les utilisateurs travaillent directement sur le fichier sur le reseau au lieu de le deplacer ou d'en faire une copie.


Je voudrais savoir comment coder cette restriction dans VBA.


Merci d'avance.



A voir également:

3 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
18 août 2018 à 17:49
Bonjour,

A priori, pas possible d'empecher la copie.
Pour le deplacement, a l'ouverture du fichier, testez qu'il est bien a l'endroit que vous avez choisi et si pas bon fermeture
1
Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018
19 août 2018 à 19:25
Bonjour/bonsoir,
Justement, cela serait une excellente façon d'emmener tous à travailler sur le même fichier à l'emplacement indiqué. Mais vu mon niveau actuel en VBA, Merci de me montrer comment tester qu'il est bien au bon endroit et si pas bon fermeture.

MERCI bcp je reste à l'écoute.
0
yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 474 > Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018
19 août 2018 à 20:17
quel est ton niveau en VBA?
si tu veux progresser, je pense mieux de faire une partie du travail toi-même.
0
Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018
21 août 2018 à 11:13
Bonjour f894009,

Merci bcp pour m'avoir soufle l'idee de genie qui consiste a "testez qu'il est bien a l'endroit que vous avez choisi et si pas bon fermeture "

Ceci m'a conduit a Thisworkbook.Path
avec biensur le secours de jordane45. qui m'a appris CurDir. MERCI bcp.
0
Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018
19 août 2018 à 23:49
Merci à yg_be pour le conseil. Faire une partie du travail moi-meme, c'est justement ce que j'ai fais jusque là. cependant, je n'ai pas encore le niveau que tu as pour faire TOUT en solo. J'ai buté sur un problème pour lequel je cherche de l'aide car sauf erreur de ma part, la Commutauté Informatique est là pour soutenir et faire grandir les plus petits. tu peut me croire, je fais tous les jours des efforts en apprenant de nouvelles choses.

Rassure-toi yg_be, je ne veux pas tout sur un plateau d'argent. Simplement, je voudrais savoir comment indiquer l'emplacement du fichier en question en une seule ligne de code. Pour le reste, je sais comment m'y prendre.

MERCI bcp pour ta réaction, j'attends ta réponse de préférance avant celles des autres.
0
yg_be Messages postés 22717 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 22 avril 2024 1 474
20 août 2018 à 00:15
peux-tu partager ton code? nous pourrons alors le compléter avec la ligne manquante.
0
jordane45 Messages postés 38144 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 21 avril 2024 4 650
20 août 2018 à 07:33
Bonjour
Il te suffit de faire un if sur la variable CurDir.
0
Aloubedi Messages postés 41 Date d'inscription dimanche 1 novembre 2015 Statut Membre Dernière intervention 13 septembre 2018
20 août 2018 à 13:04
Bonjour/bonsoir,

Merci beaucoup jordane45 pour ta generosite. grace a toi je connais CurDir.
Merci egalement a yg_be pour avoir suscite la reaction salutaire de jordane45 ainsi que ma curiosite.


En fait, j'ai vu que Curdir revoi toujours au dossier "Mes documents" exemple: C:\Users\Admin1\Documents
, tandis que ThisWorkbook.Path renvoi avec precision au dossier contenant le fichier. exemple: C:\Users\Admin1\Pictures

Toutes mes excuses pour l'absence des accents. QWERTY
0