Inscrire la date a l'ouverture du fichier

Je ne sais pas si c'est exactement ça que tu souhaite.
Met le total du mois en cour sur la date du jour, que ce soit la 1ère fois ou après réouverture, le montant sera toujours actualiser.

Private Sub Workbook_Open()  
Dim DerLig As Long  
Dim D As String, TB  
Dim M As Integer  
    D = CStr(Format(Date, "dddd dd mmmm yyyy"))  
    M = Month(Now)  
    TB = Split(D, " ")  
    D = UCase(Left(TB(0), 1)) & Mid(TB(0), 2) & " " & TB(1) & " " _  
    & UCase(Left(TB(2), 1)) & Mid(TB(2), 2) & " " & TB(3)  
     
    With Sheets("AXA")  
        DerLig = .Range("A65536").End(xlUp).Row  
        If .Cells(DerLig, "A") <> D Then  
            .Cells(DerLig + 1, "A") = D  
            .Cells(DerLig + 1, "B") = Sheets("compte").Cells(23, 3 + M)  
        Else  
            .Cells(DerLig, "B") = Sheets("compte").Cells(23, 3 + M)  
        End If  
    End With  
End Sub

Tu dis.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.

Bonjour,
<<< il ne faut pas que la date s'inscrive plusieurs fois de suite, cela va de soit >>>
Non, cela ne va pas de soit, tu dois indexer la colonne A en fonction de la date ?
Par exemple si la dernière ligne est A100, écrire UNE FOIS la date du jour en A101 ?
Tu dis.

Salut lermite222

Merci de ta réponse c'est sympa, bon ca fonctionne

Te serai t'il possible de faire afficher cette date de cette Manière svp

Ex: Samedi 24 Décembre 2011

en tenant compte des majuscules, je sais que l'on ne mets pas de majuscule mais j'aime bien (LOL)

Encore merci, bonne après midi a toi

Raymond

Ça tu peu faire en formatant ta colonne à ton gout.

Correction, j'ai oublier les points et y risque d'y avoir des erreurs de feuille

Private Sub Workbook_Open()
Dim DerLig As Long
    With Sheets("AXA")
        DerLig = .Range("A65536").End(xlUp).Row
        If .Cells(DerLig, "A") <> Date Then
            .Cells(DerLig + 1, "A") = Date
        End If
    End With
End Sub

Merci a toi, j'ai essayer mais je n'ai rien qui correspond au formattage souhaité

c'est toujours en minuscule et dans divers formats d'ailleurs.

Mais surement que peut etre que je ne sais pas faire, il y aurai bien un petit peu de ca aussi hihihii

A te relire

Ray

Le format... jjjj jj mmmm aaaa
Ce n'est pas avec des majuscules mais si ont transforme la cellule ce ne sera plus une date.
A+

Re oui ca fonctionne, mais d'après toi on peux faire quand mème en modifiant le code au moment de l'affichage déja vu vba (proper) je crois qui mets en majuscule

t'avoue que je sais pas faire

si tu sais je suis preneur, svp, cadeau pour noël hihihi, je blague

Merci

Ray

T'est pas vraiment difficile toi.. :-)

Private Sub Workbook_Open() 
Dim DerLig As Long 
Dim D As String, TB 
    D = CStr(Format(Date, "dddd dd mmmm yyyy")) 
    TB = Split(D, " ") 
    D = UCase(Left(TB(0), 1)) & Mid(TB(0), 2) & " " & TB(1) & " " _ 
    & UCase(Left(TB(2), 1)) & Mid(TB(2), 2) & " " & TB(3) 

    With Sheets("AXA") 
        DerLig = .Range("A65536").End(xlUp).Row 
        If .Cells(DerLig, "A") <> D Then 
            .Cells(DerLig + 1, "A") = D 
        End If 
    End With 
End Sub

Formater de la colonne en Texte et tu ne pourras plus te servir de la cellule comme date.
A+
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.

Merci pour le code c'est très sympa, j'espère que le père noël saura te récompenser pour ta patience et ta sympathie (LOL)

je me suis permis de remettre ton code car vois svp j'ai un mis commentaire quand tu a poster le code apparament une ligne de code a sauter.

Bon sinon pour moi c'est Ok ca marche grace a toi.

Maintenant plus qu'a transferer une somme de la feuille compte dans axa
en face de la date, la c'est pas gagner !!!!!

Encore merci passe un bon réveillon, je retourne a mon fichier. Joyeux Noël

Cordialement Raymond

Private Sub Workbook_Open()
Dim DerLig As Long
Dim D As String, TB
    D = CStr(Format(Date, "dddd dd mmmm yyyy"))
    TB = Split(D, " ")
    D = UCase(Left(TB(0), 1)) & Mid(TB(0), 2) & " " & TB(1) & " " _
    & UCase(Left(TB(2), 1)) & Mid(TB(2), 2) & " " & TB(3)
    Sheets("AXA").Activate
    
With Sheets("Feuil1")           '*** ce code a sauter et j'ai modifier par Axa pour moi
       
 DerLig = .Range("A65536").End(xlUp).Row
        If .Cells(DerLig, "A") <> D Then
            .Cells(DerLig + 1, "A") = D
        End If
    End With
End Sub

Oui, Entre temps j'avais modifier le code, tu peu le reprendre, il y a une ligne en moins (Activate pas nécessaire)
Bonnes fêtes à toi aussi.
A+
Edit :
Une piste..

        If .Cells(DerLig, "A") <> D Then   
            .Cells(DerLig + 1, "A") = D   
            .Cells(DerLig + 1, "B") = Sheets("compte").cells(Ligne,colonne)  
        End If  

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.

Re je t'envoi ce que je voulai faire

si tu crois qu'il est possible d'intégrer ca au code que tu m'a fait, car moi je ne vais pas savoir orchestré tout ca.

pas presser, si tu n'a pas le temps pas grave tu m'a déja bien aider.

encore merci a toi

Raymond sinon le restant ca marche plus que ca a faire.

En fait dans la feuille (compte) j'ai 12 colonnes pour les 12 mois
Tous les jours ouvrés du mois en cours, le soir je récupère le solde disponible
de ma petite action oui petite

donc je colle cette somme dans la cellule D23 pour janvier E23 pour février etc

dans cette cellule la valeur change a chaque fois et je voulais la transférer automatiquement dans
la feuille (Axa) en face de la date du jour afin de faire un suivi.

(axa) colonne A les dates ---- colonne B la somme qui viendrai de la feuille compte D23, E23 etc

Merci tu es sympa

je crois que je merdouille un peu
comment je peux t'envoyer mon fichier rien de spécial je le commence
suis en exel 2007

je crois que ca va etre plus facile ca va eviter que je t'embete de trop

ou par mail je crois qu'il est visible