Créer un document Word subordonné à un Excel

Résolu
matt0592 Messages postés 69 Statut Membre -  
skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

J'aimerais créer la commande suivante sous Excel : en cliquant sur un bouton (par exemple, onglet développeur, insérer un bouton de commande ActiveX), on soit directement renvoyé à un document Word. En fait, dans mon excel, j'ai des descriptions de différents systèmes, et chaque système a une notice d'utilisation qui elle a été écrite sous Word.

Du coup, il s'agirait de pouvoir ouvrir le word qui va bien directement en cliquant sur le bouton de l'excel...

Quelqu'un pourrait-il m'indiquer le code VBA à écrire pour le bouton ?

D'avance merci

4 réponses

  1. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     
    Bonjour

    Dans ce cas il suffit de mettre dans la macro associée au bouton le code suivant :
    ThisWorkbook.FollowHyperlink "C:\Users\Documents\lenomdufichier.pdf"

    En remplaçant les indications entre guillemets par le chemin complet de ton fichier

    Cdlmnt

    "L'imagination est plus importante que le savoir." A. Einstein
    1
    1. matt0592 Messages postés 69 Statut Membre
       
      ok merci pour cette solution

      peux tu juste me dire comment faire pour afficher le chemin complet de mon fichier ?? je ne trouve pas... (oui je me sens un peu bête là...)
      0
    2. matt0592 Messages postés 69 Statut Membre
       
      c'est bon, j'ai trouvé. Merci beaucoup pour ton aide. Je mets le sujet en résolu

      Cordialement
      0
  2. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
     
    Bonjour

    Trouvé sur excellabo.net : (http://www.excelabo.net/excel/word_ou_pdf)

    Dim appWD As Word.Application
     Set appWD = CreateObject("Word.Application") ' un objet
     word est créé
     appWD.Documents.Open Filename:="C:\......\x.doc"
     ....
     appWD.Quit ' je quitte Word


    EDIT

    Je m'excuse j'ai été trop vite :) Vous voulez ouvrir un document déjà existant ?

    EDIT

    Parfois il suffis de chercher un peu... (https://forums.commentcamarche.net/forum/affich-24857938-comment-ouvrir-un-document-word-via-vba

    Sub Word()
    Dim strFichier As String
    Dim objWord As New Word.Application
    
    strFichier = "C:\Documents\MonFichier.doc"
    
    ' ouvrir un document Word
    objWord.Documents.Open strFichier
    ' rendre Word visible
    objWord.Visible = True
    
    ' ton code
    
    ' fermer le document
    objWord.Documents(1).Close
    ' quitter l'application Word
    objWord.Quit
    
    ' libérer la mémoire
    Set objWord = Nothing
    End Sub 
    0
  3. matt0592 Messages postés 69 Statut Membre
     
    mmm ok, mais où faut-il rentrer ce code ? dans la macro liée au bouton ? et pourquoi y a t-il des instructions "fermer le document" "quitter l'application word" etc... ? tout ce que je veux, c'est ouvrir un word pour le consulter (ou d'ailleurs, j'y pense, ouvrir un pdf conviendrait très bien aussi... )
    0
  4. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
     
    C'est un code Général :) il va falloir l'adapter.

    Si vous voulez je peux vous aider.

    Si je comprend bien il y a un document excel qui ouvres divers documents word en fonction des besoins de l'utilisateur ?
    0
    1. matt0592 Messages postés 69 Statut Membre
       
      J'apprécierais un peu d'aide oui :)
      en gros, mon excel présente différents systèmes (un système par feuille), et pour chaque système, j'ai écrit une notice d'utilisation (sous word, convertible en pdf). Et donc l'idée était qu'en cliquant sur un bouton de la feuille excel, la notice (word ou pdf), soit directement ouverte (sachant que l'utilisateur n'agir pas sur cette notice, il ne fait que la lire et la ferme quand il a fini, pour revenir à l'excel).

      Est-ce plus clair ?
      0
    2. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
       
      Oui

      Alors ce qu'on peut faire c'est une barre d'outils avec un bouton "lire la notice"

      Quand la personne clique sur ce bouton alors en fonction de la page, excel ouvrira le bon document word en lecture seule. Mais pour cela il faut que les fichier words soient stocker dans emplacement (surement réseau) ou les utilisateurs du fichier Excel aient accès.

      Est-ce que cela te conviendrai ?
      0
    3. matt0592 Messages postés 69 Statut Membre
       
      oui ça me conviendrait. les fichiers words sont stockés au même endroit que l'excel (mes documents...) donc ça ne devrait pas poser de problème d'accessibilité je pense...
      0
    4. matt0592 Messages postés 69 Statut Membre
       
      et sinon, juste pour savoir : mettre un bouton non pas dans une barre d'outils, mais simplement sur une cellule excel (genre A1), ça ne serait pas possible ??
      0
    5. skk201 Messages postés 942 Date d'inscription   Statut Membre Dernière intervention   55
       
      L'avantage c'est que avec une barre d'outils tu fais un bouton qui donne pour tous et tu peux ajouter des pages à l'infini.

      Avec un bouton sur la cellule A1 ça fait 1 bouton par page, donc beaucoup de bouton.

      En plus avec la méthode de Via55 (que je salue) ça sera encore plus simple !
      0