Creer un fonction ?

loulou68 -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour,

Actuellement je saisi ma date et mon N° de jour tous les jours, pour la date j'ai trouvé. Mais je ne sais pas comment faire pour le N°jour. Ca me faciliterai un peu si ca se fesai tout seul.
Si quelqu'un peut m'aider.
Merci d'avance

3 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonsoir,
    Mettre un titre plus explicite te permettrais d'avoir une r"ponse plus rapidement.
    Avec quel logiciel ?
    Avec formule ou VBA ?
    Explique mieux ce que tu ceux faire parce que j'ai rien compris.
    A+
    0
    1. loulou68
       
      Bonjour,

      Je m'explique : J'ai un fichier excel et word et j'aimerai que la date et le quantieme de jour s'affiche automatiquement lors de l'ouverture quotidien du fichier sans que j'ai besoin de la saisir manuellement.

      Cordialement
      0
  2. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Pour avoir la date..
    L'emplacement où mettre les données dans Word (Je connais pas bien ce VBA)
    Dans Excell

    par formule dans une feuille 
    =AUJOURDHUI()-DATEVAL("01/01/" & ANNEE(AUJOURDHUI()))+1


    EDIT:
    J'ai oublié de dire..
    Après avoir rentrer la formule il faut remettre le format de la cellule en standard.
    0
    1. loulou68
       
      Re,

      Merci pour la fonction, ca marche sous excel mais pour word, dommage, il va falloir que je cherhce encore.
      0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bon, j'ai regardé pour word, comme je connais quand même VBA j'ai pas eu difficile.
    tu ouvre Word >> Ctrl+F11
    A gauche tu a l'explorateur de document, document "Normal" ,double clic sur ThisDocument
    dans la fenêtre qui s'ouvre tu copie la macro... 
    Private Sub Document_New()
    Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & Date
    Selection.TypeParagraph
    
    Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab _
    & "Jour N° " & DatePart("y", Date)
    Selection.TypeParagraph

End Sub

    Chaque fois que tu ouvre un nouveau document la date et le N° du jour s'inscrirot.
    A toi d'ajuster les emplacements.
    A+
    0
    1. loulou68
       
      Je te remercie pour ton aide, j'essayerai demain pour voir si marche.

      Merci encore
      0
      1. lermite222 Messages postés 9042 Statut Contributeur 1 199 > loulou68
         
        Comment si ca marche !!!! bien sûr que ca marche... :-DDD
        0
      2. louloul68 Messages postés 1 Statut Membre > lermite222 Messages postés 9042 Statut Contributeur
         
        Bonjour,

        Desolé mais ca ne marche pas ou c'est moi qui quelque chose de mal.
        Lors de la saisi de la procedure,

        Private Sub Document_New()
        Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & Date
        Selection.TypeParagraph

        Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab _
        & "Jour N° " & DatePart("y", Date) (fonction erroné)
        Selection.TypeParagraph

        End Sub

        Et par contre le ctrl+F11 ne marche pas, est ce la version d'office qui est pourri ?
        0
      3. lermite222 Messages postés 9042 Statut Contributeur 1 199 > louloul68 Messages postés 1 Statut Membre
         
        J'ai fait une erreur, c'est Alt+F11 !!
        Je revoi l'erreur et je revient, mais chez moi ca allais, quel Version ? quel langue Francais/Anglais ?
        0