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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105
| Function relance(TIER As String, TIERSOCIET As String, TEL As String, FAX As String, FACADR1 As String, FACADR2 As String, FACADR3 As String, FACCODEPOS As String, FACVILLE As String, total_du As Single) As Single
Dim nom As String
Dim fact As Single
Dim datepiec As Date
Dim num As String
Dim numsoc As String
Dim total_ttc As Single
Dim du As Single
Dim esp As String
Dim esp2 As String
Dim esp3 As String
Dim esp4 As String
Dim esp5 As String
Dim esp6 As String
Dim esp7 As String
Dim esp8 As String
Dim esp9 As String
Dim auj As Date
Dim varimage As String
esp = espace(fact_tab(4, 0))
esp2 = espace(fact_tab(4, 1))
esp3 = espace(fact_tab(4, 2))
esp4 = espace(fact_tab(4, 3))
esp5 = espace(fact_tab(4, 4))
esp6 = espace(fact_tab(4, 5))
esp7 = espace(fact_tab(4, 6))
esp8 = espace(fact_tab(4, 7))
esp9 = espace(fact_tab(4, 8))
esp10 = espace(fact_tab(4, 9))
auj = Date
nom = "relance_" & TIERSOCIET
Set fs = CreateObject("Scripting.FileSystemObject")
'Création de l'objet fso
nom_fichier = "D:\Stage\" & nom & ".doc"
Set a = fs.CreateTextFile(nom_fichier, True)
'Création d 'un fichier
Selection.InlineShapes.AddPicture FileName:="D:\Stage\rond.bmp", LinkToFile:=False, SaveWithDocument:=True ' ligne créer grâce à la macro word
a.writeline ""
'écriture dans le fichier
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline " " & TIERSOCIET
a.writeline " " & FACADR1 & FACADR2 & FACADR3
a.writeline " " & FACCODEPOS & faccille
a.writeline " Téléphone " & TEL
a.writeline " Fax " & FAX
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline " Toulouse le " & auj
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline "Madame, Monsieur,"
a.writeline ""
a.writeline ""
a.writeline " Sauf erreur ou omission de notre part, nous n'avons pas reçu à ce jour votre règlement ou notre traite acceptée, correspondant au relevé de la facture ci-dessous."
a.writeline ""
a.writeline "Numéro date montant TTC solde dû échéance "
a.writeline "" & fact_tab(2, 0) & " " & fact_tab(1, 0) & " " & fact_tab(4, 0) & esp & fact_tab(4, 0) & esp & fact_tab(5, 0)
a.writeline "" & fact_tab(2, 1) & " " & fact_tab(1, 1) & " " & fact_tab(4, 1) & esp2 & fact_tab(4, 1) & esp2 & fact_tab(5, 1)
a.writeline "" & fact_tab(2, 2) & " " & fact_tab(1, 2) & " " & fact_tab(4, 2) & esp3 & fact_tab(4, 2) & esp3 & fact_tab(5, 2)
a.writeline "" & fact_tab(2, 3) & " " & fact_tab(1, 3) & " " & fact_tab(4, 3) & esp4 & fact_tab(4, 3) & esp4 & fact_tab(5, 3)
a.writeline "" & fact_tab(2, 4) & " " & fact_tab(1, 4) & " " & fact_tab(4, 4) & esp5 & fact_tab(4, 4) & esp5 & fact_tab(5, 4)
a.writeline "" & fact_tab(2, 5) & " " & fact_tab(1, 5) & " " & fact_tab(4, 5) & esp6 & fact_tab(4, 5) & esp6 & fact_tab(5, 5)
a.writeline "" & fact_tab(2, 6) & " " & fact_tab(1, 6) & " " & fact_tab(4, 6) & esp7 & fact_tab(4, 6) & esp7 & fact_tab(5, 6)
a.writeline "" & fact_tab(2, 7) & " " & fact_tab(1, 7) & " " & fact_tab(4, 7) & esp8 & fact_tab(4, 7) & esp8 & fact_tab(5, 7)
a.writeline "" & fact_tab(2, 8) & " " & fact_tab(1, 8) & " " & fact_tab(4, 8) & esp9 & fact_tab(4, 8) & esp9 & fact_tab(5, 8)
a.writeline "" & fact_tab(2, 9) & " " & fact_tab(1, 9) & " " & fact_tab(4, 9) & esp10 & fact_tab(4, 9) & esp10 & fact_tab(5, 9)
a.writeline " Solde total dû: " & total_du
a.writeline ""
a.writeline " Nous vous remercions de bien vouloir nous faire parvenir votre règlement dans "
a.writeline "les meilleurs délais."
a.writeline ""
a.writeline " Dans le cas où vous auriez effectué ce règlement, veuillez nous indiquez vos dateset mode de paiement."
a.writeline ""
a.writeline " Vous remerciant par avance de votre diligence, nous vous prions d'agréer, "
a.writeline "Madame, Monsieur, nos sincères salutations."
a.writeline ""
a.writeline " Le service comptabilité"
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline ""
a.writeline "8 rue Jacques Babinet - 31100 Toulouse"
a.writeline "Tél (33) 05 62 8782 80 - Fax (33) 05 62 87 82 89"
a.writeline "contact@prevenscop.com - www.prevenscop.com"
'completer la facture
a.Close
'fermeture fichier
End Function |
Partager