Expression dans une variable ?

Version imprimable

18/08/2020, 18h07
Dersou1

Expression dans une variable ?
Bonjour,
Je cherche comment mettre une expression dans une variable.

Exemple :
Code:

1 2 3 MaVariable = "Year(Date)" If MaVariable >2021 then ....
Je sais que cela fonctionne si j'enlève les guillemets de la ligne MaVariable=... Mais ce n'est pas ce que je souhaite faire.

Ou, encore plus difficile :
Code:

1 2 3 MaVarible = "Year(Date) > 2021" If MaVariable = True Then ....
Est-ce possible ?
Merci de vos aides.
18/08/2020, 18h54
Philippe Tulliez
Bonjour,
La fonction EVALUATE, évalue des formules utilisant des fonctions d'excel or DATE est une fonction VBA. Tu dois donc utiliser soit NOW soit TODAY

Exemple
Code:

1 2 3 4 5 Sub t() Dim fx As String fx = "YEAR(NOW())>2021" MsgBox Evaluate(fx) End Sub

Autre solution : créer une fonction.
Code:

1 2 3 4 5 6 7 Sub Test If MaVariable() >2021 then .... End Function MaVariable() As Long MaVariable = Year(Date) End Function
Bien sûr, sur un exemple aussi simple, ça a peu d'intérêt.

19/08/2020, 14h31
Patrice740

Bonjour,

Citation:

Envoyé par Dersou1

Je sais que cela fonctionne si j'enlève les guillemets de la ligne MaVariable=... Mais ce n'est pas ce que je souhaite faire.

Pourquoi donner des exemples qui ne correspondent pas à ce que tu souhaites ?????
Soit précis, expliques en détail ce que tu souhaites faire. Ça évitera qu'on réponde au hasard !
20/08/2020, 21h03
Dersou1

Merci à Philippe Tulliez.
C'est un contournement qui fonctionne 8-)
Seul problème, il faut que je repasse mes formules VBA en Excel :roll:
Je suppose donc qu'il n'y a pas d'autres solution ?

Merci à Menhir,
La solution fonction ne me convient pas, elle est trop facile à lire :lol:

Enfin, oui, Patrice740 a raison je n'ai pas donné toutes les explications.
Pour faire court, j'essaye de cacher mon programme et j'ai pour cela créé un module d'encryptage/désencryptage.
Pour les constantes, pas de souci c'est facile.
Mais si je veux pousser un peu plus l'encryptage, je dois le faire aussi pour les instructions/expressions, d'où ma question.

Je comprends qu'Excel n'est pas un programme permettant de protéger une source, mais je n'ai pas trop le choix et cherche donc à faire au mieux.
Mes sources seront donc avec du faux code melé au vrai, encryptées, obfusquées puis protégées par mot de passe.
Si le programme devait ensuite tomber entre de mauvaises mains j'espère que tout cela le découragera.... :mrgreen:
21/08/2020, 01h03
Patrice740

Re,

Protéger ton code ..... ????
Contre quoi ????
Il faut arrêter de croire qu'en VBA tu peux écrire quelque chose qui n'a pas déjà été écrit par quelqu'un d'autre.
Il y a longtemps que la poudre a été inventée, et le fil à couper le beurre aussi ...
21/08/2020, 09h15
Menhir

Citation:

Envoyé par Dersou1

Seul problème, il faut que je repasse mes formules VBA en Excel :roll:

Dans te demande, la formule est inscrite dans le code.
Si tu ne poses pas la bonne question, tu n'auras pas la bonne réponse.
Et je sens que ton besoin est totalement différent de ce que tu demandes.

Citation:

La solution fonction ne me convient pas, elle est trop facile à lire :lol:

C'est la première fois qu'on reproche à une solution d'être trop facile. 8O
Mais, de nouveau, si tu ne poses pas la bonne question, tu n'auras pas la bonne réponse.

Citation:

Pour faire court, j'essaye de cacher mon programme et j'ai pour cela créé un module d'encryptage/désencryptage.

Une procédure de protection qui inclut VBA, c'est un gruyère.
Quand on veut faire une application commerciale, on utilise des outils prévus pour.
VBA, c'est un merveilleux couteau-suisse pour faciliter la vie mais ce n'est en aucun cas un outils adapté au développement d'applications à vendre.

Citation:

Mais si je veux pousser un peu plus l'encryptage, je dois le faire aussi pour les instructions/expressions, d'où ma question.

Je ne vois pas trop quelle différence il pourrait y avoir entre l'encryptage d'une chaine de caractère et celui d'une formule. :koi:

Bonjour Menhir,
Merci de tes réponses.

Citation:

Envoyé par Menhir

Dans te demande, la formule est inscrite dans le code.
Si tu ne poses pas la bonne question, tu n'auras pas la bonne réponse.
Et je sens que ton besoin est totalement différent de ce que tu demandes.

Mais j'ai eu la bonne réponse par Philippe Tulliez, encore merci à lui :D
Sa réponse résoud mon problème de comment mettre une expression dans une variable.
Seule difficulté, je dois réécrire les expressions Vba en Excel US.

Citation:

Envoyé par Menhir

C'est la première fois qu'on reproche à une solution d'être trop facile. 8O
Mais, de nouveau, si tu ne poses pas la bonne question, tu n'auras pas la bonne réponse.

Oui, j'essaye de cacher comment est calculé un code et j'essaye donc que ce soit difficile à trouver.

