Discussion :

[cmgirondins]

Bonjour tous le monde,
j'aimerais savoir si il existe une fonction qui recupere la date du moment (lorsque l'on clique sur un bouton).

Cette date pourra etre modifié que lorsque la personne clique sur le bouton et non lorsque il imprime le document


une deuxieme petite question
comment je fais pour mettre les controles dans word (drivelistbox, dirlistbox et filelistbox) ?
c pour recuperer une image dans un formulaire


merci d'avance


cyrille

[ouskel'n'or]

Hello,

Je réponds à ça :

Cette date pourra etre modifié que lorsque la personne clique sur le bouton et non lorsque il imprime le document

Pour ça, tu récupères la date dans une variable et tu colles le contenu de la variable formaté

Code :

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

1
2
madate = Format(Date, "dd mm yyyy")
Cells(1,1).value = madate

Et comme j'ai office 97, quelqu'un d'autre répondra à ta 2ème question

A+

[random]

sur click mon bouton
monchamp=now ou date

[cmgirondins]

merci pour vos reponses mais cela m'enerve je suis vraiment nul.

je voudrais que me macro lorsque je clique sur un bouton me mette la date du moment au milieu de mon pied de page et ensuite si kelk'un d'autre clique sur le bouton que sa remplace la date inscrit et j'y arrive pas

merci de votre aide


cyrille

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
 
Private sub MonBouton_click
    Madate = Format(Date, "dd mm yyyy")
    With ActiveSheet.PageSetup
        .CenterFooter = Madate
    End With

end sub

ça répond à ta demande ?
A+

[cmgirondins]

heu
il me met qu'un objet et requis sur la ligne

Code :

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

    With ActiveSheet.PageSetup

j'ai ca

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
 
Dim madate As Date
Dim reponse As String
 
 
reponse = MsgBox("Voulez vous inscrire la date de version", vbYesNo)
 
    If reponse = vbYes Then
 
        madate = Format(Date, "dd mm yyyy")
        With ActiveSheet.PageSetup
            .CenterFooter = madate
        End With
    Else
        MsgBox ("une prochaine fois")
    End If
 
End Sub

[ouskel'n'or]

Alors tu mets

Code :

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

1
2
3
Worksheets(NomDeTaFeuille).select
With ActiveSheet.PageSetup
...

ou

Code :

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

1
2
3
Set MaFeuille = Worksheets(NomDeTaFeuille)
With MaFeuille.PageSetup
...

et tu nous dis...

A+

[cmgirondins]

dans word il aime pas " Worksheets "
c pas pour excel worksheets ? pasque meme dans l'aide il me le trouve pas alors que dans excel il me le trouve

il me met "erreur de compilation
sub ou fonction non définit"

je suis vraiement chiant escuse moi

[ouskel'n'or]

Excuse, j'avais oublié que tu étais dans word mais avec ça, ça devrait aller...

Code :

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

1
2
3
4
5
6
    Madate = Format(Date, "dd mmmm yyyy")
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.TypeText Text:=Madate
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

A+

[cmgirondins]

sa marche nikel une derniere chose pour que la date precedente s'ecrase c koi la ligne de commande pasque la quand je reclique sur le bouton ca me la met a la suite


merci bicoup


cyrille

[ouskel'n'or]

JE VOUDRAIS M'EN ALLER !
après cette ligne,

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter

tu sélectionne jusqu'en fin de ligne et tu mets la ligne suivante.

soit

Code :

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

1
2
3
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
    Selection.EndKey Unit:=wdLine, Extend:=wdExtend
    Selection.TypeText Text:=Madate

A DEMAIN !!!

Bonne soirée

[cmgirondins]

merci

a demain

[cmgirondins]

pour rajouter l'heure a ma date ya pas une fonction Time dans word ?
je trouve la fonction DateTime mais soit elle marche pas soit je ne comprend pas comment elle marche (je pense que c la deuxieme solution)

please help me

Cyrille

[ouskel'n'or]

Mais si !

Code :

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

1
2
MsgBox Format(Date, "dd mmmm yyyy") & " " & Time  'concaténé à la date
MsgBox Time    'toute seule

dans excel

Vois pas pourquoi ça marcherait pas dans Word

A+

[cmgirondins]

nikel sa marche merci ouskel'n'or