Autres Copy de feuilles avec monétaires

FOUQUET Yves

XLDnaute Occasionnel
Bonjour à tous,

Je fais une "copy" d'une feuille "En cours" contenant des formats monétaires (€) dans un dossier D:\Gestion AHI\transfer en la renommant "transf_gest.xlsx"

VB:
Private Sub CommandButton2_Click() 'VALIDER

Application.DisplayAlerts = False  '--- supprime message alerte
Worksheets("En cours").Copy
ActiveWorkbook.SaveAs "D:\Gestion AHI\transfer\recept_gest.xlsx"
ActiveWorkbook.Close True
Application.DisplayAlerts = True   '--- réactive le message d'alerte
End sub

Cela fonctionne sauf que quand j'ouvre la copie de la feuille le format monétaire a changé, il est devenu personnalisé avec € devant le nombre.
Comme cette feuille n'est faite en grande partie de nombre et quelle doit aller remplacer une autre feuille à son tour et ben ça le fait pas...
Comment conserver à la copie le format monétaire initial ?
Merci de votre aide.
 

FOUQUET Yves

XLDnaute Occasionnel
Oui cela se produit. Je pense que c'est dans les paramètres d'Excel que y a un truc qui ne va pas. Je vais aller sur la feuille originale et mettre toutes les cellules en monétaire et virer tous les formats personnalisés existant et je vais faire un essai...
 

FOUQUET Yves

XLDnaute Occasionnel
Ouais!!! cela fonctionne correctement je fais copie de ma feuille dans mon dossier avec le bon format de monétaire. C'était donc ces formats personnalisés qui foutaient la panique...
Tu regarderas STP mon post sur comment intégrer une feuille dans un tableur ouvert à partir d'un tableur fermé?
Quand j'ai réglé cela je suis proche du but.
J'ai réglé l'histoire des noms et mots de passe d’accès et ouverture des droits correspondants.
Encore une fois MERCIIIIIII de ta patience et de ton aide.
 

Discussions similaires

Statistiques des forums

Discussions
312 298
Messages
2 086 983
Membres
103 419
dernier inscrit
mk29