VBA - Les macros complémentaires

Version imprimable

19/12/2020, 18h21
Philippe Tulliez

VBA - Les macros complémentaires
Bonjour,
Avant d'écrire un tutoriel sur le sujet, j'ai rédigé quatre billets traitant des macros complémentaires (fichier XLAM)
N'hésitez pas à commenter
20/12/2020, 14h17
Invité

Citation:

Envoyé par Philippe Tulliez

Bonjour Philippe,

Beau travail.

Juste pour dire que je charge et les décharge mes macros complémentaires avec l'ouverture et fermeture d'Excel, cela permet aux utilisateurs d'avoir seulement à les mettre dans le bon répertoire lorsque je leur envoie une nouvelle version. Dans le TooltipText de la variable CommandBarPopup, j'y mets mes coordonnées et la date de la version, cela évite des malentendus en cas de bug et les utilisateurs savent qui appeler...
Sinon, je suppose que tu vas développer aussi la construction des menus et sous-menus dans un de tes prochains billets, à moins que tu l'aies déjà abordé.
Peut-être comptes-tu indiquer également qu'on peut utiliser l'onglet Feuil1 pour y mettre des paramètres en tant que zones nommées.

Bon courage pour la suite.
20/12/2020, 14h52
Pierre Fauconnier

Salut.

@Philippe: Chouette, ces billets! :plusser:

@Eric: Perso, j'utilise un ruban xml dans mes xlam ;)
20/12/2020, 14h59
Invité

Citation:

Envoyé par Pierre Fauconnier

Perso, j'utilise un ruban xml dans mes xlam ;)

Salut Pierre,

Je suppose que tu fais référence à ce message : https://www.developpez.net/forums/d2.../#post11111132

Je ne connais pas, je vais regarder l'avantage que cela aurait dans la distribution vers les clients.
20/12/2020, 16h27
Philippe Tulliez

Bonjour Eric,
Merci pour ton message :plusser:

Citation:

Juste pour dire que je charge et les décharge mes macros complémentaires avec l'ouverture et fermeture d'Excel, cela permet aux utilisateurs d'avoir seulement à les mettre dans le bon répertoire lorsque je leur envoie une nouvelle version.

Pour les applications dédiées, c'est également comme cela que je pratique. Je place le fichier xlam dans un sous répertoire nommé Config où se trouve également les fichiers INI

Citation:

Sinon, je suppose que tu vas développer aussi la construction des menus et sous-menus dans un de tes prochains billets, à moins que tu l'aies déjà abordé.

En fait c'est par un billet sur ce sujet que je comptais commencer la série afin de montrer comment afficher et masquer les menus dédiés dynamiquement mais curieusement avec Office 365 les CommandBars ne fonctionnent plus alors qu'avec 2010, 2013, cela fonctionne parfaitement bien.

Citation:

Peut-être comptes-tu indiquer également qu'on peut utiliser l'onglet Feuil1 pour y mettre des paramètres en tant que zones nommées.

Egalement, j'ai plusieurs feuilles dédiées aux paramètres.
20/12/2020, 16h31
Philippe Tulliez

Bonjour Pierre,
Merci pour ton message congratulant :plusser:
Cela fait longtemps que ce sujet est dans mes cartons et je voulais en faire un tutoriel mais la découpe en billets m'a paru plus encourageant.
20/12/2020, 16h47
Invité

Citation:

Envoyé par Philippe Tulliez

En fait c'est par un billet sur ce sujet que je comptais commencer la série afin de montrer comment afficher et masquer les menus dédiés dynamiquement mais curieusement avec Office 365 les CommandBars ne fonctionnent plus alors qu'avec 2010, 2013, cela fonctionne parfaitement bien.

Je suis également sur 365 et j'utilise toujours cette méthode avec des clients qui sont sur 2010 et 2013. En revanche, j'ai constaté également une modification du comportement d'Excel sur 365. Comme je l'indiquais, je charge et décharge les macros complémentaires au lancement et à la fermeture d'Excel. Mais maintenant, c'est comme si Excel créait provisoirement à chaque chargement de macro complémentaire une nouvelle instance de l'application et par voie de conséquence me ferme certaines macros puisque ces instances disparaissent au bout du compte, c'est très dérangeant. Je vais devoir modifier mon mode opératoire à court terme.
20/12/2020, 17h46
Pierre Fauconnier

Citation:

Envoyé par Philippe Tulliez

[...]En fait c'est par un billet sur ce sujet que je comptais commencer la série afin de montrer comment afficher et masquer les menus dédiés dynamiquement mais curieusement avec Office 365 les CommandBars ne fonctionnent plus[...]

J'ai une 365 et les commandbars fonctionnent bien. J'avais testé le tuto de Laurent Ott sur les commandbars et je n'ai pas eu de problèmes... :question: :question:
20/12/2020, 17h49
Pierre Fauconnier

