Gestion erreur exécution 57121

[kadelmalin]

Bonjour,
J'ai besoin de votre aide pour gérer une erreur d’exécution vba. Je voudrai qu' au lieu d'afficher la boite de dialogue la macro me renvoie au message " Macros Fichier source non activées". Je joins le bout de code où ça coince. Merci à l'avance de votre aide.

 

[Dranreb]

Bonjour.
Vraiment très curieux cette demande !
Le texte souhaité me paraît très éloigné de la description du problème contrairement à celui en vigueur.

 

[kadelmalin]

Bonjour,
La source du problème je la connais c'est que l'activation macros du classeur source n'a pas été effectuée, alors je voudrai que l'utilisateur du classeur cible sache de quoi il s'agit au lieu du message "Erreur d'exécution '57121'" qui apparaitra dans la boite du dialogue. J'espère m'être bien expliqué. Et merci à l'avance de vous être penché sur mon problème.

 

[pierrejean]

Bonjour kadelmalin
Salut Dranreb
Chez moi ceci fonctionne

chemfich = ThisWorkbook.Path & "Gstock.xls"
On Error Resume Next
Workbooks.Open chemfich
If Err.Number <> 0 Then MsgBox ("Macros Fichier source non activées")

 

[kadelmalin]

Bonjour,
C'est possible que ça passe chez toi, ton fichier source n'affiche pas le message ci-joint. Chez moi ça bloque juste à la ligne workbooks.open