Citation:

Envoyé par Menhir

Une procédure de protection qui inclut VBA, c'est un gruyère.
Quand on veut faire une application commerciale, on utilise des outils prévus pour.
VBA, c'est un merveilleux couteau-suisse pour faciliter la vie mais ce n'est en aucun cas un outils adapté au développement d'applications à vendre.

Je fais ce programme en Excel parce que c'est l'outil de mon entreprise et que les personnes qui vont recevoir ce prog utilisent Excel.
Les protections de nos pc ne nous laissent rien installer(non admin) et je ne vais pas non plus me remettre à apprendre un nouveau langage.
Je vois les différents post des experts qui expliquent qu'un programme Excel n'est pas protegeable.
Mais il y aussi des posts qui expliquent comment rendre son code difficile, voir très difficile à percer.
Je ne sais pas si mon code tombera un jour entre de mauvaises mains, mais si c'est la cas, alors je souhaite que la comprehension du programme prenne beaucoup de temps :oops:

Citation:

Envoyé par Menhir

Je ne vois pas trop quelle différence il pourrait y avoir entre l'encryptage d'une chaîne de caractère et celui d'une formule. :koi:

L'encryptage d'une chaîne de caractères se fait simplement en lançant ma procédure d'encryptage.
Pour encrypter un formule, comme expliqué plus haut, l'utilisation d'Evaluate oblige a traduire le Vba en Excel US avant encryptage.

Juste comme explication, voici un petit bout de code crypté avec une expression et une constante.
Code:

1 2 3 4 5 6 7 8 ' Rajout d'un message sur la feuille FoundNumber ' If Year(Date) = 2021 And Month(Date) > 9 Then ' AND(YEAR(TODAY())=2021,MONTH(TODAY())>9) If Evaluate(DesMF("Þ”Qð^x/èötáô¹8ÿ·ùb¬tØ»à/ªzj|lYh…¢3aýê")) Then ' Range("a2") = "This program will stop working at the end of this year" Range("a2") = DesMF("ËÚë«Ú¹… (÷ÿ7ò*ÃÇ{L4ì«Ôã¶«a*}1–€âbq=*!1ïÅ¼Ï½‘nr°¿|÷û") End If
Bien entendu, lors de la livraison du programme, l'obfuscation retirera les commentaires 8-)
Code:

1 2 3 4 If Evaluate(DesMF("Þ”Qð^x/èötáô¹8ÿ·ùb¬tØ»à/ªzj|lYh…¢3aýê")) Then Range("a2") = DesMF("ËÚë«Ú¹… (÷ÿ7ò*ÃÇ{L4ì«Ôã¶«a*}1–€âbq=*!1ïÅ¼Ï½‘nr°¿|÷û") End If
Voilà, quelques centaines de lignes de ce type découragerons, je l'espère, une personne qui voudrait casser le code.

21/08/2020, 16h03
Philippe Tulliez

Bonjour,
Si c'est réservé ) l'entreprise et donc au collègue, il me semble encore moins justifié de protéger le code.
Cela fait plus de 25 ans que je programme en VBA et tout mes codes sont ouverts et peuvent être lu par mes clients mais je doute qu'il y ai eu des curieux.
21/08/2020, 17h42
Patrice740

Bonjour,

Comme Philippe :plusser:, en 25 ans j'ai très, très rarement vu quelqu'un mettre le nez dans le code de mes applications VBA.
Je ne protège jamais mes codes et je n'utilise jamais de mot de passe sur les feuilles ou le classeur (chacun ses responsabilités).
Quand c'est arrivé, c'était toujours à cause d'un bug : l'utilisateur essayait de se dépatouiller tout seul.

Au lieu de se lancer sur des chemins tarabiscotés, il me parait primordial de s'attacher à écrire un code bien architecturé, le plus propre possible et donc en conséquence très simple à lire et à maintenir (même 20 ans après).
Dans le même temps j'ai vu un tas de codes protégés, difficilement accessibles, qui tombent en désuétude au bout de quelques mois et il suffit de poser la question sur un forum pour trouver une solution alternative.
Un vieux dicton professionnel : Les cimetières sont pleins de personnes qui se croyaient indispensables.

Lorsqu'un code est suffisamment brillant pour mériter d'être protégé il existe un moyen très efficace : Le droit d'auteur
21/08/2020, 19h00
Pierre Fauconnier

Salut.

J'ai déjà vu du code obfusqué (c'était un truc en Excel/vba pour créer des itinéraires sur un gps de moto). Dans ce cas, ce qui est obfusqué, ce sont les noms des procédures, fonctions et variables, mais jamais les données elles-mêmes.

Il existe des logiciels qui obfusquent le code VBA, mis l'obfuscation doit permettre au code de continuer à fonctionner alors qu'il est obfusqué car forcément, dans le cas que tu soulèves, ton code de cryptage/décryptage doit être en clair, ce qui enlève tout l'intérêt du cryptage et un simple STOP dans une procédure permettrait de stopper la macro et de voir tout en clair... :?

Je rejoins les autres contributeurs: Soit ton truc en vaut vraiment la peine (ce dont je doute en Excel/VBA*), soit tu perds ton temps ;)

* Lorsque je dis "je doute que ça en vaille la peine", je ne mets pas en cause ton talent, ton code, etc. J'appuie simplement Patrice lorsqu'il te dit que ce qui devait être inventé l'a déjà été, et partagé de très nombreuses fois sur les forums.