Macros excel

Fermé
IRDS -  
 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
  3. 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
  4. 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

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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
  7. 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