Discussion :

[sat478]

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

[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...)

[sat478]

Code :

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

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

[SfJ5Rpw8]

et heuredeb et heurefin sont déclaré ou ..?

[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 ?

[SfJ5Rpw8]

utilise Format...

Code :

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

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

[sat478]

Je ne connaissais pas la commande Format.

C'est nikel merci beaucoup