Gestion erreur exécution 57121

Dranreb

XLDnaute Barbatruc

• 4 Mars 2017

• #2

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.

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 4 Mars 2017

• #3

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.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 4 Mars 2017

• #4

Bonjour kadelmalin
Salut Dranreb
Chez moi ceci fonctionne

Code:

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

 

Vote positif 0 Vote négatif

kadelmalin

XLDnaute Occasionnel

• 4 Mars 2017

• #5

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

 

Pièces jointes

• MSG ERROR2.jpg

  27.4 KB · Affichages: 21

Vote positif 0 Vote négatif