Discussion :

[phal2ip]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JackOuYA]

bonjour,


avec la fonction format ..?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[phal2ip]

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

[JackOuYA]

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

[phal2ip]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci

[JackOuYA]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )