Excel VBA: Cliquer sur un hyperlien

Jakematteau Messages postés 4 Statut Membre -  
lermite222 Messages postés 9042 Statut Contributeur -
Bonjour, J'ai un petit souci en VBA, je ne suis pas vraiment habitué.

J'ai créé une macro qui est sensé faire ceci:

1-créé un hyperlien en indiquant l'emplacement de ce fichier excel (fonctionne parfaitement)
2-cliquer sur cet hyperlien pour ouvrir le dossier contenant ce fichier excel (problème)

Voici la macro:

Sub Macro5()
'
' Macro5 Macro
'

'
Range("A9").Select
ActiveCell.FormulaR1C1 = _
"=HYPERLINK(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1),(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1)))"
Range("A9").Select

End Sub

VBA semble incapable de cliquer sur un lien hypertexte s'il n'est pas fixe (écrit à la main et non à partir d'une formule)

Et comme vous devez vous en douter, je ne peux avoir une adresse fixe. en fait ce fichier excel sera copié dans 23000 dossier différent pour une compatibilité avec un système MRP.

Merci d'avance pour votre aide!!

5 réponses

  1.
    lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    ?? je ne comprend pas ce que tu veux faire, explique (sans formule) ce que tu veux faire exactement
    A+
    0
  2. Jakematteau Messages postés 4 Statut Membre
     
    Salut! je veux créer une VBA qui

    1- créé un hyperlien indiquant l'emplacement de ce même fichier excel (exemple: C:\Documents and Settings\Proprietaire\Bureau\classeur.xlsm)

    2- clique sur l'hyperlien pour ouvrir l'emplacement indiqué (C'est cette partie qui ne fonctionne pas)

    J'espère que c'est un peu plus clair!

    Merci!
    0
  3. Jakematteau Messages postés 4 Statut Membre
     
    Mais je crois avoir compris que mon seul problème, c'est que ma dernière commander va cliquer seulement sur la cellule, et non sur le lien hypertexte qu'il y à l'intérieur! comment faire?
    0
    1. chossette9 Messages postés 6855 Date d'inscription   Statut Contributeur Dernière intervention   1 313
       
      Bonjour,

      j'ai essayer de faire une macro pourrie avec l'enregistreur de macro. J'ai créer un lien hypertexte. Puis lancé l'enregistreur, cliqué sur le lien, et arrêté l'enregistrement.

      Je me suis retrouvé avec ceci : 
      Range("C9").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True


      A voir comment il faut l'adapter pour que ça marche pour vous.

      Cordialement.
      0
  4. Jakematteau Messages postés 4 Statut Membre
     
    Merci pour ta réponse. Ton raisonnement est très logique. Sauf qu'il ne fonctionne pas dans ma situation. Peut-être qu'il y a seulement seulement une petite adaptation que je ne connais pas. Voici la macro modifié:

    Sub Macro11()
    '
    ' Macro11 Macro
    '

    '
    Range("A18").Select
    ActiveCell.FormulaR1C1 = _
    "=HYPERLINK(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1),(LEFT(CELL(""nomfichier""),FIND(""["",CELL(""nomfichier""),1)-1)))"
    Range("A18").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    End Sub

    Merci!
    0

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

    Posez votre question
  6. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Créer un nouveau lien
    Address -> le chemin complet et nom complet du fichier à atteindre
    TextToDisplay -> Ce qui sera écrit dans la cellule 
        ActiveSheet.Hyperlinks.Add Anchor:=Range("A3"), Address:= _
        "C:\Test\Test.txt", TextToDisplay:="Test.txt"

    Sais pas si c'est vraiment ça que tu veux.
    A+
    0