Citation:

Envoyé par Eric KERGRESSE

[...]Je vais devoir modifier mon mode opératoire à court terme.

Faudrait peut-être que l'on crée une discussion autour des ces problèmes, car perso, je n'ai pas rencontré de choses bizarres lorsque j'utilise un xlam...
20/12/2020, 17h53
Invité

Citation:

Envoyé par Pierre Fauconnier

Chez moi, j'ai plusieurs xlam en permanence. Je suppose que c'est ma méthode de suppression à la fermeture d'Excel qui ne correspond plus et qu'il faut que je supprime.
20/12/2020, 18h17
Philippe Tulliez

Bonjour Pierre,

Citation:

J'ai une 365 et les commandbars fonctionnent bien. J'avais testé le tuto de Laurent Ott sur les commandbars et je n'ai pas eu de problèmes...

J'ai également essayé avec un petit code qui était dans le livre de Walkenbach pour Office 2003 et pareil. Fonctionne avec 2010, 2013 et bloque avec 365.
J'ai eu des comportements curieux également avec des [B]CommandButtons[/B ]type formulaire lorsque j'affichais un UserForm. Le VBA s'arrête sur une ligne avec surlignement en jaune comme si j'avais mis un Stop et puis cela a disparu arpès une mise à jour.
Autres bizarreries et là sans doute à cause de Windows 10 à la lecture de discussions longues sur ce forum. je n'atteins pas la dernière page. Je vais sur un autre PC avec Windows 8 et là cela fonctionne. Dès fois je deviens fou.
21/12/2020, 11h32
curt

Bonjour,

je pensais avoir fait le tour des macros complémentaires et de leurs mises en oeuvre.... et ben c'est raté. :aie:
Merci Philippe pour ces précieux billets
Bonnes fêtes de fin d'année à tous.
Curt
21/12/2020, 12h32
Philippe Tulliez

Bonjour Curt,
Merci pour ton message qui donne envie de continuer à écrire
10/05/2021, 15h02
MarcelG
Bonjour à vous, Bonjour au Forum,

Parallèlement à la discussion que j'ai ouverte exposant le contexte dans lequel je travaille.
(En résumé, Marcel = Développeur pour 200 collaborateurs)

Afin de tester, j'ai créé une xlam nommée test_xlam
au sein de laquelle se trouve la fonction
Code:

1 2 3 4 5 Option Explicit Public Function lasomme() As Byte lasomme = 2 + 2 End Function
Après avoir vérifié son installation, en ouvrant un nouveau classeur

Citation:

=lasomme()

me renvoie le résultat.

Mais au sein de la fenêtre Exécution

Code:

?lasomme

ne retourne aucun résultat.

Autrement dit, comment utiliser une macro complémentaire en VBA?

Merci les amis.
10/05/2021, 15h41
Philippe Tulliez

1 pièce(s) jointe(s)
Bonjour Marcel,
Pour que le résultat soit renvoyé depuis la fenêtre d'exécution, soit
- tu sélectionnes le projet xlam avant d'utiliser la fonction
- tu références le projet (Outils / Références...)
Attention : afin d'éviter toute ambiguïté, il est important de renommer le projet car par défaut ils ont tous pour nom VBAProject. Voir l'illustration ci-dessous

Pièce jointe 597544
10/05/2021, 15h43
Invité
Citation:

Envoyé par MarcelG

Bonjour Marcel,

Tu ne devrais avoir plutôt cette notation ?
Code:

1 2 ?activecell.value
Sinon ,

Citation:

Autrement dit, comment utiliser une macro complémentaire en VBA?

Pour ma part, je travaille de la macro complémentaire vers les fichiers à partir de menus et sous-menus et pas l'inverse (parce que je n'en ai pas l'utilité). Cela suppose pas mal de vérifications pour identifier le fichier, l'onglet, le serveur et j'en passe...
10/05/2021, 15h47
Pierre Fauconnier

1 pièce(s) jointe(s)

Salut Marcel,

Tu dois ajouter le xlam en tant que référence à ton projet. Je te conseille de nommer ton projet XLAM de façon explicite pour le retrouver facilement, car au départ, tous les projets VBA s'appellent VBAProject...

Pièce jointe 597546
10/05/2021, 17h00
MarcelG

2 pièce(s) jointe(s)

Bonjour à vus,

Philippe, Eric et Pierre qui m'apportent une réponse :ccool:

Merci Merci!

J'ai réussi!
Pièce jointe 597555

Un petit regard s'il vous plaît sur ce qui suit

Maintenant, je vais pouvoir
Sur tous les évènements Open de mes applicatifs gérer les habilitations de chaque collaborateur
1 - Atteindre la macro complémentaire par le procédé que j'expose dans ma récente discussion, ou bien, sans doute plus efficacement, par le code proposé par Philippe dans son billet.
2 - Mettre à jour les références, comme illustré, mais par VBA

