Discussion :

[titi95]

Bonjour

A partir d'une base Access je génère un fichier Excel.
Pas de problèmes pour créer les feuilles, les entêtes et pieds de page, transférer les données... et créer un bouton.

Mais comment créer la macro dans le fichier Excel qui sera exécutée par ce bouton ?

Merci pour votre aide.

[marot_r]

Bonjour.

On peut mais c'est assez compliqué.
Il faut allez jouer dans les objets du VBE et parfois certaines sécurité t'en empêchent.

Je te suggère 2 alternatives :

1. Écrire et faire exécuter ta macro dans le code Access.
2. Développer ta macro dans Excel, et faire une fichier modèle que tu recopies et que tu enrichis avec tes données à chaque traitement.
   Une fois la copie de ton modèle complétée, tu ouvres l'ouvres et tu exécutes la macro Excel avec la commande call AppExcel.Run("NomMacro") où AppExcel est l'instance de Excel créée par Access.
   Personnellement c'est ce que je fais. Cela me permet de bien séparer la partie Excel de celle Access.

A+

[titi95]

Quelques précisions supplémentaires :

La base Access est diffusée à des utilisateurs "lambda".
L'utilisateur de cette base a la possibilité, suivant des paramètres qu'il choisit, de générer (par un bouton) le fichier Excel en question.
Ce fichier Excel doit être autonome pour être utilisé par d'autres personnes non munies de la base Access.

Ma question est donc : comment, au moment de la génération du Excel, écrire un module dans celui-ci ?
(Module qui s'exécutera à l'appui du bouton créé dans le fichier Excel)

[marot_r]

Bonjour.

Inserting a module into a new workbook using VBA
https://stackoverflow.com/questions/...book-using-vba

A+

[titi95]

Désolé, mais ce code n'est pas directement utilisable (déclarations oubliés, manque d'explication...),.

Mais je "tourne autour du pot" !
En effet, mes nombreuses recherches sur différents forums m’amènent toujours à une ligne de code plus ou moins équivalente , mais qui bloque : l'avant-dernière ci-dessous qui devrait créer le module dans Excel

Code :

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

1
2
3
4
5
6
7
8
9
    Dim xlApp As Variant, xlBook As Variant, xlSheet As Variant
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("CheminCompletXLS")
    Set xlSheet = xlBook.Worksheets("NomFeuille")
...
    LignesCode = ...
...
    xlBook.VBProject.VBComponents.Add(1).Name = "NomModule"
    xlBook.VBProject.VBComponents("NomModule").CodeModule.AddFromString LignesCode

Erreur, oubli, impossibilité ? J'avoue ne plus avoir d'idée.

Merci d'avance si vous en avez une.

[tee_grandbois]

Bonsoir,
y a-t-il un message d'erreur ?
sinon il est question d'ajouter les références pour : Microsoft Visual Basic For Applications Extensibility 5.3

[titi95]

Pas de message d'erreur.
Microsoft Visual Basic For Applications Extensibility 5.3 bien installé.

[tee_grandbois]

bonjour,
est-ce référencé dans Excel : xlBook.VBProject.VBComponents ?

[titi95]

est-ce référencé dans Excel : xlBook.VBProject.VBComponents ?

Désolé, mais je ne comprends pas.

Rappel sur mes explications précédentes : le code problématique est exécuté dans Access au moment où il crée le fichier Excel.

[tee_grandbois]

Rappel sur mes explications précédentes : le code problématique est exécuté dans Access au moment où il crée le fichier Excel.

Oui, mais le code faisant appel à xlBook.VBProject.VBComponents et xlBook étant un objet de l'application xlApp, donc Excel, il faut à mon avis ajouter la référence dans Excel

[titi95]

Ok s'il faut la rajouter dans le fichier Excel.
Mais il faut le faire en VBA à partir d'Access au moment de la génération de ce fichier. Comment ?

Rappel : le fichier est généré directement à partir d'une base Access fournie à un utilisateur 'lambda'.

[Jean-Philippe André]

Salut,

pour les references dans Excel, tu as ceci pour te faire avancer

http://silkyroad.developpez.com/VBA/...Editor/#LIII-A

