Ouverture Macro d'un autre classeur

[popline7]

Bonjour,
Je dois utiliser une macro(UnprotectionWbk d'un autre fichier excel.
Pour cela, j'utilise ce code🙂

Sub Test()
Set ofso = CreateObject("Scripting.FileSystemObject")
Source = "C:\Outil RH\Test\"

       For Each File In ofso.GetFolder(Source).Files
        fichierRma = File.Name
        ActiveWorkbook.RunAutoMacros which:=xlAutoOpen
        st = "'" & fichierRma & "'!UnprotectionWbk"
        Application.Run st
        Workbooks.Open (Source & File.Name)

'Traitement

        ActiveWindow.Close
        Next
End Sub

Le problème arrive au niveau de la ligne ApplicationRun, une boite de dialogue indique que le fichierRma est introuvable.
Si j'enlève la ligne "ActiveWorkbook.RunAutoMacros which:=xlAutoOpen",le message devient:La méthode run de l'objet _Application a échoué

Merci de votre aide

 

[gilbert_RGI]

Re : Ouverture Macro d'un autre classeur

Bonjour

quelle est la valeur de fichierRma ?

par exemple avec msgbox fichierRma

Cdlt

RGI

 

[popline7]

Re : Ouverture Macro d'un autre classeur

la valeur de fichierRma est le nom des fichiers du dossier que je parcoure.
A l'aide de la MsgBox, le nom du fichier est correct.

 

[gilbert_RGI]

Re : Ouverture Macro d'un autre classeur

la valeur de fichierRma est le nom des fichiers du dossier que je parcoure.
A l'aide de la MsgBox, le nom du fichier est correct.

ne faut-il pas le nom du chemin avec et le \ ????

 

[gilbert_RGI]

Re : Ouverture Macro d'un autre classeur

où ne faut-il pas se placer dans le chemin avec ChDir ?

cdlt

RGI

 

[popline7]

Re : Ouverture Macro d'un autre classeur

En utilisant Chdir, on rentre dans Application.Run sans message d'erreur mais après cette ligne, on revient au début de la procédure sans continuer la suite du code!

 

[gilbert_RGI]

Re : Ouverture Macro d'un autre classeur

change le nom de ta macro
UnprotectionWbk
mot reservé ou ambigu

et lance le run après l'ouverture du fichier

ça marche ici

Cdlt

RGI

 

[popline7]

Re : Ouverture Macro d'un autre classeur

Je ne peux pas changer le nom de la macro, elle est protégé par un mot de passe.
Et je ne peux pas lancer le run apres l'ouverture du fichier car sans éxécuter la macro, le code plante a l'ouverture de celui-ci, c'est pour cela que je cherche a utiliser la macro

 

[gilbert_RGI]

Re : Ouverture Macro d'un autre classeur

fait une déprotection du code
ProtectVBProject Workbooks(fichierRma), "motdepasse"

voilà

 

[popline7]

Re : Ouverture Macro d'un autre classeur

Je n'ai pas accès au mot de passe

 

[jeanpierre]

Re : Ouverture Macro d'un autre classeur

Bonsoir popline7, Gilbert,

Tu dis que tu ne peux pas changer le nom de la macro (cf.ambiguïté relevé par Gilbert), que tu n'as pas accès au mot de passe, or, en haut tu donnes le texte de la macro ????

Pas trop l'impression de tout comprendre.

A te lire pour quelques explications complémentaires.

Jean-Pierre

 

[gilbert_RGI]

Re : Ouverture Macro d'un autre classeur

j'ai fait différents essais (test) avec ou sans protection et la macro fonctionne

mais en mettant le nom que tu donnes "UnprotectionWbk" ça plante en effet

donc il te faut changer ce nom pour ouvrir

RGI

 

[popline7]

Re : Ouverture Macro d'un autre classeur

Jean-Pierre, Je connais effectivement le nom de la macro mais je ne peux pas les modifier ni même les voir elles sont protégés par un mot de passe.Je peux seulement les éxécuter quand je suis sur la feuille excel qui l'utilise.

Sinon, Gilbert, moi en utilisant une macro que j'ai apellé UnprotectionWbk dans un autre fichier, ça marche.

C'est vraiment la macro qui fait tout buggé!

 

[doude_cr]

Re : Ouverture Macro d'un autre classeur

Bonjour popline7, Gilbert, jeanpierre,

Certes, nous sommes 6 mois plus tard, mais bon ...

Comme tu n'as pas accès à l'explorateur d'objets :
peut-être que la macro "UnprotectionWbk" ne se trouve pas dans un module, mais dans une autre feuille,
aucun cas il faut insérer le nom de l'objet dans le string du 'run' je crois.

Voilà, voilà,
j'aurais peut-être une autre idée dans 6 mois ... 😱