Bonjour mimi2a,

Voici le code commenté.

Cordialement,

Guy

Bonjour mimi2a,

Petit classeur qui pourrait répondre à tes attentes.

Je n'ai pas commenté le code, je suis entre deux rendez-vous.

N'hésite pas à commenter et à poser des questions.

En passant, ce n'est pas vbs mais vba.

Cordialement,

Guy

Bonjour Nim,

Je te soumets un premier brouillon accompagné d'un petit classeur explicatif.

Je sollicite ta patience pour tester la chose et m'indiquer les points qui retroussent, il y en a mais je ne les vois pas, plus à vrai dire.

Tu es le testeur en chef.

Cordialement,

Guy

P.S. J'ai joint le classeur en .xltm caché sous une extension zip pour que ça passe, suffit de décompresser.

Bonjour Nim,

Quelque peu occupé de ce côté-ci, d'où le délai de ma réponse.

Je ne m'attendais pas à ce que tu navigues à l'aise dans mon sabir de développeur. J'ai seulement mis la table pour aligner mon neurone pour la suite.

J’ai bien noté tes réponses et je m’emploierai à bricoler un brouillon de modèle enregistrable sous un nom donné,  mais pas avant le début de la semaine prochaine cependant.

Le nom à donner au fichier dans la cellule G2 sera-t-il effacé dans la version enregistrée (Je crois que ce serait indiqué)?

Cordialement,

Guy

Bonjour Nim,

Le processus d'enregistrement des modèles, par exemple MonModèle.xltx, lorsqu'ouverts en tant que Nouveaux pose automatiquement le nom du classeur comme MonModèle1 sans extension aucune (indiqué dans l'en-tête d'Excel).

En fouillant dans les propriétés de MonModèle1 on trouve pour les trois propriétés suivantes les valeurs suivantes :

Name = "MonModèle1"
Path = ""
FullName = "MonModèle1"

Ces trois propriétés sont en lecture seule, il n'y a aucun moyen de les modifier par code.

Lorsqu'on enregistre MonModèle1, comme la propriété Path est une chaîne vide la méthode de sauvegarde passe automatiquement à Enregistrer sous... (SaveAs) et le formulaire d'enregistrement s'ouvre avec le nom de classeur MonModèle1.xlsx.

On peut mettre en évidence le processus d'enregistrement comme suit.

Dans un module standard nommé Module1 une fonction toute simple

Sub Enregistrer()
   ThisWorkbook.Save
End Sub

L'objet ThisWorkbook étant en l'occurence une référence à MonModèle1.

En examinant la pile des appels dans l'ordre inverse (Appelants d'abord) on trouve

VBAProject.Module1.Enregistrer
[<Code non Basic>]
VBAProject.ThisWorkbook_BeforeSave

C'est la portion [<Code non Basic>] qui déclenche, en fournissant deux paramètres, l'événement ThisWorkbook_BeforeSave dont la signature est

Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dans le cas qui nous occupe, le [<Code non Basic>] passe le paramètre SaveAsUI (Valeur passée True) par valeur et le paramètre Cancel (Valeur passée False) par référence. Ce qui signifie qu'on a beau poser SaveAsUI à False, la valeur de ce paramètre n'est pas modifiée dans le processus appelant. Par contre si on pose à True le paramètre Cancel, le processus appelant en est informé et annule l'enregistrement.

Ce que tu cherches à faire est de détourner le processus automatique pour forcer l'enregistrement de MonModèle1 comme UnNomContenuDansG2.xlsx.

C'est possible (à moins que je me goure) mais il y a de nombreux pièges sur la route.

Alors j'ai trois questions :
Est-ce que seule la feuille Deck sera enregistrée?
Est-ce que cette feuille dans ton classseur de travail est lourde?
Est-ce que seule l'extension .xlsx sera autorisée pour la sauvegarde?

Cordialement,

Guy

Bien reçu Nim,

Je laisse mijoter le tout et je te donne des nouvelles sous peu.

J'aurai sûrement quelques questions accessoires pour bien piger.

Cordialement,

Guy

Nim,

Bon, maintenant que tu es célèbre , à quand ton fichier exemple?

Tu peux aussi le compresser, l'extension .zip passe toute seule.

Cordialement,

Guy

Merci Didier,

Bien content que tu sois intervenu pour laisser passer les fichiers xltx.

Pour ce qui est de bûcher, c'est la tradition obligée de ce côté de l'Atlantique

Cordialement,

Guy

Bonjour Nim,

Pourrais-tu fournir un exemple de ton fichier gabarit (template)?

Cordialement,

Guy

Bonjour JPH31,

Petit classeur avec, je l'espère, une ébauche de solution au problème soumis.

De prime abord je me suis dit qu'il serait plus simple que le texte Adresse Clientèle soit identique à celui de NOMS DES RUES. Un simple INDEX(..., EQUIV(...)..) aurait suffit. Mais je me suis ravisé et j'ai essayé de me conformer au cahier des charges tel que présenté. Le résultat est une fonction assez compliquée que j'ai éclatée dans les cellules D21:K21 pour que la chose soit plus claire, si elle peut l'être.

Les Adresse Clientèle portent l'adresse complète alors que les NOMS DES RUES ne portent que le principal suivi entre parenthèses du type d'avenue, de chemin, de montée, de rue, d'impasse, etc. Premier problème réglé dans une plage intermédiaire en G1:G15 où n'apparaissent que les noms de rues. La formule tient compte de la présence d'un espace ou d'une apostrophe dans l'Adresse Clientèle. Cette plage intermédiaire est essentielle.

Les formules portées en B22:B25 et dont le prototype est éclaté en D22:K25 devrait faire le boulot.

Plus d'infos sur demande.

Cordialement,

Guy