Copie d'une heure d'Excel vers Word erronée

job75

XLDnaute Barbatruc

• 15 Juin 2010

• #2

Re : Copie d'une heure d'Excel vers Word erronée

Bonsoir zakou76,

Code:

wordDoc.Tables(6).Columns(3).Cells(2).Range.Text = Range("G1")[COLOR="Red"].Text[/COLOR]

A+

 

Vote positif 0 Vote négatif

Z

zakou76

XLDnaute Nouveau

• 15 Juin 2010

• #3

Re : Copie d'une heure d'Excel vers Word erronée

Re-bonjour
Merci job75, c'est exctement cela que je cherche. Merci

 

Vote positif 0 Vote négatif

Z

zakou76

XLDnaute Nouveau

• 15 Juin 2010

• #4

Re : Copie d'une heure d'Excel vers Word erronée

job75 à dit:

Bonsoir zakou76,

Code:

wordDoc.Tables(6).Columns(3).Cells(2).Range.Text = Range("G1")[COLOR="Red"].Text[/COLOR]

A+

Cliquez pour agrandir...

Bonsoir.
Une autre petite question.
En G1 j'ai 21:07:28
En G2 j'ai 10:00:00
Dans la variable Total je mets: Total = Range("G1").value + Range("G2").Value
Comment récupérer le total dans un tableau word sous forme de:
hh:mm:ss
Merci encore

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Juin 2010

• #5

Re : Copie d'une heure d'Excel vers Word erronée

Re,

Le format [hh]:mm:ss n'est pas reconnu par VBA.

Donc il faut faire un petit traitement :

Code:

Dim Total As Variant
'--------
Total = Range("G1") + Range("G2")
Total = Format(Int(CDec(24 * Total)), "00") & Right(Format(Total, "hh:mm:ss"), 6)
MsgBox Total 'vérification

A+

 

Vote positif 0 Vote négatif

Z

zakou76

XLDnaute Nouveau

• 16 Juin 2010

• #6

Re : Copie d'une heure d'Excel vers Word erronée

Bonsoir à tous.
Merci Job75 pour la formule ça marche nickel. Mais franchement je n'ai pas compris le "6" à la fin de la formule.
Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 17 Juin 2010

• #7

Re : Copie d'une heure d'Excel vers Word erronée

Bonjour zakou76,

zakou76 à dit:

Mais franchement je n'ai pas compris le "6" à la fin de la formule.

Cliquez pour agrandir...

Franchement ?? Quand on écrit Right(x, 6) les 6 caractères à droite de x sont renvoyés 😉

A+

 

Vote positif 0 Vote négatif