XL 2019 Déclencher une macro d'un classeur fermé

pat66 · 10 Mars 2021

Bonjour Le forum,

Dans le même dossier, j'ai 2 classeurs test1.xlsm et test2.xlsm
Mon problème :
Comment peut on activer une macro située dans un module standard de test2 en ouvrant test1

j'ai bien essayé dans test1 avec :
Private Sub Workbook_Open()
Application.Run ThisWorkbook.Path & "\test2.xlsm'mamacro"
end sub

mais cela donne "erreur d'execution 1004", je précise que le classeur, les feuilles et le vba sont protégés

pourriez vous m'aidez svp

merci et belle journée à toutes et à tous

danielco · 10 Mars 2021

Puisque le classeur doit être ouvert, tu ne dois pas mettre le chemin. Pense à mettre des quotes si le nom du classeur comporte des espaces.

Daniel

danielco · 10 Mars 2021

mbmb à dit:
Je ne vois pas comment la macro pourrait être ouverte, sans que le fichier soit lui même ouvert ... et que la macro soit alors interprétée par Excel ... En tous cas ... c'est la manière de faire que j'utilise ... il y a peut-être mieux ... mais cela fonctionne et est transparent pour l'utilisateur ... (l'appel tel qu'indiqué ouvre le classeur et exécute la macro + la commande de fermeture en fin de macro)
(dans mon cas, chacun des 100 utilisateurs a son propre fichier excel avec ses propres données ... et quand ils cliquent sur le bouton, ils appellent tous la même macro ... si je dois faire une modif sur la macro, je ne la fait que sur 1 fichier ... et pas sur les 100. S'ils sont susceptibles de cliquer en même temps, il faut activer le partage de fichier sur le fichier de la macro)

C'était justement la question. ceci dit, Power Query sait lire des cellules sans que le classeur soit ouvert, par exemple...

Daniel

mbmb · 10 Mars 2021

pat66 à dit:
toujours pas = erreur 1004

pensez vous que c'est correctement écris notamment ThisWorkbook.Path &
Application.Run ThisWorkbook.Path & "\test2.xlsm!mamacro"

cette macro fonctionne bien, y pourrais je ajouter l'instruction pour activer la macro ?
Workbooks.Open Filename:=ThisWorkbook.Path & "\test2.xlsm"

merci

N'as-tu pas la possibilité de mettre tes 2 fichiers à disposition ?

pat66 · 10 Mars 2021

oui bien sur

merci

job75 · 10 Mars 2021

Bonsoir,

mbmb à dit:
N'as-tu pas la possibilité de mettre tes 2 fichiers à disposition ?

pat66 à dit:
oui bien suri

Cela aurait dû être fait dès le début non ?

Dans test2.xlsm la macro entraîne le suicide du fichier !

Donc il suffisait de mettre dans test1.xlsm la macro :

VB:

Private Sub Workbook_Open()
On Error Resume Next
Workbooks("test2.xlsm").Close False 'ferme le fichier s'il est ouvert
Kill ThisWorkbook.Path & "\test2.xlsm"
End Sub

A+

Dranreb · 10 Mars 2021

Alors c'est :

VB:

Application.Run "'" & ThisWorkbook.Path & "\test2.xlsm'!mamacro"

pat66 · 11 Mars 2021

Bonjour le fil
Bonjour Job75, bonjour Danreb

je vous remercie beaucoup et c'est vrai qu'un fichier exemple est beaucoup plus explicite pour vous.
En tout cas, Les 2 solutions fonctionnent parfaitement

J'ai encore 2 questions qui me turlupine:
1- Comment ajouter un second fichier à éliminer, exemple test2 et test3
2- dans le cas ou le fichier à éliminer n'est pas dans le même répertoire "ThisWorkbook.Path" peut on demander à la macro de le chercher sur C:

merci

job75 · 11 Mars 2021

Bonjour pat66, le forum,

VB:

Private Sub Workbook_Open()
On Error Resume Next
Workbooks("test2.xlsm").Close False 'ferme le fichier s'il est ouvert
Workbooks("test3.xlsm").Close False 'ferme le fichier s'il est ouvert
Kill ThisWorkbook.Path & "\test2.xlsm"
Kill ThisWorkbook.Path & "\test3.xlsm"
Kill "C:\test2.xlsm" 'sur disque C
Kill "C:\test3.xlsm" 'sur disque C
End Sub

A+

pat66 · 11 Mars 2021

Job75,
cela fonctionne si test2 et test3 sont dans le même dossier que test1, mais pas si test2 et test3 sont sur C: ou sur le bureau

peut être une idée pour les supprimer ou qu'ils soient sur le disque dur ?

job75 · 11 Mars 2021

Le code du post #23 supprime les fichiers s'il sont sur le disque C mais pas dans un de ses dossiers.

Pour les supprimer de tous les dossiers et sous-dossiers de C faites une recherche sur le mot récursivité, le problème a déjà été traité.

pat66 · 11 Mars 2021

Je vous assure et je viens encore de tester en mettant les 2 classeurs sur C: mais ils ne disparaissent pas
Kill "C:\test2.xlsm" 'sur disque C
Kill "C:\test3.xlsm" 'sur disque C

ok je vais voir pour récursivité

merci

job75 · 11 Mars 2021

pat66 à dit:
Je vous assure et je viens encore de tester en mettant les 2 classeurs sur C: mais ils ne disparaissent pas
Kill "C:\test2.xlsm" 'sur disque C
Kill "C:\test3.xlsm" 'sur disque C

Effectivement chez moi non plus : il faut disposer des droits Administrateur pour pouvoir les supprimer.

job75 · 11 Mars 2021

Bien noter que quand le fichier test.xlsm est dans C:\ la macro "annexe" (suicide) beugue.

dysorthographie · 11 Mars 2021

bonjour,
ce code va ouvrir et déclencher la macro du classeur fermé!

VB:

Sub test()
ThisWorkbook.Application.Run "'C:\Myrep\Classeur.xlsm'!test"
End Sub

job75 · 11 Mars 2021

Bonsoir dyso,

L'ami Dranreb a déjà proposé cette solution.

L'inconvénient c'est justement que cela ouvre le fichier.

Bonnenuit.

XL 2019 Déclencher une macro d'un classeur fermé

pat66

XLDnaute Impliqué

danielco

XLDnaute Accro

danielco

XLDnaute Accro

mbmb

XLDnaute Nouveau

pat66

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

job75

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

job75

XLDnaute Barbatruc

pat66

XLDnaute Impliqué

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

job75

XLDnaute Barbatruc

Discussions similaires