[VBA - E] : Format d'heure lors d'un automation Excel - Word

Version imprimable

03/07/2006, 14h15
sat478

[VBA - E] : Format d'heure lors d'un automation Excel - Word

Bonjour,

voici mon problème. Via automation je remplis automatiquement un fichier word. Or, pour certains des signets concernés, il s'agit de remplir des heures qui figurent dans excel dans des cellules avec un format heure.

Or, lorsque je le copie dans word, mes heures deviennent des décimaux... quelqu'un peut - il m'aider ?

Merci par avance
03/07/2006, 14h20
SfJ5Rpw8

ben montre ton code de copie... ( voir utilisation de la fonction Format, afin d'écrire une chaine de caracatére et non pas un réel au format Date...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
For J = 6 To 8
    If Worksheets("Feuil1").Cells(J, 1).Value = "X" Or Worksheets("Feuil1").Cells(J, 1).Value = "x" Then
        heuredeb = Worksheets("Feuil1").Cells(J, 2).Value
        heurefin = Worksheets("Feuil1").Cells(J, 4).Value
        valeur = Worksheets("Feuil1").Cells(J, 6).Value
        WriteValeur = "Ceci a eu lieu de " & heuredeb & " à " & heurefin & " pour le motif suivant : " & valeur
        Call Word_Atteindre_Signet("NomSignet")
        Call Word_Ecrire_Texte(Chr(10))
        Call Word_Au_signet_Ecrire_texte("NomSignet", WriteValeur)
    End If
Next J

les cellules correspondant à heuredeb et heurefin sont au format heure type 13:30

03/07/2006, 18h40
SfJ5Rpw8

et heuredeb et heurefin sont déclaré ou ..?
04/07/2006, 11h40
sat478

Autant pour moi datedeb et datefin sont déclaré comme As Date, donc plus aucun souci si ce n'est que j'ai les secondes qui s'affichent également, y a t il possibilité de les supprimer ?

utilise Format...

Code:

1
2
3
...
    WriteValeur = "Ceci a eu lieu de " & format(heuredeb,"HH:MM") & " à " & format(heurefin,"HH:MM")  & " pour le motif suivant : " & valeur
...

;)

04/07/2006, 15h27
sat478

Je ne connaissais pas la commande Format.

C'est nikel merci beaucoup