Format de date et recopie

Bonjour,

Je vous explique mon soucis.

Dans une première feuille je calcule le jour de la semaine en lettre avec ce code :

ActiveCell.FormulaR1C1 = "=WEEKDAY(RC[1])+1

Puis je recopie uniquement la valeur dans une autre feuille :

Selection.Copy
Sheets("RECOPIE").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Déjà là je suis obligé de remettre le code :

Selection.NumberFormat = "dddd"

Si je veux que sur ma deuxième feuille il y ait "samedi", pourquoi je ne retrouve pas directement le libéllé de ma celule puisque j'ai fait copier/coller valeur ?

Et comme je voudrais extraire ensuite les deux premières lettres de la celule ben impossible....

Une idée ?

J'ai joint un petit fichier...

Bonjour

Filou78 a écrit :

pourquoi je ne retrouve pas directement le libéllé de ma celule puisque j'ai fait copier/coller valeur ?

Justement parce que tu n'as copié que la valeur, et non le format;

Essaie avec :

Selection.PasteSpecial Paste:=xlPasteAll

Bye !

Oui ça fonctionne mais ensuite j'applique :

ActiveCell.FormulaR1C1 = "=MID(RC[-1],1,2)"

Je n'ai pas les lettres mais le chiffre....

Un essai.

Cela te convient-il ?

Bye !

Impeccable !!!!!

J'ai juste un peu "améliorer" pour faire une boucle sur plusieurs dates :

ligne_recopie = 1
'
While Cells(ligne_recopie, 1) <> ""
'
With Sheets("RECOPIE")
Sheets("RECOPIE").Range("B" & ligne_recopie).Copy .Range("B" & ligne_recopie)
.Range("B" & ligne_recopie) = WeekdayName(Weekday(.Range("A" & ligne_recopie), 2))
.Range("C" & ligne_recopie) = Left(.Range("B" & ligne_recopie), 2)
.Select
End With
'
ligne_recopie = ligne_recopie + 1
'
Wend

Merci encore !!!!

Bravo !

En revanche, je vois que tu n'as pas pigé comment mettre un code dans un message.

Il suffit :

* de sélectionner et copier ton code sur ta feuille VA

* de coller dans le corps de ton message, en début de ligne

* de sélectionner tout ce code que tu viens de coller

* de cliquer sur le bouton vert ''Code'' au-dessus de la fenêtre du message

C'est tout.

Mais peut-être que tu n'en auras plus jamais besoin, vu tes rapides progrès en VBA !

Bye !

Bonjour,

Merci pour l'info du code....

Ben si justement j'ai besoin encore d'aide....

Je cherche à écrire un code qui sélectionne une variable date (jour_aujourdhui) dans un classeur et qui va chercher cette variable dans un autre classeur.

Et impossible qu'il me retrouve cette variable...

Je pense que c'est un problème de format de date...

Mais je sèche

Une idée...

PS en pj le fichier avec la macro