Sujet Précédent Sujet Suivant

Inscrire la date a l'ouverture du fichier

Fermé
duduleray - 24 déc. 2011 à 12:34
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 - 25 déc. 2011 à 12:27
Bonjour toutes et tous, forum

je souhaiterai créer un fichier avec deux feuilles et inscrire la date du jour a l'ouverture du

fichier ( mais dans la feuille Axa a partir de (A2) )

feuille (1) = compte

feuille (2) = Axa

Si je doit ouvrir ce fichier plusieurs fois par jour

<<< il ne faut pas que la date s'inscrive plusieurs fois de suite, cela va de soit >>>

excel 2007

merci a vous et de votre temps et et et et bon réveillon joyeux noël

Raymond
A voir également:

13 réponses

Réponse 1 / 13
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 24/12/2011 à 17:21
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.
1
duduleray
24 déc. 2011 à 18:05
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
0
duduleray
24 déc. 2011 à 18:45
re
Désolé je n'arrive pas a faire fonctionner la date c'est bon
mais le transfert de la somme de (compte) vers (axa) la ca bloque

Merci a toi
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
25 déc. 2011 à 08:30
re,
explique ce qui se passe, quel erreur et où ?
Vérifie bien le nom de la feuille compte
0
duduleray
25 déc. 2011 à 09:33
Bonjour la soirée a été bonne (LOL)

bon je ne sait pas comment t'expliquer ce qui ne va pas, ceci dit j'ai suivi
tes conseils mais ca ne m'inscris rien dans la feuille (AXA)
si tu veux bien je t'envoi mon mail en MP et comme ca tu pourra voir
sinon c'est pas grave

Bon Dimanche de noël a toi
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 25/12/2011 à 09:43
Le plus simple, dépose ton classeur sur Cjoint.com et mettre le lien dans un poste suivant.
Bon Noël à toi également.
Edit : éventuellement tu peu m'envoyer le lien en MP
0
Réponse 2 / 13
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
24 déc. 2011 à 12:38
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.
0
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
24 déc. 2011 à 12:44
Si j'ai bien vu..
A coller dans le module ThisWorkBook 

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

A+
0
Réponse 3 / 13
duduleray
24 déc. 2011 à 13:34
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
0
Réponse 4 / 13
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
24 déc. 2011 à 13:53
Ça tu peu faire en formatant ta colonne à ton gout.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 13
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
24 déc. 2011 à 13:57
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
0
Réponse 6 / 13
duduleray
24 déc. 2011 à 13:59
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
0
Réponse 7 / 13
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
24 déc. 2011 à 14:04
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+
0
Réponse 8 / 13
duduleray
24 déc. 2011 à 14:12
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
0
Réponse 9 / 13
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 24/12/2011 à 15:30
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.
0
Réponse 10 / 13
duduleray
24 déc. 2011 à 16:03
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
0
Réponse 11 / 13
lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
Modifié par lermite222 le 24/12/2011 à 16:12
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.
0
duduleray
24 déc. 2011 à 17:54
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 sinon je t'envoi
0
Réponse 12 / 13
duduleray
Modifié par duduleray le 24/12/2011 à 16:37
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
0
Réponse 13 / 13
duduleray
24 déc. 2011 à 17:43
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
0

Discussions similaires

Chemin Logo du site de la Cité de l'espace
Keiios -
blux -

11 réponses
comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
Pix
Anyssa -
vibe -

4 réponses