XL 2013 Fonction chiffrelettre perdue

[murainesouspatate]

Bonjour à tous,

Je reviens vers vous car je n'arrive pas à enregistrer une feuille de mon classeur contenant une fonction"chiffrelettre".
L'orsque je l'enregistre, tout ce passe bien , mais je perd la fonction chiffrelettre qui se trouve dans ma cellule et je me retrouve avec ceci d'afficher "####".
Pourriez-vous m'indiquer comment enregister ma feuille sous un autre nom avec la macro du module1 afin de garder bien visible ma cellule en toute lettre.

Je ne sais pas si je me suis bien exprimé, je vous joint le fichier source et le fichié après enregistrement.

Merci par avance pour votre coup de pouce, j'aimerais que la solution soit au plus simple possible car ce ne sera pas moi qui manipulerais ce fichier.

 

[Efgé]

Bonjour
Une fonction personnalisée comme ChiffreLettre doit se trouver dans un module standard et non dans un module de feuille.

Cordialement

 

[murainesouspatate]

Bonjour
Une fonction personnalisée comme ChiffreLettre doit se trouver dans un module standard et non dans un module de feuille.

Cordialement

bonjour, pouriez-vous m'indiquer la marche à suivre ? cordialement

 

[Efgé]

Re
Ta fonction est dans le module de la feuille:

Clic droit sur VBAProject

Insertion / module

mettre ta fonction dans le nouveau module

Supprimer la fonction qui se trouve dans le module de la feuille.
Cordialement

 

[murainesouspatate]

désolé , je vous renvoi le fichier après enregistrement, mais je ne sais pas exporter mon module 1,merci !

 

[Efgé]

Re
tu as lu mon post précédent?
Cordialement

 

[murainesouspatate]

Re
Ta fonction est dans le module de la feuille:
Regarde la pièce jointe 1034431
Clic droit sur VBAProject
Regarde la pièce jointe 1034432
Insertion / module
Regarde la pièce jointe 1034433

mettre ta fonction dans le nouveau module
Regarde la pièce jointe 1034435

Supprimer la fonction qui se trouve dans le module de la feuille.
Cordialement

bonjour et merci, je viens de rectifier le tir !
ceci dis , je n'arrive pas à exporter mon module 1 lors de l'enregistrement de ma feuille, du coup quand j'ouvre le nouveau classeur, la fonction n'y est plus . ma cellule contient maintenant : ####
cordialement.

 

[Efgé]

Re
Plus simple.
Au lieu d'exporter un module, écrase la formule.

Avec cette modification (faites et testée avec la macro SauvegardeDevis2pages)

'Export devis format xlsm
 Sheets("Devis (2 pages)").Select
    Sheets("Devis (2 pages)").Copy
     With ActiveSheet.Range("$H$99")
        .Value = .Value
    End With
'etc....

Cela va remplacer la formule par sa valeur (donc du texte) et tu n'as plus besoin de la formule.
Cordialement

 

[murainesouspatate]

Re
Plus simple.
Au lieu d'exporter un module, écrase la formule.

Avec cette modification (faites et testée avec la macro SauvegardeDevis2pages)

'Export devis format xlsm
Sheets("Devis (2 pages)").Select
    Sheets("Devis (2 pages)").Copy
     With ActiveSheet.Range("$H$99")
        .Value = .Value
    End With
'etc....

Cela va remplacer la formule par sa valeur (donc du texte) et tu n'as plus besoin de la formule.
Cordialement

Super, merci beaucoup ! je n'y avait pas pensé.... par contre si je veux modifier le nouveau classeur en cas d'erreur ou de changement, je n'ai plus cette fonction.... Pour l'instant cela suffira pour la personne qui manipulera le fichier. Encore merci de votre réactivité !

 

[Efgé]

Re
Pour l'export regarde la réponse de Jam dans ce fil:

https://www.excel-downloads.com/threads/copier-un-module-dun-fichier-a-un-autre.36937/#post-173355

Cordialement

 

[murainesouspatate]

Re
Pour l'export regarde la réponse de Jam dans ce fil:

https://www.excel-downloads.com/threads/copier-un-module-dun-fichier-a-un-autre.36937/#post-173355

Cordialement

Re, je trouve cette macro interressante, mais je n'arrive pas à l'adapter,
ça bogue sur la ligne : ThisWorkbook.VBProject.VBComponents("Module1").Export tmpBas

je n'arrive pas à comprendre pourquoi....

Merci de vos lumières !

 

[Efgé]

Re
Il faut faire confiance au projet VBA
Onglet 'Développeur' dans le ruban
Clique sur le bouton 'Sécurité des macros' dans le groupe 'paramètre des macros'
Coche l'option 'Accès approuvé au modèle d'objet du projet VBA'
Clique sur le bouton OK pour valider
Cordialement

 

[Efgé]

Re
Il faut aussi vérifier que la fonction est bien dans "Module 1"
Cordialement

 

[murainesouspatate]

Re
Il faut faire confiance au projet VBA
Onglet 'Développeur' dans le ruban
Clique sur le bouton 'Sécurité des macros' dans le groupe 'paramètre des macros'
Coche l'option 'Accès approuvé au modèle d'objet du projet VBA'
Clique sur le bouton OK pour valider
Cordialement

Merci du conseil, je viens de le faire comme indiqué , mais cela persiste, je dois etre fatigué d'avoir été sur le ficher toute la journée.
je suis en nouvelle calédonie et je vais bientôt aller dormir, la nuit me portera conseil, enfin j'espère... si toutefois vous avez un autre tuyaut, je suis prenneur. bien cordialement !

 

[Efgé]

Re
Il y a une erreur dans le chemin de tmpBas (un \ de trop)

Cordialement