Problème avec format d'une date

[arnaudbu]

Hello,

J'ai en D2 une liste de validation qui me permet de choisir une date que j'ai au format 15-11-2010.

Seulement quand je regarde dans la barre de formule j'ai: 15/11/2010.

Je veux utiliser la valeur de la cellule dans une macro, mon code fonctionne mais me renvoi le format de la barre de formule et pas mon format que j'ai configuré.

Avez vous une idée de comment résoudre ce problème de format ??

++

 

[JCGL]

Re : Problème avec format d'une date

Bonjour à tous,

Peux-tu essayer :

Format(Date, "dd-mm-yyyy")

A+ à tous

 

[arnaudbu]

Re : Problème avec format d'une date

Salut,

Merci mais c'est ce que j'avais avant. Ceci me met la date du jour. Moi j'aimerais avoir la date de ma cellule D2 mais avec le format jj-mm-aaaa.

 

[Paritec]

Re : Problème avec format d'une date

Bonjour JCGL 🙂 arnaudbu,
et si tu mettais un petit bout de fichier , avec ce que t'a écrit JC adapté à ton cas cela marcherait
a+
Papou 🙂

 

[JCGL]

Re : Problème avec format d'une date

Bonjour à tous,
Salut Papou 🙂,

Peux-tu essayer avec :

Format(Range("D2"), "dd-mm-yyyy")

A+ à tous

 

[arnaudbu]

Re : Problème avec format d'une date

Voici un exemple qui bug:

 

[Paritec]

Re : Problème avec format d'une date

Re JC🙂 Arnaudbu

bonne journée
a+
papou 🙂

Sub test()

    Dim Equipe As Range, Datefaite As Range

    Set Equipe = Sheets("Feuil1").Range("H2")
    Set Datefaite = Sheets("Feuil1").Range("D2")
    Sheets(Array("Feuil1", "Feuil2")).Copy
    ActiveWorkbook.SaveAs ("C:\TEST_Eq" & Equipe & "_du_" & Format(Datefaite, "dd-mm-yyyy") & ".xls")
End Sub

EDIT: bonjour Dull, toi tu as chaud, mais pas nous !!!!

 

[Dull]

Re : Problème avec format d'une date

Salut arnaudbu, JC😎, Papou🙂, le Forum

Pas sur du tout mais essaye éventuellement ce code

Option Explicit
Sub test()

Dim Equipe As Range, Datefaite As Range

Set Equipe = Sheets("Feuil1").Range("H2")
Set Datefaite = Sheets("Feuil1").Range("D2")

Sheets(Array("Feuil1", "Feuil2")).Copy

ActiveWorkbook.SaveAs ("C:\TEST_Eq" & Equipe & "_du_" & Replace(Datefaite, "/", "-") & ".xls")

End Sub

Bonne Journée

 

[arnaudbu]

Re : Problème avec format d'une date

Hello,

La première solution me renvoi la valeur jj-11-aaaa. La deuxième solution remplace bien les signes - & /. Donc ça fonctionne.

Je cherche juste encore à fermer le fichier qui vient d'être sauvé ??

 

[Paritec]

Re : Problème avec format d'une date

Re arnaudbu le forum
la première solution, la quelle ?????????????????????????
une certitude mon code fonctionne et celui de Dull aussi et la modif de JC aussi !!!!!
a+
papou 🙂

 

[Dull]

Re : Problème avec format d'une date

Re le Fil

Essaye avec ça

[COLOR=BLUE]Option Explicit[/COLOR]
[COLOR=BLUE]Sub[/COLOR] test()

[COLOR=BLUE]Dim[/COLOR] Equipe [COLOR=BLUE]As[/COLOR] Range, Datefaite [COLOR=BLUE]As[/COLOR] Range
[COLOR=BLUE]Set[/COLOR] Equipe = Sheets("Feuil1").Range("H2")
[COLOR=BLUE]Set[/COLOR] Datefaite = Sheets("Feuil1").Range("D2")
Sheets(Array("Feuil1", "Feuil2")).Copy
[COLOR=BLUE]With[/COLOR] ActiveWorkbook
    .SaveAs ("C:\TEST_Eq" & Equipe & "_du_" & Replace(Datefaite, "/", "-") & ".xls")
    .Close
[COLOR=BLUE]End With[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

Ou cela 😉

[COLOR=BLUE]Sub[/COLOR] test()

    [COLOR=BLUE]Dim[/COLOR] Equipe [COLOR=BLUE]As[/COLOR] Range, Datefaite [COLOR=BLUE]As[/COLOR] Range

    [COLOR=BLUE]Set[/COLOR] Equipe = Sheets("Feuil1").Range("H2")
    [COLOR=BLUE]Set[/COLOR] Datefaite = Sheets("Feuil1").Range("D2")
    Sheets(Array("Feuil1", "Feuil2")).Copy
    [COLOR=BLUE]With[/COLOR] ActiveWorkbook
        .SaveAs ("C:\TEST_Eq" & Equipe & "_du_" & Format(Datefaite, "dd-mm-yyyy") & ".xls")
        .Close
    [COLOR=BLUE]End With[/COLOR]
[COLOR=BLUE]End Sub[/COLOR]

Pour confirmer les dires de Papou

Bonne Journée

 

[arnaudbu]

Re : Problème avec format d'une date

OK merci je vais à nouveau essayer les deux codes sur mon fichier ce soir et vous tiens au courant.

 

[arnaudbu]

Re : Problème avec format d'une date

Avec Format j'obtiens toujours: jj-11-aaaa mais les / sont bien remplacé.
Avec Replace pas de soucis.

Ok aussi pour la fermeture du fichier qui vient d'être sauvé.

Merci à vous tous 🙂

 

[Paritec]

Re : Problème avec format d'une date

Bonjour Arnaubu,
C'est difficile de lire des âneries alors je vais mettre les points sur les i.
Que tu ne saches pas lire est une possiblilité, mais nous avons écrit de remplacer par un format "dd-mm-yyyy" et non comme tu l'as fait bêtement
de mettre "jj-mm-aaaa" !!!!!!!!!!!
Remarque que ta réponse prouve au moins, que tu n'as pas essayé mon code qui marche très bien, alors a quoi sert de te répondre puisque en tout état de cause, tu ne lis pas, et n'essaye pas nos réponses.
bonne journée
Papou 🙂

 

[JCGL]

Re : Problème avec format d'une date

Bonjour à tous,
Bien cher Papou 🙂,

Ton coeur mon ami, ton coeur....

A++
A+ à tous