Date après passage par macro
Bonjour, je vous expose rapidement le contexte :
J'ai une feuille type a remplir d'informations dans des champs en direct
Et une feuille de synthèse des données. Une macro me permet d'insérer les infos de la première dans la deuxième.
Lorsque je click sur le bouton de la macro, la date s'affiche sur la première feuille (via =MAINTENANT()). Cette n'a aucune utilité si ce n'est remplir les informations et l'imprimer.
La deuxième feuille a par contre pour but une traçabilité des informations.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
| Sub Suivi()
' Déclarations des variables de stockage des données
Dim Type As String
Dim Para As String
Dim Com As String
Dim Mois As String
Dim Lo As String
Dim SS As Integer
Dim Pro As String
Dim i As Integer
Dim j As Integer
' Copie des données dans les variables de stockage
' Données fixes
Sheets("FEUILLE SUIVI").Select
Lo = Cells(5, 10).Value
Pro = Cells(6, 10).Value
SS = Cells(5, 13).Value
Mois = Cells(2, 14).Value
Produit = Cells(5, 2)
'Remplissage de la cellule puis mise en forme de de la date en JJ/MM/AAAA
Cells(3, 14).Value = "=NOW()" 'écriture de la date et heure de saisie->
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Cells(3, 14).Select
Mois = Cells(3, 14).Value
'Actions à réaliser tant que les lignes sont remplies
i = 10
While Cells(i, 1).Value <> ""
'Données variables
Type = Cells(i, 13).Value
Para = Cells(i, 1).Value
Com = Cells(i, 3).Value
' collage des données dans la feuille Synthèse
Sheets("Synthèse").Select
j = 15
While Cells(j, 1).Value <> ""
j = j + 1
Wend
Cells(j, 1).Value = Mois
Cells(j, 2).Value = Lo
Cells(j, 3).Value = SS
Cells(j, 4) = Produit
Cells(j, 5).Value = Pro
Cells(j, 6).Value = Type
Cells(j, 7).Value = Para
Cells(j, 8).Value = Com
Sheets("FEUILLE SUIVI").Select
i = i + 1
Wend
End Sub |
Le problème est le suivant :
La date inscrite sur la première feuille est bien de type jj/mm/aa .
Par contre, sur la 2ème feuille, cela tranpose la date en mm/jj/aa (pourtant tout est ok dans le format des cellules).
Comme je veux ma date en format mmmm-aa, par exemple pour une date du 09/07/08 cela m'affiche sept-08 au lieu de juil-08.
Auriez-vous une idée : soit pour remplacer la partie date de la macro (en faisant appel à une fonction qui insère dans la 2ème feuille la date du click sur le bouton de la macro située sur la première feuille par exemple), soit pour que cela prenne en compte le format souhaité?
Je vous remercie par avance.