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"
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.
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.