Discussion :

[HAMIDOU AMERI]

Salam, Bonjour

j'ai une petit question un peut ...!!!
est ce qu'il a une posibilite pour qu'un fichier *.xlsm ne se recopie pas
Merci d'avance

[jerome.vaussenat]

Salut,

selon moi, tu ne peux pas interdire la copie d'un fichier (XLSM ou autre)

A la rigueur, tu peux ajouter dans ton code (Comme c'est un XLSM, il y a du VBA) un système de test.
Du style on vérifie le chemin d'accès au fichier à l'ouverture. Si le chemin n'est pas le bon, on referme le fichier.

Pour compliquer, Toujours basé sur le même principe, au début de tes procédures, tester le chemin d'acces.

C'est toujours contournable mais c'est déjà çà. Il faut voir le niveau des personnes qui veulent récupérer le fichier.

[HAMIDOU AMERI]

Salam, Bonjour
Merci pour la réponse JEROME, malgre que ma question été un peut...!
SVP tu peut m'orienter plus parce que je suis nouveau en VBA
Merci d'avance Bon courrage

Salam, Bonjour

j'ai besoin d'un coup de main pour creer un systeme dans un fichier Xlsm pour
vérifie le chemin d'accès au fichier à l'ouverture. Si le chemin n'est pas le bon, on referme le fichier
Merci d'avance

[jerome.vaussenat]

Salut,

tout d'abord, il faut que tu créés une macro événementielle qui s’exécute automatiquement à l'ouverture du document.

Pour faire çà, voici un peu de lecture :
http://silkyroad.developpez.com/VBA/EvenementsClasseur/

Pour info, c'est l’événement, Workbook_Open quite concerne
http://silkyroad.developpez.com/VBA/...asseur/#LII-12

Le code pouvant,être utilisé ressemble à çà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
    'Le Lcase est là pour mettre le chemin d'acces en minuscule
    'le Activeworkbook.path ressort le chemin d'accès du fichier
    If LCase(ActiveWorkbook.Path) <> "c:\users\toto\mon dossier" Then
        'si le fichier n'est pas dans le bon dossier, on le ferme
        ActiveWorkbook.Close
    End If
End Sub

Comme je le disais, ce bout de code peut être ajouté au début des procédures existantes pour être encore plus efficace.

Bonne utilisation.

Au cas où. Pour être sûr du chemin, un petit test avec une macro a supprimer par la suite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sub test()
    msgbox Activeworkbook.path
end sub

[HAMIDOU AMERI]

Salem, Bonjour
Merci pour la reponse Jerome c'est gentil de tas part

j'ai essai le programme il marche bien mais le probleme meme si le chemin d'acces est juste il ferme le fichier ..!
Merci

[HAMIDOU AMERI]

Salem, Bonjour

j'ai trouver une astuce !? au lieu de le mettre dans chaque procedures
je l'ai met dans ThisWorkBook et ca bien marché
Merci encore une fois pour tt le monde