XL 2019 Exporter des données Excel vers Word

KHEROUBI

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

Pièces jointes

  • Entreprise.xlsm
    18 KB · Affichages: 11
  • evaluation.docx
    25.1 KB · Affichages: 12

Dudu2

XLDnaute Barbatruc
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:
VB:
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/
 
Dernière édition:

Dudu2

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

1632911657897.png
 

job75

XLDnaute Barbatruc
Bonjour KHEROUBI, Dudu2;

Avec la feuille Excel Modèle ce n'est pas compliqué :
VB:
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+
 

Pièces jointes

  • Entreprise(1).xlsm
    22.3 KB · Affichages: 22

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 846
dernier inscrit
Silhabib