Discussion :

[lhoste]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[lionhigh]

Ceci te renvoi l'abréviation du mois en cours
Date : date d'aujourd'hui
Si tu remplace True par False tu obtient juillet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonthName(Month(Date), True)

J'espère que ca peut t'aider ;-)

[J.Michel]

Bonjour,
Essaye comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Cells(3,14).Value = Format(Date, "dd/mm/yyyy")

[lhoste]

Merci beaucoup à Lionhigh ainsi qu'à J.Michel, déjà pour la rapidité de leur réponse, mais surtout pour l'aide qui m'a été précieuse.