XL 2010 "application.run" et "Workbooks.Open" dans la procédure appelée

[Guy_M]

Bonjour,

Dans mon classeur de macros personelles "personal.xlsb" j'ai la procédure suivante

Sub Appelee()
Dim Classeur As Workbook
Debug.Print "Appelee:Entrée " & Err.Number & " : " & Err.Description
Set Classeur = Workbooks.Open("D:\Chemin\Fichier.xlsx")
Debug.Print "Appelee " & Classeur.Name & " : " & Err.Number & " : " & Err.Description
Exit Sub

A l'exécution cela ouvre le fichier "Fichier.xlsx" et donne la trace suivante

Appelee:Entrée 0 :
Appelee Fichier.xlsx : 0 :

Dans un autre classeur différent de "Fichier.xlsx" j'ai la macro suivante

Sub Appelante()
Debug.Print "Appelante:Entrée " & Err.Number & " : " & Err.Description
Application.Run "'Personal.xlsb'!Appelee()"
Debug.Print "Appelante: " & Err.Number & " : " & Err.Description
End Sub

A l'exécution, j'ai la trace

Appelante:Entrée 0 :
Appelee:Entrée 0 :

Le fichier ne s'ouvre pas et j'ai l'impression que les macros ne finissent jamais.

Auriez-vous une explication ?
Savez-vous comment contourner ce problèmes ?

Par avance, je vous remercie de vos réponses
A bientôt
GM