Discussion :

[popline7]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
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

[fring]

Bonjour,

A vue de nez, il faudrait d'abord ouvrir le fichier avant de pouvoir exécuter la macro qu'il contient

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Test()
Set ofso = CreateObject("Scripting.FileSystemObject")
Source = "C:\Outil RH\Test\"
 
       For Each File In ofso.GetFolder(Source).Files
        fichierRma = File.Name
        Workbooks.Open (Source & File.Name)
        'ActiveWorkbook.RunAutoMacros which:=xlAutoOpen
        st = "'" & fichierRma & "'!UnprotectionWbk"
        Application.Run st
 
'Traitement
 
        ActiveWindow.Close
        Next
End Sub

Cette ligne sert à quoi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.RunAutoMacros which:=xlAutoOpen

[popline7]

Le problème est que au moment de l'ouverture du fichier, la fonction stoppe net et revient au début, c'est pour cela que j'essaye de désactiver la macro qui fait planter le code.
DOnc si je l'ouvre, ça s'arrete et impossible de désactiver la macro

Pour la ligne dont tu me parles, que je la mette ou non ca ne change rien.