1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| If changement_batterie = True Then
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_Pile_Hs1", ReplaceWith:=liste_tarifs_philips(0)._Titre1)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_Duree_de_vie_4_ans", ReplaceWith:=liste_tarifs_philips(0)._Titre2)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_puht_fab1", ReplaceWith:=liste_tarifs_philips(0)._PUHT_Fabricant)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_remise1", ReplaceWith:=liste_tarifs_philips(0)._Remise)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_puht1", ReplaceWith:=liste_tarifs_philips(0)._PUHT)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_qte1", ReplaceWith:="1")
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_ht1", ReplaceWith:=liste_tarifs_philips(0)._PUHT)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_tva1", ReplaceWith:=liste_tarifs_philips(0)._TVA)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_ttc1", ReplaceWith:=liste_tarifs_philips(0)._PUTTC)
End If
If peremption_adulte = True Then
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_Electrodes_adulte_Hs1", ReplaceWith:=liste_tarifs_philips(1)._Titre1)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_Duree_de_vie_2_ans", ReplaceWith:=liste_tarifs_philips(1)._Titre2)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_puht_fab2", ReplaceWith:=liste_tarifs_philips(1)._PUHT_Fabricant)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_remise2", ReplaceWith:=liste_tarifs_philips(1)._Remise)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_puht2", ReplaceWith:=liste_tarifs_philips(1)._PUHT)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_qte2", ReplaceWith:="1")
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_ht2", ReplaceWith:=liste_tarifs_philips(1)._PUHT)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_tva2", ReplaceWith:=liste_tarifs_philips(1)._TVA)
oW.Application.ActiveDocument.Content.Find.Execute(FindText:="devis_ttc2", ReplaceWith:=liste_tarifs_philips(1)._PUTTC)
End If |
Partager