XL 2019 Exporter des données Excel vers Word

[KHEROUBI]

Bonjour
Je veux exporter des données Excel vers Word mais un message d'erreur m'affiche. Pourriez m'aider sur ce sujet .
Merci

 

[Dudu2]

Bonjour,

mais un message d'erreur m'affiche.

M'affiche quoi ? C'est quoi ton problème ?

Voilà un code pour ouvrir un fichier Word:

Sub a()
  Dim objWord As Object
  Dim objDoc As Object
  Set objWord = CreateObject("Word.Application")
  'Set objDoc = objWord.Documents.Add
  Set objDoc = objWord.Documents.Open("H:\Téléchargements\evaluation.docx")
  objWord.Visible = True
End Sub

Pour beaucoup plus d'info voir -> https://www.developpez.net/forums/d...ffice/word/vba-word/reference-microsoft-word/

 

[KHEROUBI]

Bonjour Dudu2
le message d'erreur est "Erreur de compilation : type défini par l'utilisateur non défini"
sur
Dim WordApp As New Word.Application

 

[Dudu2]

Projet VBA / Outils / References / Microsoft Word 16.0 Object Library

 

[KHEROUBI]

Rebonjour,
es ce que c'est faisable de mettre comme ci
Dim WordApp As New Word.Application, WordDoc As Word.Document
Dim ctrl As word.ContentControl
Merci

 

[job75]

Bonjour KHEROUBI, Dudu2;

Avec la feuille Excel Modèle ce n'est pas compliqué :

Sub Diagnostic_Evaluation_PAF()
    
    '// Défintion variable
    Dim Wapp As Object, Wdoc As Object
    
    '// création du document Word
    On Error Resume Next
    Set Wapp = GetObject("Word.Application")
    If Err Then Set Wapp = CreateObject("Word.Application")
    On Error GoTo 0
    Wapp.Visible = True
    Set Wdoc = Wapp.Documents.Add
    
    '// remplissage du document avec la feuille Modèle
    Feuil2.UsedRange.Copy
    Wdoc.Content.Paste
    Application.CutCopyMode = 0
    Wdoc.PageSetup.LeftMargin = 150 'à adapter
 
    '// Sauvegarde du document
    Wdoc.SaveAs ThisWorkbook.Path & "\Diagnostic et Evaluation " & Feuil1.[C3] & ".docx"
    
    '// Fermeture du document et application Word
    Wdoc.Close False
    Wapp.Quit
    
    MsgBox "Exportation Word effectuée"
 
End Sub

A+

 

[KHEROUBI]

Bonjour Dudu2 et Job75
Je m'excuse pour ce retard tout en remerciant pour vos solutions que vous m'avez apporté. Ca marche bien.