Appeler une macro d'un autre fichier excel correctement
Bonjour,
J' ai deux classeurs, depuis le premier, j'ouvre le second, y exécute une macro, le sauvegarde et le ferme.
Classeur 1 :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Sub test()
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ThisWorkbook
folder = "C:\...\"
file = "myFile.xls"
Set Wbk2 = Workbooks.Open(Filename:=folder & file, UpdateLinks:=0)
Application.Run file & "!Module4.test"
Wbk2.Save
Wbk2.Close
Set Wbk2 = Nothing
Set Wbk1 = Nothing
End Sub |
Classeur 2 (j' ai mis l'ensemble du code en commentaire et j'en déduit que le problème ne vient pas de ce code) :
Le problème :
Lorsque j'exécute le code une première fois, tout fonctionne mais une fois l'exécution terminée, impossible de relancer la macro sans avoir l'erreur :
Citation:
Run-time error '1004':
Method: 'Open' of object 'Workbooks' failed
A noter que lorsque je commente cette ligne, je peux lancer la macro normalement autant que je le veux, l'ouverture/fermeture se passe très bien.
Code:
Application.Run file & "!Module4.test"
Je pense donc que ma façon d’appeler une macro d'un autre classeur n'est pas la bonne, mais c'est ce que je trouve sur internet :weird:
