Creation d'une macro

Résolu
Bonjour,

J'ai un problème avec excel.

Sur une feuille, j'ai deux listes à choix multiple. Une première qui définie un lieu et une autre qui définie une action à faire sur ce lieu.

J'ai créé un bouton auquel j'aimerais associer une macro qui ouvrirai une autre feuille excel d'un autre classeur en fonction des deux résultats sélectionnés.

Exemple:

lieu : coignieres

à faire : tableau de bord

Je clique sur le bouton et je me retrouve sur la feuille excel "tableau de bord" de "coignieres"

Voilà merci d'avance pour votre aide ;)



--
Et une de plus en moins ;)

7 réponses

  • Votes
  • Date
  • Date décroissante
  1. si j'ai bien compris tu veux faire un lien vers le fichier source.....
    Donc voila tu vas dans le menu insertion et tu met lien hypertexte et tu choisi ton fichier ...

    j'éspere que je t'ai été utile
    1. Merci bigfoot mais ce n'est pas vraiment ça.
      Cette fonction je la connais et elle est très pratique dans le cas où l'on souhaite créer un racourci vers un autre classeur/feuille excel à partir d'un seul choix.
      Mais dans mon cas je renvoie à un classeur/feuille excel en fonction de 2 résultats différant donnés par l'utilisateur.
      En fait l'utilisateur fait un premier choix dans une liste, puis un second dans une autre liste, et en fonction de ces 2 choix, excel ouvre le bon classeur.
      1. ok pijaku le voici

        https://www.cjoint.com/?izljTOvoV3

        Merci d'avance
        1. Modérateur
          Alors, il s'agit d'ouvrir le fichier excel dont le nom est contenu en D9 et d'activer la feuille dont le nom est contenu en H9. C'est bien cela?
          Attention a ne pas appeler votre macro OK, c'est un nom ambigü.
          Ce code suppose que vos classeurs y compris celui contenant la macro soient tous dans le même répertoire. Si ce n'est pas le cas, remplacez : ActiveWorkbook.Path (en gras dans le code ci dessous) par le chemin d'accès au répertoire entre guillemets. Exemple : "C:\Mes Documents\travail"
          Sub bouton()
          Dim classeur, feuille, chemin As String
          classeur = Range("D9").Value
          feuille = Range("H9").Value
          If classeur = "" Or feuille = "" Then
          MsgBox "vous devez faire votre choix dans les 2 listes déroulantes"
          Exit Sub
          End If
          chemin = ActiveWorkbook.Path & "\" & classeur & ".xls"
          Workbooks.Open chemin
          Sheets(feuille).Activate
          End Sub
      2. Merci pijaku
        ça correspond parfaitement à ce que souhaite même plus (le coup de la msgbox j'y avais pas pensé ;))
        il ne me reste plus qu'a peaufiner tout cela
        encore merci
        1. Je pense qu'il doit y avoir omission du terme "feuille" dans cette ligne non ?

          chemin = ActiveWorkbook.Path & "\" & classeur & ".xls"
          1. Modérateur
            Non. Dans cette ligne, j'attribue à la variable "chemin" le chemin d'accès complet + le nom du fichier + l'extension...
            La variable feuille ne sert qu'une fois le classeur ouvert à activer la feuille concernée...
          2. exacte ;)
            je l'ai mis à ma sauce et ça donne ceci:
            chemin = ActiveWorkbook.Path & "\" & classeur & "\" & feuille & ".xls"
            et ça marche très bien
            encore merci à toi tu m'as sorti d'une bien mauvaise passe.
            je te met +1