Autres Copy de feuilles avec monétaires

[FOUQUET Yves]

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"

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]

En fait à la "copy" cela fonctionne, j'ouvre la feuille juste après et les monétaires sont au bon format, y compris que si j'enregistre manuellement le tableur ainsi créé c'est au bon format monétaire. 122.00 €
Worksheets("En cours").Copy

mais c'est à l'enregistrement automatique que le format monétaire change.
ActiveWorkbook.SaveAs "D:\Gestion AHI\transfer\recept_gest.xlsx"

de 122.00 € (monétaire) il devient € 122.00 (personnalisé)

J'avoue ne pas comprendre.
merci de vos lumières.

 

[Staple1600]

Bonjour le fil,

Yves
Remember: same player shoot again

 

[FOUQUET Yves]

J'en déduit que tu as fait TILT toi aussi...

 

[Staple1600]

Re

Non, j'en deduis que tu déjà oublié que dans un de tes fils j'avais écrit cette phrase
same player shoot again
pour te suggérer de joindre un fichier exemple!

 

[FOUQUET Yves]

OK je fais çà et je reviens...

 

[FOUQUET Yves]

Voilà avec un Userform

 

[Staple1600]

Re

Pas de problème chez moi.

Private Sub CommandButton2_Click() 'VALIDER
Dim strPath$
strPath = ThisWorkbook.Path & "\"
Worksheets("En cours").Copy
With ActiveWorkbook
.SaveAs strPath & "recept_gest.xlsx", 51: .Close True
End With
End Sub

NB: Modife la valeur de strPath avec ton chemin initial.

 

[FOUQUET Yves]

J'ai essayé ainsi mais il me donne une erreur de chemin ou de nom de dossier! Pourtant c'est bien bon...

Private Sub CommandButton2_Click() 'VALIDER

Dim strPath$

strPath = ThisWorkbook.Path & "D:\Gestion AHI\transfer\"  ' ---- Là ou le fichier doit aller
Worksheets("En cours").Copy
With ActiveWorkbook
.SaveAs strPath & "recept_gest.xlsx", 51: .Close True     ' ---- se rajoute le nom du fichier créé.
End With

 

[FOUQUET Yves]

 

[Staple1600]

Re

Copier/Coller le code VBA, c'est bien
Le comprendre c'est mieux
Il fallait évidemment modifier comme suit
strPath = "D:\Gestion AHI\transfer\"

J'avais pourtant été explicite, non ?

NB: Modife la valeur de strPath avec ton chemin initial.

 

[FOUQUET Yves]

Le résultat est le même format des chiffres personnalisé et non monétaire...
Et pourtant dans la copie le format est bon, c'est à l'enregistrement que cela change. Bizarre tout ça...

 

[Staple1600]

Re

Comme dit dans le message#8, pas de problème chez moi.
Le format dans la copie est le même que le fichier source.

Donc pour paraphraser Mulder: "Le problème est ailleurs"

 

[FOUQUET Yves]

Et pourtant dans la copie le format est bon, c'est à l'enregistrement que cela change. Bizarre tout ça...

 

[FOUQUET Yves]

Et si j'arrête le déroulement après la copie et que j'enregistre manuellement le tableur c'est bon! C'est l'enregistrement automatique qui change le format...