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

  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
    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
      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
        2. 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 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