[Résolu] Err définie par l'application ou l'objet en utilisant "PublishObjects.Add"

  • Initiateur de la discussion Initiateur de la discussion seb_sams
  • 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 !

seb_sams

XLDnaute Nouveau
Bonjour à tous,

Je me prends la tête depuis hier en tentant de réutiliser quelque chose que j'ai déjà utilisé.

J'ai un bout de code qui me permettait d'exporter en html une sélection de Excel pour ensuite réutiliser ça dans l'envoi d'un email avec Outlook. Tout ça pour faire une sorte de copier-coller de Excel vers Outlook.

Code:
Sub export_html()
' Procédure pour sélectionner le tableau 1 et faire un export HTML (dans le but de le copier-coller dans l'email)

' Sélection du tableau 1
Dim Tableau_Export As Range
Sheets(1).Select
Set Tableau_Export = Range("Tableau1[#all]")

' Exporte le tableau vers un fichier de type HTML; ceci afin de respecter la mise en page de la plage
Application.ActiveWorkbook.PublishObjects.Add(4, "C:\Temp\Essai.htm", Tableau_Export.Parent.Name, Tableau_Export.Address, 0, "", "").Publish True

Sheets(1).Cells(1, 1).Select

End Sub

Maintenant, quand je déroule mon code, ça bloque sur la ligne:
Code:
Application.ActiveWorkbook.PublishObjects.Add(4, "C:\Temp\Essai.htm", Tableau_Export.Parent.Name, Tableau_Export.Address, 0, "", "").Publish True

Est-ce que quelqu'un aurait déjà rencontré le même problème ou aurait une idée de comment résoudre ça ?

Je remercie d'avance les gens qui vont se pencher sur mon problème.

Sebastien
 
Dernière édition:
Re : Erreur définie par l'application ou par l'objet en utilisant "PublishObjects.Add

Finalement, j'ai (avec un collègue) trouvé la raison de ce problème.

Le classeur dans lequel je tentais de faire fonctionner ce code utilisait le style de référence L1C1.
En désactivant ce style de référence, tout fonctionne bien.
 
- 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

Discussions similaires

Retour