Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

[résolu] Insertion fichier html en tant que texte

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Nicko29
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

Nicko29

Guest
Bonjour,

Quelle est la syntaxe VBA pour remplacer l'action manuel d'insérer un fichier en html en tant que texte dans nouvel email outlook 2010 ?

Je m'explique, je suis passé par le code ci-dessous mais les caractères spéciaux sont mal affiché alors que manuellement il le sont correctement.

Code: 
f = FSo.GetFile(NomFichierHTML).OpenAsTextStream.ReadAll
        .BodyFormat = olFormatHTML
        .HTMLBody = f

exemple de mauvais conversion : le é s'affiche :é , le € s'affiche: € , le ' s'affiche: ’

Merci par avance, j'ai parcouru le net, mais je seche .

Nico
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Insertion fichier html en tant que texte

Bien, j'ai la solution, La fonction" FSo.GetFile(NomFichierHTML).OpenAsTextStream.ReadAll" ne sait pas lire correctement les caractères accentués.

La solution est de remplacer :

Code: 
f = FSo.GetFile(NomFichierHTML).OpenAsTextStream.ReadAll

Par

Code: 
Dim adoStream
Set adoStream = CreateObject("Adodb.Stream")
adoStream.Open
adoStream.Charset = "UTF-8"
adoStream.LoadFromFile NomFichierHTML
'********** !! ***************
f = adoStream.ReadText(-1)
'********** !! ***************
adoStream.Close
Set adoStream = Nothing

Et c'est résolu !😀
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Résolu(e)
Microsoft 365 Comment enregistrer chaque ligne en tant que fichier texte dans Excel?
2
Réponses
24
Affichages
1 K
TooFatBoy
  • Question Question
XL 2013 Formule collée en tant que texte dans un code
Réponses
10
Affichages
1 K
luke3300
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…