Discussion :

[Thierry_PALLIER]

On est bien d'accord qu'il faut "Microsoft Visual Basic For Applications Extensibility 5.3" (coté Access)
En dehors de celle là, dans ton post 17, tu parles de référence au VBE Excel (apparemment version 12 pour Excel 2007). Pour moi, c'est de cette référence que tu n'as pas besoin puisque l'on y accède via xlBook.
Pour ne pas avoir besoin de référence du tout, il faudrait remplacer "vbext_ct_StdModule" par 1
Cdlt

[tee_grandbois]

Thierry,
je suppose que ton dernier post s'adresse à titi95 vu que c'est lui qui a posté le #17 ...

[Jean-Philippe André]

Salut,

j'ai une question, juste pour arriver a faciliter la lecture du fil, titie95 ET tee_grandbois, vous avez le meme probleme du coup ou c'est un peu du parallel debug ?

Ca bloque sur quelle etape du coup svp ?

[titi95]

Bonjour à tous

Pour répondre à Jean-Philippe, ça bloque sur

Code :

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

xlBook.VBProject.VBComponents.Add(1).Name = "NomModule"

mais je te conseille de relire mes deux messages d'hier soir.

[Jean-Philippe André]

Ok,

alors pour tacher de voir laquelle des deux parties du code plantouille :

Code :

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

xlBook.VBProject.VBComponents.Add(1).Name = "NomModule"

a splitter en

Code :

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

1
2
3
Dim comp As VBIDE.VBComponent
set comp = xlBook.VBProject.VBComponents.Add(1)
comp.Name = "NomModule"

[titi95]

J'ai (ré)essayé ton dernier, mais rien de neuf.
Message obtenu :



D'après moi il n'y a pas (plus) de VB avec mon Excel 97. Vérifié également sur Word 97.
Peut-on recharger quelquechose ?

[Jean-Philippe André]

Quelle tristesse de lire que tu es en Access 2010 pour aller sur de l'Excel 97

Bon alors si on n'arrive pas a faire cela, la solution serait de passer dans un premier temps pas un classeur excel avec deja un module (vide) et voir si on arrive a le manipuler s'il est cree.

[titi95]

Quelle tristesse de lire que tu es en Access 2010 pour aller sur de l'Excel 97

Je ne vois pas où est le problème. Tu dois savoir que pour au moins 99% des usages domestiques par des utilisateurs lambda, toutes les soi-disant améliorations apportées par MS dans les nouvelles versions ne servent à rien. Sauf pour le tiroir-caisse de Bill Gates !

Rappel : la base Access (diffusée) doit pouvoir générer des fichiers Excel indépendamment des versions. En 97 ça passe.

...par un classeur excel avec deja un module (vide)...

Désolé, mais je te renvoie à nouveau à mon dernier message d'hier soir :

N'ayant pas utilisé les macros sous Excel depuis un certain nombre d'années, et c'était pour mon entreprise, je viens d'avoir l'idée lumineuse d'aller voir sur mon Excel 97.
Ô surprise !

Quand je fais Outils/macros, rien ne se passe quand je choisis VBE et j'ai le message 'enregistrement impossible' quand je veux enregistrer une macro.
Il y a donc un problème de VBE. (absent ?)
J'ai repris l'installation à partir du CD, mais je n'ai rien vu en relation avec VBE.
A noter que je suis sous Windows 10 sur mon nouveau PC.

Donc aucun accès à VBE ni aux macros à partir d'Excel.
Et je me répète : j'ai écrit du code et fait des macros sous Excel 97 sur les postes de mon boulot... mais qui n'étaient pas sous Windows 10.
CQFD : le progrès n'est pas toujours là où l'on croit...

En résumé, existe-t-il un moyen de compléter l'installation d'Excel pour pouvoir accéder à VBE ?

Bien cordialement.

[Thierry_PALLIER]

Bonjour.
Tu peux mettre un point d'arret sur la ligne en question et voir Sil il y a un VBE dans xlBook.VBProject
image faite d'après mon code, sur un fichier xlsm vide.


Cdlt

[tee_grandbois]

j'ai une question, juste pour arriver a faciliter la lecture du fil, titie95 ET tee_grandbois, vous avez le meme probleme du coup ou c'est un peu du parallel debug

Bonjour Jean-Philippe,
ce n'est pas exactement le même problème : ma démarche était d'essayer de résoudre le problème de titi95 (et lui donner un coup de main qui s'avère peu concluant pour l'instant) en trouvant le nom de la référence afin de l'ajouter par code et lui fournir.
Je suis donc parti du tutoriel de sylkroad mais je n'ai même pas réussi à lancer ce simple code :

Code :

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

1
2
3
4
 
Sub afficherLaVersionVBE()
MsgBox Application.VBE.Version
End Sub

enfin si, j'ai réussi mais avec un message d'erreur '1004'.

[titi95]

Thierry

J'ai fait comme proposé.
1 - J'ai mis une extension xlsm au fichier : il se crée bien mais je ne peux pas l'ouvrir (sous Excel 97).
2 - blocage sur la ligne 'set proj' ;situation idem à la suivante
3 - sans 'set proj' blocage sur la ligne 'set comp' (comme d'habitude). Dans l'arborescence des variables locales, je n'ai trouvé VBE que sous xlApp (voir surligné)




Rien plus haut


4 - avec (1) à la place de (vbext_ct_StdModule) : même résultat.

Merci !

[Thierry_PALLIER]

Bon bah maintenant on sait
nb je crois que les fichier xlsm ne sont apparu qu'en 2007.
Essais de créer un fichier Excel sur un autre pc, et refait les essais avec, sur ton pc.
Sinon j'en ai un en pj.

ps: j'ai rajouté xlApp.Visible = True , c'est plus pratique et sinon je ne vois plus le ruban Excel ! Bizarre.

[titi95]

J'ai bien essayé de créer le module dans ton fichier : même résultat.

Donc j'ai un problème de VB Excel sur mon PC.

Merci quand même.

[Jean-Philippe André]

J'ai une idee :

Regardde dans les options Excel si tu as bien dans les options Macros la case Macros cochee

[titi95]

options Excel si tu as bien dans les options Macros la case Macros cochee

Je ne vois pas où.
Par Outils/Macro : rien à cocher.
Par Outils/Options/Général 'Activer l'alerte macro' est bien coché, mais sans rapport.

[Jean-Philippe André]

Je sens que Excel 97 n'a pas ce niveau de subtilite :
https://technet.microsoft.com/fr-fr/.../cc148223.aspx

[titi95]

Bonjour à tous

En définitive, je n'ai plus l'autorisation de créer des macros et des procédures nouvelles sur Excel (et sur Word).
D'après différentes discussions sur des forums je ne suis pas le seul.
Une piste évoquée serait un problème de droits administrateur qu'il faudrait remettre en modifiant une clé de registre. J'ai jeté un coup d’œil dans la table, mais je n'ai rien vu d'évident.
J'abandonne donc, sauf si quelqu’un confirme cette piste... et avec une solution.

Par ailleurs, en naviguant sur les forums, je suis tombé sur un message avec un fichier Excel en pièce jointe contenant des macros.
Je l'ai ouvert sans problème, et je peux créer des macros et des procédures !?

J'ai donc installé mon code dans ce fichier et fait le ménage. Et au lieu de créer un fichier vierge à partir de la base Access, je m'en sert de modèle. Parfait, sauf qu'il faut que je diffuse ce fichier systématiquement en plus de la base.

Donc si l'un d'entre vous trouve la solution pour accéder aux macros et procédures, je suis preneur.

Un grand merci à tous !

Nota : je laisse la discussion ouverte quelques temps au cas où

[Thierry_PALLIER]

Bonjour
.
@ titi95: dans le code que tu nous a donné, tu ouvre un fichier Excel existant. Peux-tu nous montrer ton code de création de ce fichier.
Le problème pourrait éventuellement venir de là.
ps: dans le fichier que je t'ai joint, il y avait 2 modules ,donc cela aurait du fonctionner aussi !
Cdlt

[titi95]

Bonjour Thierry

Un petit résumé pour éclaircir tout cela.

En 'manuel'
Je ne peux pas créer de macro ni accéder à VB sur un fichier Excel vierge de code (idem sur Word).
J'ai accès à VB sur un fichier contenant déjà du code et je peux enregistrer et exécuter des macros.

Par VBA à partir d'Access
Je ne peux pas créer de macro ni accéder à VB sur un fichier Excel vierge de code.
Sur un fichier contenant déjà du code, en utilisant celui que tu m'as fourni, j'ai tout de suite un message d’erreur (exactement le même à celui déjà indiqué dans nos discussions)



et sur mon fichier en xls contenant déjà du code, blocage sur la ligne
.

Code :

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

Set proj = xlBook.VBProject

alors que ce code ne crée pas de nouveau fichier.

Cordialement

[Thierry_PALLIER]

Visiblement tu as office 2010, donc avec Excel 2010, tu ne peux pas créer un xls contenant des modules (macros).
C'est pour cela que je t'ai demandé comment tu créais ton fichier.
La procédure suivante crée un fichier avec une seule feuille nommée , l'enregistre (xlsm) puis crée la procédure et réenregistre le fichier :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub dvpEssais2()
 
    Dim CheminCompletXLS As String   ',LignesCode As String
    Dim xlApp As Variant, xlBook As Variant    ', xlSheet As Variant
    Dim proj As VBIDE.VBProject
    Dim comp As VBIDE.VBComponent
    Dim CodeMod As Object
    Dim LineNum As Integer
 
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True
 
    CheminCompletXLS = CurrentProject.Path & "\" & "MonFichier2"    'ne pas preciser l'extention
 
    With xlApp.Workbooks.Add(-4167)
        .WorkSheets(1).Name = ("Totooo")    '1 feuille Excel normale
 
        xlApp.Activeworkbook.SaveAs FileName:=CheminCompletXLS, FileFormat:=52    'xlIntlMacro 'xlOpenXMLWorkbookMacroEnabled
    End With
 
    Set xlBook = xlApp.Activeworkbook    'Workbooks(CheminCompletXLS)
    '    Set xlSheet = xlBook.Worksheets("Feuil1")
 
    Set proj = xlBook.VBProject
    Set comp = xlBook.VBProject.VBComponents.Add(vbext_ct_StdModule)    'module standart
    comp.Name = "MyNewModule4"
 
    Set CodeMod = comp.CodeModule
 
    With CodeMod
        LineNum = .CountOfLines + 1
        .InsertLines LineNum, "Public Sub ANewSub()"
        LineNum = LineNum + 1
        .InsertLines LineNum, "  MsgBox " & """" & "I added a module!" & """"
        LineNum = LineNum + 1
        .InsertLines LineNum, "End Sub"
    End With
    xlApp.Activeworkbook.SaveAs FileName:=CheminCompletXLS, FileFormat:=52
    xlBook.Close
    Set xlApp = Nothing
End Sub

Cdlt