XL 2010 RESOLU : Excel vers word trop de chiffre apres la virgule

Mistrall

XLDnaute Nouveau
Bonjour a tous ,

J'utilise une macro pour automatisé la redaction de rapport d'essai (donc beaucoup de résultat chiffré)
Je rencontre un desagrement avec cette macro lorsque je l'utilise les chiffres sont bien reporté dans Word au endroit choisit mais avec un nombre tres important de chiffre apres la virgule alors que sur excel c'est réglé sur 2.

Donc pour l'instant je rajoute un =arrondi( ; 2) dans mes cellules mais c'est assez long et contraignant pensez vous que je puisse trouvez un moyen pour que sur le word je n'ai que 2 ou 3 chiffre significatif.

Merci d'avance et bonne journée


Ps : voici le code

VB:
Sub Four_tubulaire_NF_EN50305()

                    
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("word.application") 'ouvre session word et le fichier voulu
Set WordDoc = WordApp.Documents.Open(ActiveWorkbook.Path & "\Rapport FR-EN Four Tubulaire NF EN 50305.docx ") 'ouvre document Word"
WordApp.Visible = False 'word masqué pendant l'operation


Dim cc As ContentControl
    Dim docCCs As ContentControls
  
          
          Set docCCs = WordDoc.SelectContentControlsByTag("DebFour")
    If docCCs.Count <> 0 Then
        For Each cc In docCCs
         
           cc.Range.Text = Feuil5.Cells(3, 3)
                 Next
    Else
        MsgBox "No content controls found150"
        End If

   WordApp.Visible = True 'affiche le document Word
'WordDoc.PrintOut 'si on veut imprimer

WordDoc.Close True 'si on veut fermer le document word en sauvegardant les données
WordApp.Quit 'ferme la session Word

End Sub
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib