Discussion :

[Titum]

Bonjour à tous,

On m'a donné un fichier .xla pour un projet, contenant pas mal de code VBA, sauf que quand j'ouvre Microsoft Visual Basic il n'y a rien ! Seulement "Feuil1" et "ThisWorkBook" dans "Microsoft Excel Objects", pas de dossier "Modules".

J'ai un autre fichier à moi (.xlm) que je peux ouvrir en même temps et pour lequel j'ai bien un dossier "Modules" qui me permet de voir le code.

J'ai décompressé le fichier xla et en effet il est rempli de dossiers et de fichiers VBA mais qui sont encodés donc illisibles, mais dans lesquels je retrouve des noms de fonctions et autres infos que je devrai voir dans le code.

Pourquoi je ne peux pas le lire ?!

Merci pour vos éclairages...

[Menhir]

On m'a donné un fichier .xla pour un projet, contenant pas mal de code VBA, sauf que quand j'ouvre Microsoft Visual Basic il n'y a rien ! Seulement "Feuil1" et "ThisWorkBook" dans "Microsoft Excel Objects", pas de dossier "Modules".

Les macros peuvent être écrites dans "Feuil1" ou "ThisWorkBook".
Surtout s'il s'agit de macro évènementielles.

fichiers VBA mais qui sont encodés donc illisibles, mais dans lesquels je retrouve des noms de fonctions et autres infos que je devrai voir dans le code.
Pourquoi je ne peux pas le lire ?!

Peut-être parce que l'auteur les a protégé.

[patricktoulon]

On m'a donné un fichier .xla pour un projet, contenant pas mal de code VBA, sauf que quand j'ouvre Microsoft Visual Basic il n'y a rien

perso quand on me donne un xl(a,am,sx,lm,etc....) j'ouvre le classeur en bloquand les macros

si je vois pas le code je jette le fichier

[Titum]

Je ne peux pas juste jeter le fichier, il contient du code dont j'ai besoin. Beaucoup de code !
Dans "Feuil1" comme dans "ThisWorkbook" je double-clique pour ouivrir la fenêtre de code et au mieux j'ai

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
End Sub

C'est tout :'

[Jean-Philippe André]

Salut,

il y a un mot de passe sur ton fichier ?

C'est confirmé de la part de celui qui t'envoie le fichier qu'il contient bien du code ? Ce n'est pas un poisson d'avril en retard ??

[Qwazerty]

Salut

Le code est secret ou tu peux diffuser?

++
Qwaz

[Pierre Fauconnier]

Salut.

Je ne comprends pas bien ton problème...

Tu dis que tu décompresses le XLA (un xla n'est pas compressé). C'est un xla ou un xlam? Tu dis que tu vois du code illisible. C'est donc que tu vois les modules...
Tu vois les modules ou pas?

J'ai l'impression que le code a été obfusqué.

Lorsque tu vois le code, ça ressemble à ceci?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Function iqiqqqiqiqql&(iqiijiiqiijq() As Byte, iqiqqjiqiqqp As Boolean)
Dim iiiqijiiiqip%, iilplpiilpji%, iqiqliiqiqlq&
iqiqliiqiqlq = IIf(iqiqqjiqiqqp, 128, 256)
For iiiqijiiiqip = UBound(iqiijiiqiijq) To LBound(iqiijiiqiijq) Step -1
iqiqqqiqiqql = iqiqqqiqiqql + (iqiqliiqiqlq ^ iilplpiilpji * iqiijiiqiijq(iiiqijiiiqip))
iilplpiilpji = iilplpiilpji + 1
Next iiiqijiiiqip
End Function
Function iqiqlliqiqlj(iiijqliiijqj%, iilpjqiilpjl As iiqqppiiqlii) As iiqqppiiqlii
Dim iqiqlpiqiqji As iqiiqiiqiiqq
Dim iqiqjqiqiqjl As iqiijliqiijj, iqiqjjiqiqjp As iqiipqiqiipl
Dim iiijqpiiijli$, iqiqpiiqiqpq$
Dim iqiqpliqiqpj&, iiipqqiiipql&, iijjiiiijjiq&
Dim iijqiiiijqiq As iiqqppiiqlii
Dim iqiqppiqilii(1 To 10) As Byte
On Error GoTo fin
iiipqqiiipql = iilpjqiilpjl.iiqliqiiqlil
iqiqlliqiqlj = iijqiiiijqiq

Si oui => obfusqué (utilisable et fonctionnel, mais illisible et incompréhensible par un humain)

[unparia]

Bonjour
Que veux-tu exactement dire par :

Seulement "Feuil1" et "ThisWorkBook" dans "Microsoft Excel Objects", pas de dossier "Modules".

Cela signifie-t-il que tu vois ceci en affichant l'explorateur de projet ?

?
Si oui -->> question : sur quoi cliques-tu très précisément lorsque tu veux travailler normalement avec cette application ?

Par ailleurs :

J'ai décompressé le fichier xla et en effet il est rempli de dossiers et de fichiers VBA

je ne comprends pas vraiment le sens de cette phrase. Mais peu importe. Peux-tu nous montrer ici la liste de ces "dossiers et fichiers" ?

[Titum]

Bonsoir,
Je ne peux pas divulguer le code.

Désolé c'est un XLM en fait, pas XLA. Ca ne change pas grand chose.
J'ai un fichier qui sert de base aux projets et contenant tout le code VBA nécessaire mais pas de données dans la feuille, il fait plusieurs Mo donc ce n'est pas un fichier vide. J'en ai un autre qui contient des données visibles dans plusieurs feuilles.
Ce qui me semble louche c'est que quand j'ouvre le fichier de base, il s'appelle "Classeur1" (image ci-dessous) au lieu de mettre le nom du fichier. Ce qui voudrait dire qu'Excel plante sans rien dire et ouvre un nouveau fichier comme si de rien n'était
Ci dessous "Classeur1" est donc ce que j'obtiens en ouvrant mon fichier XLM. Le suivant est un fichier dans lequel on a 3 feuilles avec le fameux dossier de modules contenant du code. Le dernier est un fichier de projet qui a des feuilles supplémentaires avec des quelques données mais toujours pas le code attendu ! J'ai ouvert les feuilles dans VBA et ThisWorkbook mais ça ne contient pas le code.


Le format des fichiers Microsoft Office est en fait un répertoire zippé. On peut donc les dézipper pour voir le contenu, tout simplement.
Lorsque je regarde le contenu dézippé du fichier de base il y a un répertoire _VBA_PROJECT_CUR contenant des sous-répertoires et fichiers qui sont exactement les fonctions VBA que je cherche à lire, mais en les ouvrant ça donne ça

Il y a certains fichiers en clair contenant les positions et tailles des fenêtres à ouvrir par VBA.

Il n'y a pas de mot de passe (en tut cas ça ne demande rien à l'ouverture).

Voilà où j'en suis. Merci pour tous vos messages.
Petite info supplémentaire concernant le soupçon de plantage sans notification : pas d'alerte dans le journal d'évènements Windows concernant Microsoft Office qui puisse y ressembler.

[unparia]

Lorsque je regarde le contenu dézippé du fichier de base il y a un répertoire _VBA_PROJECT_CUR contenant des sous-répertoires et fichiers

J'attends donc que tu nous en montres la liste (cf mon message précédent)

J'attends également que tu nous dises (cf mon message précédent) ce sur quoi tu cliques pour lancer normalement ton application.

[clementmarcotte]

Bonjour,

J'attends donc que tu nous en montres la liste (cf mon message précédent)

Cela ne servira à rien. Dans le fichier Open XML, la partie VBA n'est pas en XML, mais en binaire. Si c'était un fichier Word, mais cela n'a pas été implanté dans Excel, on pourrait récupérer les noms des macros, mais pas le code.

[Titum]

Bon, alors je viens de résoudre mon problème !

J'ai transféré le dossier que l'on m'a donné (contenant les fichiers xlm, xls et des trucs annexes dont des executables appelés via VBA) à la racine de mon ordi.
De là j'ai lancé le fichier xlm de base, Excel s'ouvre et demande d'activer les macros et là une fenêtre personnalisée s'est ouverte avec un bouton demandant de charger un fichier xls de projet (réalisé par le développeur m'ayant donné les fichiers).
J'ai choisi le projet de démo, qui s'est ouvert dans une fenêtre Excel normale.
La fenêtre personnalisée a disparue toute seule.
Je me retrouve donc avec une instance d'Excel nommée "Excel" (elle ne prend pas le nom du fichier de base que j'ai lancé) et une instance avec le fichier xls que j'ai choisi d'ouvrir via la fenêtre personnalisée.
Et comme par miracle, dans ma liste des projets VBA, je vois enfin ce fameux fichier de base (avec le nom correct) avec tout son code, en plus du xls sélectionné.

Il semble donc bien qu'il y avait un bug silencieux quelque part. Mais c'est très bizarre puisque ce n'est pas un bug du code VBA contenu car ça ne demandait même pas d'activer les macros !

Pourquoi j'ai eu l'idée de transférer à la racine ? j'avais eu l'info de le mettre "dans" C mais pas à la racine... ou alors le détail qui tue m'avait échappé.
Ca ne m'explique pas le pourquoi du bug sans macro activée...

Merci beaucoup pour votre aide, réactivité, cogitations diverses et pertinentes et tout... !