Mes feuilles s'appellent 01.06.06 à 30.06.06
Une formule en D42 :
=SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code :
With Range("D42")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
.Replace What:=".", Replacement:="/"
ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
*Bonjour Patrick BASTARD*, Essaie comme ca, chez moi, ca marche :
Sub test() With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" .Value = Format(.Value, "dddd dd/mm/yyyy") End With End Sub
Apres le passage de la macro, la cellule contiens un texte mais plus de formule :/
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06 Une formule en D42 : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code : With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Quelqu'un aurait-il une piste ?
D'avance, merci.
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Patrick BASTARD*,
Essaie comme ca, chez moi, ca marche :
Sub test()
With Range("D42")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
.Replace What:=".", Replacement:="/"
.Value = Format(.Value, "dddd dd/mm/yyyy")
End With
End Sub
Apres le passage de la macro, la cellule contiens un texte mais plus de
formule :/
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06
Une formule en D42 :
=SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code :
With Range("D42")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
.Replace What:=".", Replacement:="/"
ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
*Bonjour Patrick BASTARD*, Essaie comme ca, chez moi, ca marche :
Sub test() With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" .Value = Format(.Value, "dddd dd/mm/yyyy") End With End Sub
Apres le passage de la macro, la cellule contiens un texte mais plus de formule :/
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06 Une formule en D42 : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code : With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Quelqu'un aurait-il une piste ?
D'avance, merci.
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*Bonjour Patrick BASTARD*, Ou, peut etre mieux pour concerver une date :
Sub test() With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" .NumberFormat = "dddd dd/mm/yyyy" End With
End Sub
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06 Une formule en D42 : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code : With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Quelqu'un aurait-il une piste ?
D'avance, merci.
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour Patrick BASTARD*,
Ou, peut etre mieux pour concerver une date :
Sub test()
With Range("D42")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
.Replace What:=".", Replacement:="/"
.NumberFormat = "dddd dd/mm/yyyy"
End With
End Sub
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06
Une formule en D42 :
=SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code :
With Range("D42")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
.Replace What:=".", Replacement:="/"
ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
*Bonjour Patrick BASTARD*, Ou, peut etre mieux pour concerver une date :
Sub test() With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" .NumberFormat = "dddd dd/mm/yyyy" End With
End Sub
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06 Une formule en D42 : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code : With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Quelqu'un aurait-il une piste ?
D'avance, merci.
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
Patrick BASTARD
Bonsoir, toutes et tous.
Ne cherchez plus, j'ai trouvé cela : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;SUBSTITUE(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32);".";"/")*1) Un peu lourd et alambiqué, mais ça fonctionne. (sans macro).
-- Bien amicordialement, P. Bastard
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06 Une formule en D42 : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code : With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Quelqu'un aurait-il une piste ?
D'avance, merci.
Bonsoir, toutes et tous.
Ne cherchez plus, j'ai trouvé cela :
=SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;SUBSTITUE(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32);".";"/")*1)
Un peu lourd et alambiqué, mais ça fonctionne. (sans macro).
--
Bien amicordialement,
P. Bastard
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06
Une formule en D42 :
=SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code :
With Range("D42")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
_ SkipBlanks:úlse,
Transpose:úlse .Replace What:=".", Replacement:="/"
ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Ne cherchez plus, j'ai trouvé cela : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;SUBSTITUE(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32);".";"/")*1) Un peu lourd et alambiqué, mais ça fonctionne. (sans macro).
-- Bien amicordialement, P. Bastard
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06 Une formule en D42 : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code : With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Quelqu'un aurait-il une piste ?
D'avance, merci.
Patrick BASTARD
Bonsoir, *JLuc*
J'avais essayé un truc de ce genre, mais 01.06.06 devenait vendredi 6 janvier 2006. Je me suis auto-répondu (voir post précédent).
Merci en tous cas de m'avoir répondu.
-- Bien amicordialement, P. Bastard
*Bonjour Patrick BASTARD*, Ou, peut etre mieux pour concerver une date :
Sub test() With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" .NumberFormat = "dddd dd/mm/yyyy" End With
End Sub
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06 Une formule en D42 : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code : With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
Quelqu'un aurait-il une piste ?
D'avance, merci.
Bonsoir, *JLuc*
J'avais essayé un truc de ce genre, mais 01.06.06 devenait vendredi 6
janvier 2006.
Je me suis auto-répondu (voir post précédent).
Merci en tous cas de m'avoir répondu.
--
Bien amicordialement,
P. Bastard
*Bonjour Patrick BASTARD*,
Ou, peut etre mieux pour concerver une date :
Sub test()
With Range("D42")
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse
.Replace What:=".", Replacement:="/"
.NumberFormat = "dddd dd/mm/yyyy"
End With
End Sub
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06
Une formule en D42 :
=SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code :
With Range("D42")
.Copy
.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, _
SkipBlanks:úlse, Transpose:úlse .Replace
What:=".", Replacement:="/" ne me donne pas la bonne date sous format
date (jjjj jj mmmm aaaa).
J'avais essayé un truc de ce genre, mais 01.06.06 devenait vendredi 6 janvier 2006. Je me suis auto-répondu (voir post précédent).
Merci en tous cas de m'avoir répondu.
-- Bien amicordialement, P. Bastard
*Bonjour Patrick BASTARD*, Ou, peut etre mieux pour concerver une date :
Sub test() With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" .NumberFormat = "dddd dd/mm/yyyy" End With
End Sub
Bonjour à toutes et à tous.
Mes feuilles s'appellent 01.06.06 à 30.06.06 Une formule en D42 : =SI(STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32)="Modèle";38872;STXT(CELLULE("nomfichier");TROUVE("]";CELLULE("nomfichier"))+1;32))
Le code : With Range("D42") .Copy .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ SkipBlanks:úlse, Transpose:úlse .Replace What:=".", Replacement:="/" ne me donne pas la bonne date sous format date (jjjj jj mmmm aaaa).
