Bonjour Breizh,

Suivant la note d'un précédent message :
Citation :
me laissait supposer que la procédure Fermer() devait être appelée par une procédure événementielle comme Workbook_BeforeClose().
Or le module de code ThisWorkbook ne contient aucune procédure... As-tu bien copié l'intégralité du code de ce module dans la pièce jointe?

Cordialement,

Guy

Bonjour guy

Tu dispose de tous les éléments dont je dispose; tu comprends peut-être mieux pourquoi je dis que cela fonctionne , mais je ne sais pas pourquoi...raison aussi pour laquelle je n'arrivais pas a reproduire la fonction.

J'ai recherché dans le classeur d'origine sans rien trouver de plus.
Toutefois j'ai retrouvé dans mes notes manuscrites les indications suivantes sans pour autant les trouver dans un module quelconque sur un des classeurs....

Attribute VB_Name = "Module31"


Sub FERMER()
Attribute FERMER.VB_Description = "Macro enregistrée le 29/06/2000 par xxx"
Attribute FERMER.VB_ProcData.VB_Invoke_Func = "q\n14"

Qoiqu'il en soit , ne nous ruinons pas les petites cellules grises pour rien, cela fonctionne....et la solution que tu m'a fournie me permets de reproduire l'action fermer sur de futurs classeurs, je t'en remercie encore une fois... Mais si tu a une explication, je suis toujours curieux d' en connaitre.
 

Bonjour Breizh,

Alors il serait indiqué de marquer ce fil en résolu comme indiqué ici.

Cordialement,

Guy

Bonjour Guy

Bien sur, ce fil sera clos, mais avant il y a t il un commentaire sur les dernières infos que je t'ai communiqué ?

Bonjour Breizh,

Le problème du message vient du nom même de la procédure FERMER().

J'ai tenté par plusieurs (plusieurs comme dans bôcou et normément ) manipulations pour éliminer le message
Il reste collé dans tous les cas.

Le plus simple est de laisser la procédure FERMER() mais comme procédure creuse comme suit :
pour éviter ce message encombrant.

Cordialement,

Guy

Bonsoir BREIZH, Guy, le Forum,

Je te suggère de suivre la procédure suivante sur ton classeur après ouverture (pour XL2007) :

• Dans le Ruban Excel, clic sur le bouton "Gestionnaire de noms",
• Dans la liste présentée, clic sur le nom "Auto_fermermop", puis clic sur le bouton "Supprimer"
• Reproduire la même opération pour le nom "CDE" dans la liste.
• Fermer le "Gestionnaire de noms".

Tu peux maintenant supprimer la macro VBA "FERMER()" et sauvegarder ton classeur.
Tu ne devrais plus obtenir ce message inopportun lors de la fermeture du classeur.

En appliquant la procédure ci-dessus, tu peux aussi en profiter pour faire un peu le ménage dans les noms listés dans le gestionnaire indiqué. Il semble que beaucoup d'entre eux soient des références "mortes" et n'aient plus aucune utilité... à vérifier dans le classeur original avant suppression.

Par ailleurs, et pour information, tu peux aussi rassembler l'ensemble de tes macros VBA dans un ou deux modules de code VBA standard (exemple Module1 et Module2). En créer un par macro, ça fait un peu beaucoup... Evidemment, je parle uniquement des macros apparaissant dans les modules standard de type "ModuleXX". Les éventuelles procédures évènementielles du ThisWorkbook doivent rester dans le ThisWorkbook.

Voir également dans le classeur original si le module de classe "Classe1" contient effectivement quelquechose... S'il ressemble à ce qui apparait dans ta pièce jointe, alors tu peux aussi le supprimer sans problème.

Cordialement,

Bonjour Guy

J'ai suivi à la lettre tes indications, donc grand ménage et modifications et sans surprise tout cela fonctionne a merveille.....je me lance donc dans l'apprentissage de vba.....je te remercie encore de ton aide, je classe ce fil en resolu..j'espère que l'on se croisera encore sur ce site.....
Cordialement
Kenavo 
BREIZH 

Bonsoir BREIZH, Guy, le Forum,

Citation :
Content que tu sois satisfait et merci pour ton retour d'info.

Cela dit, moi, c'est pas Guy...
Mais c'est pas grave, je considère ça presque comme un compliment

Cordialement,

Bonsoir Breizh, Didier,

Effectivement y'a eu méprise. Mais, bon, la chose est pardonnable, tout à fait.

Cependant je tiens à ajouter correctement et sans flagornerie :
Citation :
réciproquement et tout à fait Didier vu le boulot considérable que tu y consacres le «presque» est un honneur, merci. Stricto sensu.

Guy

 Bon!  Désolé.....effectivement je n'ai pas été trés attentif sur ce coup la.....je files chez l'ophtalmo immédiatement.......

Merci a chacun de vous deux pour votre aide....elle a été trés appréciable et appréciée....


Kenavo
BREIZH