Tout ce que tu demandes est simple a faire, mais c'est un peu long, donc toutes les etapes seront a coder, plutot que d'avoir un fichier deja pret, mais on va y arriver =]

[tee_grandbois]

Ceci dit, j'ai essayé de suivre le tutoriel et j'ai un message d'erreur 1004 rien qu'en lançant cette instruction dans la fenêtre d'exécution :

Code :

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

? msgbox(Application.VBE.Version)

et j'ai bien la référence cochée. Cela ne va pas être si simple que cela ...

[Jean-Philippe André]

Tigre, la ligne en question, tu la lances depuis Access ou Excel ?

Si tu tentes depuis Access il te faut passer par xlApp au lieu d'Application

Sous Excel j'obtiens par contre la valeur 7.00 par exemple

[Thierry_PALLIER]

Bonjour le forum.

le code suivant marche:

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
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")
 
    CheminCompletXLS = CurrentProject.Path & "\" & "MonFichier.xlsm"
    Set xlBook = xlApp.Workbooks.Open(CheminCompletXLS)
    Set xlSheet = xlBook.Worksheets("Feuil1")
 
    Set proj = xlBook.VBProject
    Set comp = xlBook.VBProject.VBComponents.Add(vbext_ct_StdModule)    'module standart
    comp.Name = "MyNewModule"
 
    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
 
    xlBook.Close
    Set xlApp = Nothing

par contre, vouloir ajouter tous un bloc de code en une seul fois me semble assez périlleux !
Cdlt

[tee_grandbois]

@ Jean-Philippe, j'ai essayé depuis Excel bien sûr et ce pour obtenir le nom de la référence "Microsoft Visual Basic For Applications Extensibility 5.3" et essayer de la créer depuis Access.

@ Thierry_PALLIER :
bonjour Thierry,
je cherchai en premier lieu à créer la référence VBE 5.3 pour Excel depuis Access pour poster la méthode et ce, en essayant le tutoriel de sylkroad mais sans succès d'où mon dernier message.
Cette référence semble nécessaire pour créer du code Excel depuis Access.

[titi95]

Bonjour à tous

Comme proposé, je suis allé lire les versions de VB : sur Access c'est 7, et sur Excel impossible.

L'erreur 1004 signalée par tee_grandbois m'a fait penser que je faisais mes essais sur un code qui est en service sans problème par ailleurs, mais dont j'avais mis SetWarnings à False !
Mille excuses !

Le code de SilkyRoad proposé par Jean-Philippe et Thierry ne passe pas. Je m'en étais déjà fortement inspiré.

J'ai donc repris mes différents essais qui donnent tous une erreur '-2147319780 la méthode VBE de... a échoué' avec '(8002801c)' en plus lors du débogage.
Si cela vous dit...

[titi95]

Peut-être une piste...

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.

Les PC du boulot devaient être encore sous XP et je suis sûr d'avoir codé sous Excel 97 puisque je le faisais souvent à la maison.

La cause première n'est donc pas dans le code.

Une idée ?

[Thierry_PALLIER]

@ tee_grandbois
sur le site "Code Project" ,https://www.codeproject.com/Articles...BA-Code-Module :

"The Visual Basic Editor is an interface which is used to used to create, modify, and maintain Visual Basic for Applications objects. The majority of Microsoft Office applications include a built-in VBE interface which is used to access the underlying Microsoft Visual Basic for Applications Extensibility library (VBIDE). The interface is VBE, its implementation is VBIDE, and the code is VBA.

At runtime, an instance of VBIDE is automatically made available through the VBE property of the Application object. Additional type libraries are not required to use the property or the interface it exposes. The only requirement being that the target Office application supports the interface.

As a result, this project does not early bind to the extensibility type library. All extensibility objects are dimensioned as Object and any required constants have been manually re-created in the module included with this article."

A la dernière ligne ,il n'y aurais donc pas de référence à ajouter.

@ titi95 ,il faut un fichier .xlsm . La manip marche pour un xls, mais ne poura pas etre enregistré avec cette extension.
L'exemple que j'ai posté : win 10, office 2007
Cdlt

[tee_grandbois]

Merci des renseignements Thierry mais je n'ai rien inventé je n'ai fait que suivre le tutoriel ... http://silkyroad.developpez.com/VBA/...asicEditor/#LI