Inversion du jour et du mois lors d'un Selection.Replace

Bonjour,

Ma cellule (1,2) contient une date obtenue pas une formule, je fais un copier coller de la cellule en valeur pour obtenir une date toute simple puis je voudrais remplacer les / de la date par des points.

Voici le code que j'ai:

Code:

---

1 2 3 4 5 6 7 8 9 10

Cells(1, 2).Select Selection.NumberFormat = "d/m/yyyy" Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False   Selection.Replace What:="/", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

---

Mon probleme que la commande Selection.Replace en plus de remplacer les / par des . inverse le mois et le jour...
Est que on peut empecher cela?

Merci

En travaillant avec un format texte à la place du format date. :D

Mais si je converti ma cellule en format texte, la date se transforme en chiffre.

04/11/2008 deviens 39756 en format texte

Bonsoir,

le mieux pour travailler sur des dates c'est quand même le format de donnée date et pas chaine.. :

Code:

---

1 2 3 4

Sub yaConvert() ActiveCell.Value = ActiveCell.Value ActiveCell.NumberFormat = "dd.mm.yyyy" End Sub

---

Citation:

---

Envoyé par JackOuYA

Bonsoir,

le mieux pour travailler sur des dates c'est quand même le format de donnée date et pas chaine.. :

Code:

---

1 2 3 4

Sub yaConvert() ActiveCell.Value = ActiveCell.Value ActiveCell.NumberFormat = "dd.mm.yyyy" End Sub

---

---

ça fonctionne niquel, ça ne fait plus l'inversion. Merci beaucoup :)

hum j'ai parlé un peu vite, c'est vraiment une bizarerie.... lorsque je fais replace pour changer les / en . cela inverse encore la position du jour et du mois.

J'ai besoin d'enlever les / car j'enregistre le fichier par date et on se peut pas enregistrer un nom de ficher avec des / .

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9

Cells(1, 2) = "=TODAY()+1-(WEEKDAY(TODAY())=6)*2" Cells(1, 2).Select ActiveCell.Value = ActiveCell.Value ActiveCell.NumberFormat = "dd/mm/yyyy"   'Puis c'est ici que ça inverse le jour et le mois:   Selection.Replace What:="/", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

---

PS: Si je met ds le code:

Code:

---

ActiveCell.NumberFormat = "dd.mm.yyyy"

---

j'ai bien des point à l'affichage mais il sont considérés en faite toujours comme des / .

Bonjour,

Tu ne crois pas qu'il serait mille fois plus pratique (et orthodoxe) de ne pas toucher à tes cellules mais, plutôt, d'appliquer la fonction Replace au texte de la cellule juste avant de nommer le fichier d'enregistrement ? (en déterminant une variable string toto = le texte de la cellule puis en appliquant Replace à toto, puis en donnant la valeur toto au nom du fichier ? ;)

Tu veux que le nom de fichier essemble à quoi?

Bonjour,


le nom du fichier que j'enregistre doit ressembler à cela :

Nom jj.mm.aaaa.xls

cela fonctionne sauf que les mois et les jours sont inversés lors du Replace.

J'essaye d'appliquer ta méthode ucfoutu mais je n'arrive pas à appliquer Replace à ma variable string toto.

Code:

---

1 2 3 4 5 6 7 8

Dim toto As String toto= cells(1,2).value   'ici il me crie dessus.... toto.Replace What:="/", Replacement:=".", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False

---

Code:

---

toto = replace(toto,"/",".")

---

Mais toto doit être de type string et contenir le texte de ta cellule

ou encore (imaginons que ta cellule contienne le texte "01/10/2000") et que tu donnes ce texte à la variable toto :

Code:

---

toto = Format(toto, "dd.mm.yyyy")

---

et tu utilises toto pour construire le nom du fichier

Ah Ok je vois le problème.

Le souci, si je comprends bien, c'est que tu n'arrives pas à capturer la valeur affichée dans la cellule une fois convertie c'est bien ça?

Je te propose d'utiliser ce format de cellule (qui va te l'afficher correctement dans la cellule):

Code:

---

ActiveCell.NumberFormat = "dd.mm.yyyy"

---

En revanche, la difficulté consiste à récupérer ce qu'affiche la cellule et non la formule. Tu peux le faire en utilisant ceci:

Code:

---

Cells(1,2).Text

---

A la place de ceci:

Code:

---

Cells(1,2).Value

---

Voilà. Je te laisse chercher comment mettre ça en application, mais si tu cales vraiment je te donnerai un petit bout de code. Mais je tiens à ce que tu cherches. ;)

C'est déjà fait ...(code et méthode donnés...) :lol:

pour une cellule avec le format suivant
12/02/2008

Code:

---

nom = nom & Left(Cells(14, 6), 2) & "-" & Mid(Cells(14, 6), 4, 2) & "-" & Right(Cells(14, 6), 4)

---

Salut uc!

Non je lui dis ça car il y a des chances qu'il utilise le Cells(1,2).Text au mauvais endroit, et que ce n'est pas toujorus évident pour le débutant de bien comprendre la différence entre Text et Value. ;)

Citation:

---

Envoyé par ucfoutu

Code:

---

toto = replace(toto,"/",".")

---

Mais toto doit être de type string et contenir le texte de ta cellule

ou encore (imaginons que ta cellule contienne le texte "01/10/2000") et que tu donnes ce texte à la variable toto :

Code:

---

toto = Format(toto, "dd.mm.yyyy")

---

et tu utilises toto pour construire le nom du fichier

---

ça y est ça fonctionne !!! plus besoin de triturer ma cellulle effectivement c'est bien plus propre ainsi :mrgreen:

merci beaucoup :)

Citation:

---

Envoyé par decondelite

Salut uc!

Non je lui dis ça car il y a des chances qu'il utilise le Cells(1,2).Text au mauvais endroit, et que ce n'est pas toujorus évident pour le débutant de bien comprendre la différence entre Text et Value. ;)

---

En effet, je ne connaissait pas le .Text qui permet de récupérer les contenue de l'affichage de la cellule et non celui de la formule.

Comme je ne connaissait pas la fonction replace(string, " element1", "element2") :)