OVH Cloud OVH Cloud

Classeur avec macro auto ouvert par un autre classeur

2 réponses
Avatar
Pascal
Bonjour =E0 tous,

Voici mon soucis:

Lorsque je veux ouvrir un classeur excel contenant des=20
macros dans le workbook_open a partir d'une instruction=20
VBA d'un autre classeur, les macros ne s'executent pas.
Lors de l'ouverture normal du classeur, il n'y a aucun=20
probleme.

Je pense que ce Pb a du etre rencontre.

Par avance merci a tous ceux qui repondront.

Pascal

2 réponses

Avatar
Pascal
Bonjour M. GAMBIER

Merci beaucoup pour vos codes.
Cela fonctionne tres bien.

tres cordialement.

Pascal.


-----Message d'origine-----
Bonjour,

Ce code pourra peut-être vous aider :

Dans le classeur tiers :

Sub MacroToRun()

MsgBox "Hello"

End Sub



Dans le classeur "parent" :

Workbook.

Sub ExecutionMacro()

Dim objXL As Excel.Application

Dim CheminFichier As String

Dim NomProcedureAExecuter As String


Set objXL = CreateObject("Excel.Application")


NomProcedureAExecuter = "MacroToRun"


CheminFichier = InputBox("Veuillez entrer le chemin du
fichier ainsi que le nom


du fichier." & Chr(10) & "Exemple: C:MonR?
pertoireNomClasseur.xls" _


, "Saisir le chemin d'un classeur Excel")


If CheminFichier = Empty Then

Exit Sub

End If


objXL.Workbooks.Open CheminFichier


'Optionnal

objXL.Application.Visible = True


Valeur = objXL.Application.Run(NomProcedureAExecuter)


objXL.Quit


Set objXL = Nothing

End Sub

Cordialement

Benoit Gambier


"Pascal" wrote in
message news:3d8101c4ac55$88d87020$

Bonjour à tous,

Voici mon soucis:

Lorsque je veux ouvrir un classeur excel contenant des
macros dans le workbook_open a partir d'une instruction
VBA d'un autre classeur, les macros ne s'executent pas.
Lors de l'ouverture normal du classeur, il n'y a aucun
probleme.

Je pense que ce Pb a du etre rencontre.

Par avance merci a tous ceux qui repondront.

Pascal


Avatar
Benoit Gambier
A votre service.

Benoit Gambier

"Pascal" wrote in message
news:0a4701c4ac68$036da4b0$
Bonjour M. GAMBIER

Merci beaucoup pour vos codes.
Cela fonctionne tres bien.

tres cordialement.

Pascal.


-----Message d'origine-----
Bonjour,

Ce code pourra peut-être vous aider :

Dans le classeur tiers :

Sub MacroToRun()

MsgBox "Hello"

End Sub



Dans le classeur "parent" :

Workbook.

Sub ExecutionMacro()

Dim objXL As Excel.Application

Dim CheminFichier As String

Dim NomProcedureAExecuter As String


Set objXL = CreateObject("Excel.Application")


NomProcedureAExecuter = "MacroToRun"


CheminFichier = InputBox("Veuillez entrer le chemin du
fichier ainsi que le nom


du fichier." & Chr(10) & "Exemple: C:MonR?
pertoireNomClasseur.xls" _


, "Saisir le chemin d'un classeur Excel")


If CheminFichier = Empty Then

Exit Sub

End If


objXL.Workbooks.Open CheminFichier


'Optionnal

objXL.Application.Visible = True


Valeur = objXL.Application.Run(NomProcedureAExecuter)


objXL.Quit


Set objXL = Nothing

End Sub

Cordialement

Benoit Gambier


"Pascal" wrote in
message news:3d8101c4ac55$88d87020$

Bonjour à tous,

Voici mon soucis:

Lorsque je veux ouvrir un classeur excel contenant des
macros dans le workbook_open a partir d'une instruction
VBA d'un autre classeur, les macros ne s'executent pas.
Lors de l'ouverture normal du classeur, il n'y a aucun
probleme.

Je pense que ce Pb a du etre rencontre.

Par avance merci a tous ceux qui repondront.

Pascal