Discussion :

[pboiteux]

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 :

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

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) :

Code :

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

1
2
3
Sub test()
 
End Sub

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 :

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 :

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

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

[Jean-Philippe André]

Hello,

une très très rapide recherche avec les mots clés macro autre fichier me donne :
http://www.developpez.net/forums/d43...run-parametre/
http://excel.developpez.com/faq/?page=VBA#Run

A toi de jouer

[pboiteux]

C'est bien ce que j'avais codé.
J'ai réessayé dans le doute et j'ai changé ma ligne, en enlevant la variable:

Code :

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

Application.Run ("RDOSPGP.xls!Module4.test")

Pas mieux

Peut être que cela vient du reste du code?