XL 2019 appliquer une macro sur n'importe quel fichier excel

[pasquetp]

Bonjour,

je constate dans mon travail que je dois souvent utiliser des macros sur differents fichiers

j'aimerai pouvoir appliquer une macro via un bouton sans avoir copier coller la macro dans l'autre fichier ==> VOILA MON OBJECTIF

le bouton tools que j'ai mis dans le fichier PERSONAL XLSB, applique bien la macro mais cela appliquera une macro normal genre sub machin

le probleme est que la macro ne s'applique pas si cest un private sub worksheet change


voici la macro


==========================================

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then

If ActiveCell.Offset(-1, 1) = "not on the list" Then
ActiveCell.Offset(-1, O).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With


Else


With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With ActiveCell.Offset(-1, O).Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End If
End Sub

======================================

s'agissant d'une macro sur une page, auriez vous une idee pour que le bouton tools puisse appliqer cette macro sur n'importe quel page selectionnée de n'improte quel fichier selectionné?

je vous remercie

 

[Dudu2]

Bonjour,
Comprends pas.
Il y a une contradiction entre d'une part un bouton (déclenché par l'utilisateur) et l'évènement Worksheet_Change ((déclenché par Excel).
Quand veux-tu que le code que tu as prévu se déclenche ? Sur le bouton ou sur l'évènement ?

 

[pasquetp]

bonjour,

je vous remercie d'avoir pris le temps de me repondre et mes excuses pour le manque de clareté

Quand veux-tu que le code que tu as prévu se déclenche ? Sur le bouton ou sur l'évènement ? ==> sur l'evenement.

je prend un exemple:

disons que je telecharge un fichier de données sur notre site en interne ( il ne contient aucun code VBA), il contient juste des données brutes sur excel. ca veut dire que je ne peux pas appliquer de macros dessus a ce stade precis. ca c'est mon probleme majeur.

une fois telechargé, je suis obligé d'aller ouvrir un autre fichier excel qui lui contient le code VBA qui m'interesse , je copie le code vba et je vais le coller dans Sur VBA de ce nouveau fichier dans une des microsoft excel object.

une fois fairt je peux commencer a travailler sur la feuille excel concerné et les evenements se feront automartiquement

cela resume bien les etapes.

Le defi est comment eviter a piocher du code VBA ailleurs ? comment l'avoir quant je telecharge le fichier directement ?

j'espere avoir appporté de meilleures precisions et hesitez pas a me le dire si il reste des zones d'ombres

Cdt

Pierre

 

[sylvanu]

Bonjour Pasquetp, Dudu,
Si votre fichier contenant les macros à exécuter est à un endroit précis qui ne bouge pas, alors vous pouvez exécuter dans un nouveau fichier une macro du premier fichier.
Et si vous regrouper toutes ces macros dans un même fichier, vous pouvez créer un xlam qui sera appelé comme n'importe quel tools d'XL.
Vous avez des exemples comme ceux là :

Lancer une macro d'un autre fichier excel

Bonjour, à partir d'un fichier excel principal, je souhaiterais lancer une Sub qui se trouve dans un autre fichier excel. En fait, la sub du fichier excel principal permettrait de lancer le second fichier excel, d'activer la sub Workbook_open et ensuite de lancer la Sub TestFichierSecond() et...

excel-downloads.com

Exécuter une macro dans un autre classeur - Application.run avec ou sans paramètre - Macros et VBA Excel

Même s'il peut être utilisé pour une procédure placée dans le classeur lui même, Application.run est essentiellement utilisé pour exécuter un procédure située dans un autre classeur ouvert. [VBA Excel] Sans

www.developpez.net

Activer la macro d'un fichier depuis un autre fichier

Bonjour, Je souhaite depuis mon classeur BILAN DEPENSES exécuter la macro du classeur SUIVI_MAGASIN (mise à jour de donnée) dans le classeur SUIVI_MAGASIN. Or actuellement j’arrive à exécuter la macro du classeur SUIVI_MAGASIN mais dans le classeur BILAN DEPENSES (et du coup cela me met une...

forum.formuleexcel.com

ou encore de créer un fichier xlam qui regroupe vos macros :

VBA : Les fichiers XLAM

Suite à l’article concernant l’emploi des fichiers XLSB, classeur de « macros personnelles » VBA : Créer une macro multi feuilles , j...

olivier-bureautique.blogspot.com

Macros-commandes VBA/Créer des macros complémentaires — Wikiversité

fr.wikiversity.org

VBA Excel - Créer une macro complémentaire - Blogs - Forum du club des développeurs et IT Pro

VBA Excel - Créer une macro complémentaire Philippe Tulliez

www.developpez.net

Les macros complémentaires : comment les créer ?

Les fichiers de macros complémentaires (de type .xla ou .xlam) sont des fichiers regroupant plusieurs macros qui sont chargées au lancement d'Excel...

www.excel-plus.fr

 

[Hasco]

Bonjour,

Faites votre fichier avec macros
Et importez vos données avec Power query (onglet 'Données ')
Ou créer un module de classe application qui contrôlera tous vos classeur ouverts. Une usine à gaz pour si peu

 

[Dudu2]

Ce que tu veux faire demande des manips pas tout à fait simples.

Étape 1:
La difficulté c'est que tu dois gérer des évènements qui s'appliquent à tous les classeurs ouvert.
Alors il te faut cette structure de classeur qui inclut une classe avec un WithEvents Application.

Utilise le classeur joint Macros sur Évènements.xlsm que je t'ai préparé.
Il contient des Sub relatifs à quelques évènements dont le SheetChange qui semble t'intéresser et dont une liste exhaustive est documentée ici:

Objet Application (Excel)

Objet Application (Excel)

docs.microsoft.com

Étape 2:
Il faut que tu enregistres ce classeur comme Complément Excel:
Fichier / Enregistrer sous (n'importe quel répertoire où il n'ira pas de toutes façons) / Complément Excel (.xlam)
Le fichier Complément (.xlam) sera placé dans ton répertoire standard des Compléments:
C:\Users\<Utilisateur>\AppData\Roaming\Microsoft\AddIns\Macros sur Évènements.xlam

Étape 3:
Il faut ensuite activer ce Complément.
Ferme ce classeur.
Ouvre un nouveau classeur et va dans:
Fichier / Options / Compléments / Atteindre
et coche la case du Macros sur Évènements

Dès lors, dans tous les classeurs que tu ouvres, les évènements passeront par les Sub correspondants que tu auras codés dans Macros sur Évènements.xlsm.

 

[Dranreb]

Bonjour.
Je conseillerais dans le classeur de macro un UserForm non modal montrant que le dispositif est actif (Des évènements de n'importe quel type d'objet y compris de Worksheet ne peuvent de toute façon être pris en charge que depuis un module objet, alors pourquoi pas un UserForm).

Option Explicit
Private WithEvents Wsh As Worksheet
Private Sub UserForm_Initialize()
   Set Wsh = ActiveSheet
   Me.Caption = Wsh.Name
   End Sub
Private Sub Wsh_Change(ByVal Target As Range)
…

 

[Dudu2]

Il existe une étape supplémentaire que j'appellerai l'Étape @patricktoulon (il saura bien pourquoi )

Le Complément Excel tel qu'installé est fonctionnel. Rien de plus n'est nécessaire.

Si toutefois, tu veux en prime intégrer dans ton Complément des fonctions à but générique que tu souhaites pouvoir appeler directement, comme si elles étaient dans le module appelant de n'importe quel classeur ouvert, @patricktoulon (et sans doute d'autres) applique cette méthode.

- Donner un nom particulier au ProjetVBA dans le classeur des macros: Macros sur Évènements.xlsm. Le nom que j'ai donné est ComplémentMacros.

- Dans le classeur quelconque où tu souhaites appeler les fonctions qui sont dans le classeur des macros, ajouter / cocher la Réference qui y apparait automatiquement à partir du moment où le classeur des macros est enregistré comme Complément.

 

[Hasco]

Re,

Euh... un simple classeur contenant toutes les macros. Classeur enregistré en tant que modèle avec macro.... devrait suffire.
Mais c'est vrai, aucune raison de faire simple quand on peut faire compliqué.

 

[patricktoulon]

re
Bonjour à tous

Il existe une étape supplémentaire que j'appellerai l'Étape @patricktoulon (il saura bien pourquoi

ça me fait marrer moi "l'étape patricktoulon" comme si c'était moi qui l'avais inventé

 

[Hasco]

Re,

Enregistrer-sous et dans la liste des extension choisir .XLTM (T pour Template).
N'importe quel classeur peut être ouvert comme modèle.
Dans l'explorateur de fichiers, faites un click-droit sur un classeur (.xlsx ou xlsm) et choisir "Nouveau", votre fichier sera ouvert comme s'il était un modèle et quand vous l'enregistrerez par l'interface, c'est "Enregistrer sous" qui s'ouvrira.

Enregistrer comme modèle permet de l'avoir dans les listes de modèles lorsque vous ouvrez un nouveau classeur par "Nouveau"

 

[Dudu2]

Oui, merci pour ton explication, en parallèle, j'ai pu consulter la doc Microsoft.
On peut enregistrer le classeur en tant que modèle ou même faire du copier/coller d'un fichier texte dans chaque feuille concernée. Et toute l'équipe doit suivre le process, et reprendre si possible le backlog des classeurs. Ça c'est du simple en effet !

 

[Hasco]

Il n'est question ici ni d'équipe ni de faire suivre le process par quiconque autre que le demandeur.
Proposer à quelqu'un qui maîtrise mal VBA un module de classe application qu'il ne saura pas adapté et le rendra ainsi dépendant de "sachants" aléatoires est pour moi un non sens évident.

Alors au demandeur, je dis : faites avec vos connaissances actuelles, et celles qu'il vous semble simple d'acquérir.
Mais ce n'est que l'avis de quelqu'un qui a quarante ans d'expérience.

@Dudu2 je sais bien qu'avec vos copains vous préférez les grosses machines outils aux mécanismes obscures mais ici il ne s'agit pas de vous.

 

[Dudu2]

@Hasco, je ne vois pas ce que viennent faire les grosses machines outils dans cette affaire.
Si vous considérez la création d'un Complément Excel comme une grosse entreprise, revoyez vos standards et dispensez-vous de conseillez du modèle à répliquer à l'envie. Ça ne relève plus du simple mais du simplisme.

 

[patricktoulon]

re
rebonjour à tous
perso je suis assez d'accords avec @Hasco
autant proposer au demandeur quelque chose qui est à sa porté ( même si ca parait être des manips de débutant)
quitte a revenir plus tard sur des standards un peu plus complexe lorsque l'expérience du demandeur est plus importante