Code:

Application.VBE.ActiveVBProject.References.AddFromFile Filename:=.....

Ceci en sachant que la table de données est inscrite dans le fichier xlsm qui sert de base au fichier xlam.
Car c''est à partir de cette cette table que sont développées les fonctions du xlam.
Je viens de voir que l'enregistrement en xlam peut être paramétrée dans la méthode SaveAs (xlOpenXMLAddIn)

Philippe,
Je pense humblement que ces processus et méthodes pourraient intégrer l'un de tes billets, ou ton futur tutoriel, non?

A bientôt.

Bonsoir les amis,

Après quelques heures passées, voici le code de mon module "gestion_addins" que je vais intégrer aux applicatifs.
Ces derniers ont été développés par moi, Marcel, et sont disponibles sur réseau (Paris-Province).

Dans l'ordre chronologique, le code va:
1 - Désactiver la Référence
2 - Désinstaller l'Addin, réputé ancien
3 - Copier l'Addin que j'ai mis à jour sur une ressource dédiée vers le répertoire Addins du collaborateur
4 - Installer l'Addin mis à jour
5 - Activer la référence

Par avance, merci pour vos remarques précieuses.

Nota: le code ne comporte pas de sortie anticipée (Exit For..)
Ceci pour faire plaisir à Tonton Pierre qui n'aime pas :D :ccool:

Code:

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Option Explicit
 
Const nom_court_xlam As String = "Collaborateurs"
Const nom_long_xlam As String = nom_court_xlam & ".xlam"
Dim nom_full_xlam As String
Const Rép_Source As String = "\\le_répertoire_dédié_géré_par_Marcel\Utilitaires\Macros Complémentaires"
 
Public Sub gest_addin()
 
nom_full_xlam = Application.UserLibraryPath & nom_long_xlam
 
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'https://www.developpez.net/forums/d235993/logiciels/microsoft-office/general-vba/verifier-l-activation-d-reference/
'https://www.developpez.net/forums/newreply.php?p=10506357&noquote=1
'https://www.mrexcel.com/board/threads/list-all-references-in-workbook-vbproject.606440/
'https://www.developpez.net/forums/d1897839-2/logiciels/microsoft-office/excel/macros-vba-excel/mise-jour-addin-projet-vba/#post11721324
'https://stackoverflow.com/questions/39413928/excel-vba-checking-if-addin-is-installed-but-not-open
 
'Contribution de Philippe
'https://www.developpez.net/forums/d2098922/logiciels/microsoft-office/excel/contribuez/vba-macros-complementaires/
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
'Au 11 mai 2021: OK
 
Dim NbreRef As Integer, i As Integer
 
i = 1
 
Dim RemoveRef As Boolean
RemoveRef = False
 
With ThisWorkbook.VBProject
        NbreRef = .References.Count
        Do While RemoveRef = False And i <= NbreRef
                Debug.Print i
                If .References(i).Name = "LesCollab" Then
                        .References.Remove Reference:=.References(i)
                        RemoveRef = True
                        MsgBox Prompt:="Référence désactivée!", Buttons:=vbInformation, Title:="Gestion des Références."
                Else
                        i = i + 1
                End If
        Loop
End With
 
Dim addin As Variant
 
Dim RemoveAddin As Boolean
RemoveAddin = False
 
Dim NbreAddins As Integer, j As Integer
 
j = 1
 
NbreAddins = Application.AddIns.Count
 
Do While RemoveAddin = False And j <= NbreAddins
      With Application.AddIns(j)
            If .Name = nom_long_xlam Then
                  .Installed = False
                  RemoveAddin = True
                  MsgBox Prompt:="Addin désinstallé!", Buttons:=vbInformation, Title:="Gestion des Addins."
            Else
                    j = j + 1
            End If
      End With
Loop
 
'Mise à jour de l'addin dernière version dans le répertoire addins du collaborateur
Call maj_addins
 
'Installe la macro complémentaire dans l'environnement utilisateur VBE
Application.AddIns.Add(nom_full_xlam).Installed = True
 
'Active la macro complémentaire
ThisWorkbook.VBProject.References.AddFromFile (nom_full_xlam)
 
End Sub
 
Sub maj_addins()
 
Dim classeur_1 As String
 
classeur_1 = Rép_Source & "\" & nom_long_xlam
 
Dim classeur_2 As String
 
classeur_2 = Application.UserLibraryPath & nom_long_xlam
 
FileCopy classeur_1, classeur_2
 
MsgBox _
        Prompt:="Références mises à jour"
 
End Sub

Bon week-end prolongé.
(du moins pour ceux qui pourraient en profiter :))