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