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

F

Freddy Bee

Guest
Bonjour,

Je cherche a exporter des données de Excel vers Word mais ...

1) j'ai ajouté Microsoft Word 11.0 Object Library aux références dans VBA

2) ensuite dans mon code je créé un objet word

Dim appWrd As Object
Set appWrd = CreateObject("Word.Document")

ET LA .... J'ai un message

Erreur d'execution -2147221231
Erreur Automation
ClassFactory ne peut pas fournir la classe demandée !!!!

ET JE NE COMPRENDS PAS POURQUOI

MERCI DE VOS CONSEILS/ AIDE / REMARQUES
 
bonsoir Freddy Bee

essayes plutot

….
Dim WordApp As Word.Application
Dim WordDoc1 As Word.Document
Set WordApp = CreateObject("Word.Application")'creation session Word
WordApp.Visible = True 'word est affiché pendant l'opération
Set WordDoc1 = WordApp.Documents.Open("C:\mon fichier.doc")'ouverture fichier Word spécifié
….


bonne soirée
MichelXld
 
Bonsoir,

Pour compléter le message la réponse de Michel :
fais une recherche sur ce forum avec les clés suivantes : Excel à Word sur plus de 180 jours. Tu y trouveras de nombreux exemples.
Ce forum, c'est une vraie "mine d'or", ce serait dommage de ne pas l'utiliser pleinement.
Bonne soirée à toutes et tous.
Kotov
 
- 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

  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
917
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
535
Réponses
0
Affichages
738
Retour