Problème de format de date

Bonjour
Voici mon souci.
J'ai créé un fichier excel en VBA.
Je voudrais extraire un onglet et l'enregistrer comme nouveau fichier.
Cela marche très bien sauf que dans le nom du fichier je voudrais intégrer une date.
Cette date se trouve dans une cellule. j'ai déjà changer le format de la date des cellules et elles sont au format jj-mm-aa.
Sauf que quand j'enregistre il prend le format du système qui lui est jj/mm/aa est me fait donc une erreur lors de l'enregistrement.
Pour ma part, j'ai changer mon format de date système donc cela marche mais si un autre utilisateur utilise mon fichier est que son format de date système est mauvais, il lui fera une erreur.
Voici une partie de ma macro d'enregistrement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub copy_analyse() Sheets("analyse prevention").Select onglet = ActiveSheet.Name Cells.Select Selection.Copy Range("A16").Select Set Newbook = Workbooks.Add ActiveSheet.Paste Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C4").Select fiche = Range("C22").Value & " " & Range("E22").Value & " " & Range("B47").Value Do Fichier = Application.GetSaveAsFilename(onglet & " " & fiche & ".xls", filefilter:="Excel Files (*.xls), *.xls") Loop Until Fichier <> False Newbook.SaveAs Filename:=Fichier ActiveWindow.Close Application.CutCopyMode = False Range("A16").Select End Sub

---

La date se trouve dans la partie en gras à savoir dans la cellule B47.
Y-a-t-il une possibilité de forcer la date système au format jj-mm-aa en ouvrant mon fichier et de le remettre au format initial à la sortie de mon fichier???
Merci pour votre aide

bonjour,


avec la fonction format ..?

Code:

---

fiche = Range("C22").Value & " " & Range("E22").Value & " " & Format(Range("B47").Value,"dd-mm-yyy")

---

Merci JackOuYa
Mais comme dis dans mon message j'ai déjà changer le format de la cellule grâce à la fonction Format mais dans l'enregistrement il prend le format de la date système d'où mon souci si un autre utilisateur utilise mon fichier avec un mauvais format de date système.

Merci quand même

tu as essayé le code ..? il ne s'agit pas du format de la cellule !

Oui
voici la ligne de code où je l'utilise déjà mais dans l'enregistrement il utilise le format système...Je sais je me répète mais bon j'ai tout essayé et à part changer le format système provisoirement afin que tout le mond epuisse utiliser ce fichier jene vois pas d'autres solutions

Code:

---

1 2	Date_AT = Format(Date_AT.Value, "mm-dd-yy")

---

Merci

c'est quoi date_AT ??..

pourquoi t'obstine tu à ne pas vouloir essayer Format sur la ligne où tu génére ton nom de fichier... dans les autres lignes de codes il vaut mieux conserver la date sous forme d'un nombre de jours comme excel conserve la date.. Format ne doit servir qu'a l'affichage où pour transférer la valeur date dans une variable String.(chaine) ..

si format ne fonctionne pas essai :

Code:

---

1 2 3 4 5 6

Dim chDate as string ChDate = Day(Range("B47")) & "-" & Month(Range("B47")) & "-" & Year(Range("B47"))     fiche = Range("C22").Value & " " & Range("E22").Value & " " & ChDate )

---

En fait tu avais raison, je me suis obstiné sur le fait de changer la date système puisque j'avais déjà utilisée la fonction format sur les cellules.
Mais en utilisant ta version cela marche parfaitement

Franchement merci et encore désolé de m'avoir obstiné pour rien.