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