Macros excel

Fermé
IRDS -  
Bonjour,
Quel macro je peux utiliser pour pouvoir importer un document word à partir d'un fichier excel
merci d'avance pour votre aide

6 réponses

  1. IRDS
    Merci michel_m pour votre intervention et pour votre aide
    malgré que je n'ai pas encore essayé d'appliquer la macro que vous m'avez indiquée je veux te remercier
    merci à tous et bonne journée
    0
    1. michel_m Contributeur
      bonjour,
      en fait, lrs lignes suivantes
      Dim wordApp As Word.Application
      Dim wordDoc As Word.Document
      demandent que l'on active les références suivantes (par outils-référence de VBE)
      Microsoft Word X.0 object library
      Microsoft Visual Basic For Applications Extensibility Y.Z"."

      Xyz dépendent des versions win et office

      cette procédure-exemple ouvre un xlw.doc situé dans le m^me dossier que le classeur sans avoir à activer les ref ci dessus 

      Dim Cible As Object 
  Dim chemin As String, fichier As String 

  chemin = ActiveWorkbook.Path 
    fichier = "xlw.doc" 

' lancement de Word 
    ' gestion de l'erreur "activeX" 
    On Error Resume Next 
        Set Cible = CreateObject("Word.Application") 
    On Error GoTo 0 
     
    'On est maintenant dans Word 
    With Cible 
         
        .Documents.Open Filename:=chemin & "\" & fichier 
        ' si  la ligne ci-dessous est activée, on voit le boulot en cours (ralentissement) 
        .Visible = True 
         'code éventuel 
    End With


      :-x
      0
      1. IRDS
        Merci Albert pour votre intervention mais j'ai eu un problème en appliquant cette macro
        en fait, ce message s'est affiché "Erreur de compilation
        Type défini par l'utilisateur non défini"
        Aussi, une flèche s'est présenté au début de la première ligne de la macro (sub Fichier_word) et la troisième ligne a été sélectionné en bleu (Dim wordapp as word.application)
        avez vous une solution?
        0
        1. Albert
          Bonjour

          Peut-être ça :

          Sub Fichier_Word()
          FICHIER = Nom complet du fichier .doc avec chemin, entre ""
          Dim wordApp As Word.Application
          Dim wordDoc As Word.Document
          Set wordApp = CreateObject("word.application")
          wordApp.Visible = True
          Set wordDoc = wordApp.Documents.Open(FICHIER)
          End Sub
          0
          2. IRDS
            Merci Zebulon mais ce n'est pas ce que j'ai voulu exactement,
            en fait, je veux à partir d'un fichier excel ouvrir un document word sans passer par la procédure habituelle c.a.d chercher son emplacement et l'ouvrir, je veux en utilisant macro excel ouvrir directement mon document word
            merci d'avance pour votre aide
            0