Bonjour,
J'ai continué d'avancer sur le sujet.
J'ai corrigé mes erreurs que j'avais en ajoutant des références à mon projet. Cela me permet de ne plus avoir mes erreurs objet requis, problème de propriétés,...
Néanmoins, après différents tests, avec les codes indiqués ci-dessus, je n'avais plus d'erreurs mais le texte n'était pas remplacé.
Maintenant, cela fonctionne avec ce code :
CurrentMessage.HTMLBody = Replace(CurrentMessage.HTMLBody, "test1", "test2")
Par contre je n'arrive pas a remplacé "test1" par le tableau par exemple.
Voici le code actuel pour coller le tableau
1 2 3
| xlBook.Worksheets("Feuil2").Range("A7:E9").Copy
objSel.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, DisplayAsIcon:=False |
J'aimerai pouvoir mettre la commande "objSel.PasteSpecial..." pour coller le tableau en variable afin de l'utiliser ensuite dans la première commande citée (test2 serait une variable).
Pour l'instant je bloque.
Oliv-, avez-vous une astuce pour ça ?
Je ne trouve rien sur ce sujet.
Merci
Partager