Empecher la copie ou le deplacm du fichier partage [Résolu/Fermé]

Signaler
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018
-
Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018
-
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.



3 réponses

Messages postés
15140
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 avril 2020
1 248
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76340 internautes nous ont dit merci ce mois-ci

Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018

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.
yg_be
Messages postés
10322
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
4 avril 2020
580 > Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018

quel est ton niveau en VBA?
si tu veux progresser, je pense mieux de faire une partie du travail toi-même.
Aloubedi
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018

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.
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018

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.
yg_be
Messages postés
10322
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
4 avril 2020
580
peux-tu partager ton code? nous pourrons alors le compléter avec la ligne manquante.
jordane45
Messages postés
28055
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
4 avril 2020
2 237
Bonjour
Il te suffit de faire un if sur la variable CurDir.
Messages postés
41
Date d'inscription
dimanche 1 novembre 2015
Statut
Membre
Dernière intervention
13 septembre 2018

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