Selecteur de date

[RONIBO]

Bonjour,

Je souhaite intégrer une petite formule dans mon fichier qui va me faire gagner du temps,

J'ai créer un contrôle du contenu de sélecteur de date sur word 2010.

Une fois que j'ai sélectionné la date je souhaite qui me duplique cette date sous forme de texte dans une phrase simple.

ex : je sélectionne ma date grâce au contrôle du contenu de sélecteur de date

A compte de ici la date à insérer automatiquement vous serez un agent d'accueil

J'espère que j'ai été clair,

merci d'avance et a+

 

[tototiti2008]

Re : Selecteur de date

Bonjour Ronibo,

Essaye de modifier le code comme ça

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim Dte As Date
    If ContentControl.Type = wdContentControlDate Then
        If IsDate(ContentControl.Range.Text) Then
            Dte = DateValue(ContentControl.Range.Text)
        Else
            Dte = DateValue("1 " & Mid(ContentControl.Range.Text, 5, 1000))
        End If
    End If
    ThisDocument.FormFields("Dte1").Result = Format(DateSerial(Year(Dte) + 1, Month(Dte), Day(Dte)), "d mmmm yyyy")
    ThisDocument.Fields.Update
End Sub

 

[RONIBO]

Re : Selecteur de date

re,

Il est pas possible d'écrire avec le "er" c'est ca?

Tu as une solution pour ça :

Je pense que j'ai fait une erreur de frappe, sur ces phrases :

Pour réactualiser le bail à compter du 1er septembre 2012, il faut calculer la réactualisation à partir de l’indice IRL du 2ème Trimestre 2013 qui vient de paraître et qui est d’un montant de 123,69.

En vertu de ce nouvel indice, le loyer hors charges sera désormais à compter du 1er septembre 2012 du montant suivant

La provision de charges mensuelle sera ajoutée à ce montant réactualisé. Le nouveau montant de loyer à verser à compter du 1er septembre 2012 sera donc d’un montant total de 654,36€ charges comprises.

Je veux que il prend en compte la date a+1 (2013), on peut se baser à partir de la date anniversaire.

 

[tototiti2008]

Re : Selecteur de date

Re,

Il est pas possible d'écrire avec le "er" c'est ca?

en fait, quand c'est écrit "1er", VBA n'arrive plus à identifier la date
Si tu le souhaites absolument, je peux écrire "1er" pour l'année d'après

Je pense que j'ai fait une erreur de frappe, sur ces phrases :

Euhhh.... oui, un indice sur où tu as fait une erreur peut-être ? désolé mais je ne travaille pas dans le domaine des bails et de la réactualisation des loyers, alors rien ne me choque particulièrement

 

[RONIBO]

Re : Selecteur de date

Re,



en fait, quand c'est écrit "1er", VBA n'arrive plus à identifier la date
Si tu le souhaites absolument, je peux écrire "1er" pour l'année d'après



Euhhh.... oui, un indice sur où tu as fait une erreur peut-être ? désolé mais je ne travaille pas dans le domaine des bails et de la réactualisation des loyers, alors rien ne me choque particulièrement

Oui essayons voir pour voir à quoi sa ressemble

 

[tototiti2008]

Re : Selecteur de date

Re,

Oui essayons voir

toujours pas compris ton histoire d'erreurs dans les phrases, si tu ne m'explique pas, on avancera pas

Pour le "1er" :

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim Dte As Date, DteString As String
    If ContentControl.Type = wdContentControlDate Then
        If IsDate(ContentControl.Range.Text) Then
            Dte = DateValue(ContentControl.Range.Text)
        Else
            Dte = DateValue("1 " & Mid(ContentControl.Range.Text, 5, 1000))
        End If
    End If
    DteString = Format(DateSerial(Year(Dte) + 1, Month(Dte), Day(Dte)), "d mmmm yyyy")
    If Left(DteString, 2) = "1 " Then DteString = "1er" & Mid(DteString, 2, 1000)
    ThisDocument.FormFields("Dte1").Result = DteString
    ThisDocument.Fields.Update
End Sub

 

[RONIBO]

Re : Selecteur de date

au faite dans les phrases que j'ai cité précédemment, je veux qu'il reprend la date d'anniversaire (a+1)

 

[RONIBO]

Re : Selecteur de date

Je vais être plus précis :

En vertu de ce nouvel indice, le loyer hors charges sera désormais à compter du 1er novembre 2014(date anniversaire). du montant suivant :

on se base sur la date qu'on à ajouté un an.

Je vous contact par la présente afin de vous informer que, conformément aux dispositions du bail signé le 1er novembre 2013 pour l’appartement situé au 2 rue Stéphane Mallarmé, 6ème Étage - Appartement 36, 60100 CREIL, votre loyer mensuel sera réactualisé à compter du 1er novembre 2014.

 

[tototiti2008]

Re : Selecteur de date

Re,

à la fin de la macro, tu peux mettre tous les champs de formulaires que tu veux à jour avec la date d'une année après

il suffit de dupliquer la ligne

ThisDocument.FormFields("Dte1").Result = DteString

Avec le nom du champ de formulaire adéquat

 

[RONIBO]

Re : Selecteur de date

re,

Je viens de constater une erreur, lorsque je sélectionne le 1er d'un mois j'ai une erreur qui s'affiche dans le macro

re,

C'est parfait c'est exactement s'que je voulais.

Merci encore pour ton aide.