IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

Importer fichier HTML sous vba Access


Sujet :

Access

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité de l'informatique
    Inscrit en
    Février 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité de l'informatique
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Février 2013
    Messages : 4
    Points : 1
    Points
    1
    Par défaut Importer fichier HTML sous vba Access
    Bonjour,

    Je souhaite envoyer un mailing Outlook depuis une base Access qui contient mes adresses mail.
    Pour ce faire, je récupère mon fichier HTML réalisé sous Word 2007, je le copie dans une zone de texte de mon formulaire d'envoi de mail, puis intègre cette copie en tant que corps de message (body) Outlook.
    Problème, les caractères accentués ne sont pas traités correctement.
    Pour plus de clarté, voici le code que j'utilise pour remplir ma zone de texte:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
        Dim strFile As String
        Dim FreeCanal As Integer
        FreeCanal = FreeFile
     
    ' le nom de fichier à lire est donné par une zone de texte saisie par l'utilisateur
     
        Open  Nom_Fichier.Value For Binary As #FreeCanal
        strFile = String$(LOF(FreeCanal), Chr$(0))
        Get #FreeCanal, , strFile
        Close #FreeCanal
        Texte_Message.Value = strFile
    Le résultat obtenu est le suivant:
    Avez-vous pensé à vos vacances d'hiver ? au lieu de ... pensé à....

    Si quelqu'un peut me fournir une solution, je suis preneur.
    Merci d'avance.

  2. #2
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 594
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 594
    Points : 282 192
    Points
    282 192
    Par défaut
    Bonjour et bienvenue sur le forum,

    Va voir dans la FAQ : http://access.developpez.com/faq/?pa...look#mail_html
    SVP ne m'envoyez pas de messages privés pour poser des questions techniques, vous n'aurez pas de réponse !

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité de l'informatique
    Inscrit en
    Février 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité de l'informatique
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Février 2013
    Messages : 4
    Points : 1
    Points
    1
    Par défaut Importer fichier HTML par VBA Access
    Bonjour et merci pour la rapidité à répondre.
    Malheureusement, j'ai déjà essayé cette solution, mais sans résultat. Le problème que je rencontre est à la lecture du fichier HTML, ouvert en mode binaire et lu séquentiellement par vba Access.

    Fichier HTML source:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    106
    107
    108
    109
    110
    111
    112
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <HTML><HEAD><TITLE></TITLE>
    <META content="text/html; charset=iso-8859-15" http-equiv=Content-Type>
    <META name=GENERATOR content="MSHTML 9.00.8112.16448"></HEAD>
    <BODY link=#0000b0>
    <DIV style="FONT-FAMILY: arial; COLOR: #000000; FONT-SIZE: xx-small" 
    align=center>Si ce message ne s'affiche pas correctement, <A 
    href="http://www.cvalpes.fr/pub/test/test.html">cliquez 
    ici</A></DIV>
    <STYLE type=text/css><!--
    body,td,th {
    	font-family: Arial, Helvetica, sans-serif;
    	color: #FF6600;
    }
    a:link {
    	color: #808080;
    }
    a:visited {
    	color: #808080;
    }
    a:hover {
    	color: #FF6600;
    }
    a:active {
    	color: #808080;
    }
    .numero_bn {
    	color: #FF6600;
    	font-size: 14px;
    	font-weight: bold;
    }
    .mois_bn {
    	color: #000000;
    	font-size: 14px;
    	font-weight: bold;
    }
    .annee_bn {
    	color: #FFFFFF;
    	font-size: 14px;
    	font-weight: bold;
    }
    .corps_article {
    	color: #000000;
    	font-size: 11px;
    }
    .titre_sommaire {
    	font-size: 13px;
    	color: #000000;
    }
    .mentions_legales {color: #000000; font-size: 9px; }
    .pave_contact {color: #000000; font-size: 12px; font-weight: bold; }
    font-size: 11px
    .Style47 {color: #FF6600; font-size: 16px; font-weight: bold; }
    .titre_article {font-size: 22px}
    .sous_titre_article {color: #FF6600; font-size: 16px; font-weight: bold; }
    .point_invisible {color: #FFFFFF}
    .mois_bn {
    	color: #FFFFFF;
    }
    .mois_bn {
    	color: #000;
    }
    .texte_orange {
    	color: #FF6600;
    }
    .corps_article1 {	color: #000;
    	font-size: 11px;
    }
    .titre_sommaire1 {	font-size: 12px;
    	color: #000000;
    }
    .corps_article11 {
    	color: #000000;
    	font-size: 11px;
    	font-weight: normal;
    }
    .titre_sommaire11 {font-size: 13px;
    	color: #000000;
    }
    --></STYLE>
     
    <P><A name=haut></A></P>
    <TABLE 
    style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; WIDTH: 662px; HEIGHT: 102px; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px solid" 
    cellSpacing=2 cellPadding=10 width=662 background="" bgColor=#ffffff 
    align=center height=102 cols=2>
      <TBODY>
      <TR vAlign=top>
        <TD width="34%">&nbsp;<IMG style="WIDTH: 215px; HEIGHT: 72px" border=0 
          src="http://www.cvalpes.fr/pub/test/MMNImages/Logo.jpg" 
          width=215 height=83></TD>
        <TD width="63%">
          <P><FONT color=#000000 size=5><U>GAP 2013</U></FONT></P>
          <P align=right><EM><FONT color=#0000c0>Lettre de Nouvelle du 1er trimestre 
          2013</FONT></EM></P></TD></TR></TBODY></TABLE>
    <TABLE style="WIDTH: 624px" border=0 cellSpacing=0 cellPadding=0 align=center>
      <TBODY>
      <TR>
        <TD><IMG border=0 align=left 
          src="http://www.cvalpes.fr/pub/test/MMNImages/banniere_3.png" 
          width=651 height=184></TD></TR></TBODY></TABLE>
    <TABLE style="WIDTH: 624px" border=0 cellSpacing=10 cellPadding=0 
      align=center><TBODY></TBODY></TABLE>
    <TABLE style="WIDTH: 624px" border=0 cellSpacing=10 cellPadding=0 
      align=center><TBODY></TBODY></TABLE>
    <TABLE style="WIDTH: 624px" border=0 cellSpacing=0 cellPadding=0 align=center>
      <TBODY>
      <TR>
        <TD height=62 vAlign=top align=center>
          <P align=center><FONT size=2 face=Arial><FONT color=#000000><FONT 
          size=5>Avez-vous pensé à vos vacances d'hiver ?</FONT><BR>Agé de 6 à 70 
          ans,
    Résultat: la différence est visible sur les dernières lignes, sans compter les 3 signes cabalistiques disposés en tête de message

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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
    106
    107
    108
    109
    110
    111
    112
    113
     
    <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
    <HTML><HEAD><TITLE></TITLE>
    <META content="text/html; charset=iso-8859-15" http-equiv=Content-Type>
    <META name=GENERATOR content="MSHTML 9.00.8112.16448"></HEAD>
    <BODY link=#0000b0>
    <DIV style="FONT-FAMILY: arial; COLOR: #000000; FONT-SIZE: xx-small" 
    align=center>Si ce message ne s'affiche pas correctement, <A 
    href="http://www.cvalpes.fr/pub/test/test.html">cliquez 
    ici</A></DIV>
    <STYLE type=text/css><!--
    body,td,th {
    	font-family: Arial, Helvetica, sans-serif;
    	color: #FF6600;
    }
    a:link {
    	color: #808080;
    }
    a:visited {
    	color: #808080;
    }
    a:hover {
    	color: #FF6600;
    }
    a:active {
    	color: #808080;
    }
    .numero_bn {
    	color: #FF6600;
    	font-size: 14px;
    	font-weight: bold;
    }
    .mois_bn {
    	color: #000000;
    	font-size: 14px;
    	font-weight: bold;
    }
    .annee_bn {
    	color: #FFFFFF;
    	font-size: 14px;
    	font-weight: bold;
    }
    .corps_article {
    	color: #000000;
    	font-size: 11px;
    }
    .titre_sommaire {
    	font-size: 13px;
    	color: #000000;
    }
    .mentions_legales {color: #000000; font-size: 9px; }
    .pave_contact {color: #000000; font-size: 12px; font-weight: bold; }
    font-size: 11px
    .Style47 {color: #FF6600; font-size: 16px; font-weight: bold; }
    .titre_article {font-size: 22px}
    .sous_titre_article {color: #FF6600; font-size: 16px; font-weight: bold; }
    .point_invisible {color: #FFFFFF}
    .mois_bn {
    	color: #FFFFFF;
    }
    .mois_bn {
    	color: #000;
    }
    .texte_orange {
    	color: #FF6600;
    }
    .corps_article1 {	color: #000;
    	font-size: 11px;
    }
    .titre_sommaire1 {	font-size: 12px;
    	color: #000000;
    }
    .corps_article11 {
    	color: #000000;
    	font-size: 11px;
    	font-weight: normal;
    }
    .titre_sommaire11 {font-size: 13px;
    	color: #000000;
    }
    --></STYLE>
     
    <P><A name=haut></A></P>
    <TABLE 
    style="BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; WIDTH: 662px; HEIGHT: 102px; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px solid" 
    cellSpacing=2 cellPadding=10 width=662 background="" bgColor=#ffffff 
    align=center height=102 cols=2>
      <TBODY>
      <TR vAlign=top>
        <TD width="34%">&nbsp;<IMG style="WIDTH: 215px; HEIGHT: 72px" border=0 
          src="http://www.cvalpes.fr/pub/test/MMNImages/Logo.jpg" 
          width=215 height=83></TD>
        <TD width="63%">
          <P><FONT color=#000000 size=5><U>GAP 2013</U></FONT></P>
          <P align=right><EM><FONT color=#0000c0>Lettre de Nouvelle du 1er trimestre 
          2013</FONT></EM></P></TD></TR></TBODY></TABLE>
    <TABLE style="WIDTH: 624px" border=0 cellSpacing=0 cellPadding=0 align=center>
      <TBODY>
      <TR>
        <TD><IMG border=0 align=left 
          src="http://www.cvalpes.fr/pub/test/MMNImages/banniere_3.png" 
          width=651 height=184></TD></TR></TBODY></TABLE>
    <TABLE style="WIDTH: 624px" border=0 cellSpacing=10 cellPadding=0 
      align=center><TBODY></TBODY></TABLE>
    <TABLE style="WIDTH: 624px" border=0 cellSpacing=10 cellPadding=0 
      align=center><TBODY></TBODY></TABLE>
    <TABLE style="WIDTH: 624px" border=0 cellSpacing=0 cellPadding=0 align=center>
      <TBODY>
      <TR>
        <TD height=62 vAlign=top align=center>
          <P align=center><FONT size=2 face=Arial><FONT color=#000000><FONT 
          size=5>Avez-vous pensé à vos vacances d'hiver ?</FONT><BR>Agé de 6 Ã* 70 
          ans,
    J'ai conservé toutes les descriptions HTML d'entête, même si à priori elles ne servent à rien dans le problème qui me préoccupe.
    Faut-il que j'envisage de sonder le texte du fichier pour transposer un à un les caractères spéciaux sur leur valeur hexadécimale ou bien puis-je trouver une méthode plus simple et plus sûre.

    Merci encore pour la collaboration.

  4. #4
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 594
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 594
    Points : 282 192
    Points
    282 192
    Par défaut
    Désolé de ne pouvoir te répondre : tes questions dépassent mon niveau de compétence.

    J'espère que quelqu'un d'autre prendra le relais.
    SVP ne m'envoyez pas de messages privés pour poser des questions techniques, vous n'aurez pas de réponse !

  5. #5
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité de l'informatique
    Inscrit en
    Février 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité de l'informatique
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Février 2013
    Messages : 4
    Points : 1
    Points
    1
    Par défaut Importer fichier HTML par VBA Access
    Merci quand même.
    Si je trouve l'origine du problème, je posterai "ma solution".

  6. #6
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 594
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 594
    Points : 282 192
    Points
    282 192
    Par défaut
    SVP ne m'envoyez pas de messages privés pour poser des questions techniques, vous n'aurez pas de réponse !

  7. #7
    Nouveau Candidat au Club
    Homme Profil pro
    Retraité de l'informatique
    Inscrit en
    Février 2013
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Alpes de Haute Provence (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Retraité de l'informatique
    Secteur : Associations - ONG

    Informations forums :
    Inscription : Février 2013
    Messages : 4
    Points : 1
    Points
    1
    Par défaut Importer fichier HTML par VBA Access
    Euréka, j'ai trouvé. Je sais, ce n'est pas de moi.
    Les éditeurs de messagerie travaillent quasiment tous en codage de caractères utf-8.
    Pour éviter les problèmes de codification, dans mon cas, j'ai procédé de la façon suivante:
    1 - création du fichier HTML sous Word.
    2 - sauvegarder en forçant l'enregistrement du fichier en utf-8, y compris en cochant la case enregistrer toujours au format par défaut.

    Conclusion, mon fichier, envoyé par Outlook, arrive dans de très bonne conditions dans une messagerie. avec quelques soucis d'alignement avec le mailer SFR.
    Mais solution globalement satisfaisante.

  8. #8
    Rédacteur/Modérateur

    Avatar de ClaudeLELOUP
    Homme Profil pro
    Chercheur de loisirs (ayant trouvé tous les jours !)
    Inscrit en
    Novembre 2006
    Messages
    20 594
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de loisirs (ayant trouvé tous les jours !)
    Secteur : Finance

    Informations forums :
    Inscription : Novembre 2006
    Messages : 20 594
    Points : 282 192
    Points
    282 192
    Par défaut
    Merci pour le retour !

    À ta prochaine Question/Réponse
    SVP ne m'envoyez pas de messages privés pour poser des questions techniques, vous n'aurez pas de réponse !

Discussions similaires

  1. [AC-2007] Importation Automatique sous VBA Access
    Par FramanKalima dans le forum VBA Access
    Réponses: 10
    Dernier message: 20/04/2015, 13h08
  2. Réponses: 0
    Dernier message: 16/06/2014, 20h32
  3. [AC-2003] Importer fichier csv sous access fichier .ini
    Par mmmxtina dans le forum VBA Access
    Réponses: 0
    Dernier message: 21/07/2009, 11h55
  4. Problème importation données HTML sous Access
    Par Willaya dans le forum Access
    Réponses: 0
    Dernier message: 03/04/2008, 00h40
  5. [VBA] pb ouvrir un fichier html sous access
    Par Ludo11 dans le forum VBA Access
    Réponses: 6
    Dernier message: 26/04/2007, 18h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo