1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Private Sub CreerFichierHTML(ByVal Nom As String, ByVal Prenom As String, ByVal Tel1 As String, ByVal Tel2, ByVal Direction As String, ByVal Fonc1 As String, ByVal Fonc2 As String, ByVal Entite As String, ByVal Adresse As String, ByVal Code_Postal As String, ByVal Ville As String, ByVal Pays As String, ByVal Mail As String)
Dim TxtStreamEcriture As Object
Dim Flx As String
Dim vide As Boolean
On Error Resume Next
If OBJSCRIPT.fileexists(CHEMIN_REPERTOIRE_UTIL & Nom & "_" & Prenom & ".HTM") Then
OBJSCRIPT.DeleteFile CHEMIN_REPERTOIRE_UTIL & Nom & "_" & Prenom & ".HTM"
End If
If Not OBJSCRIPT.fileexists(CHEMIN_REPERTOIRE_UTIL & Nom & "_" & Prenom & ".HTM") Then
Set TxtStreamEcriture = OBJSCRIPT.CreateTextFile(CHEMIN_REPERTOIRE_UTIL & Nom & "_" & Prenom & ".htm") 'Creation du fichier HTML perso
' Etc ....
' Insertion de l'image
TxtStreamEcriture.Writeline "<BR><a href=""http://www.societe.com""><img src=""" & Nom & "_" & Prenom & "_fichiers/Logo.jpg""</a>"
' Etc ....
End Sub |
Partager