Problème lié à une macro VBA

Bonjour,

La fonction VBA ActiveSheet.ShowDataForm génère le code erreur 1004.
Jusqu’à présent, cette commande ne m’a jamais posé de problème.
Il y’a deux jours, j’ai voulu rajouter un nouvel enregistrement.
Pour cela, j’utilise, le bouton “Nouveau Contact” (voir fichier).
Lorsque je clique sur ce bouton, le programme me renvoie le code erreur 1004.

Je viens vers toute personne capable d’éclairer ma lanterne.
Merci d’avance.
Muwasa
2017 Ormeraie 17 octobre.xlsm (208,1 Ko)

Bonjour @Muwasa,

En remplaçant:

ActiveSheet.ShowDataForm

Par ça:

Application.CommandBars.FindControl(ID:=860).Execute

Ça a l’air de fonctionner.

Muwasa V1.xlsm (206,2 Ko)

Cordialement.

1 « J'aime »