vba liens hypertexte automatique

Question

Bonjour, 
je cherche a créé un lien hyper texte en VBA mais j'ai quelque difficulté.
J'ai deux colonnes une pour les pièces l'autre pour les assemblages dans c'est colonnes je rentre mes réf et je voudrais que ma cellule cherche les plans pdf dans mes dossier  et créé automatique un liens hypertexte pour ouvrire les PDF correspondant.   


Configuration: Windows / Chrome 96.0.4664.45

yg_be · Answer

bonjour,
qu'as-tu essayé, qu'obtiens-tu?

bin03 · Answer

J'ai essayer avec des liens hypertexte en formule je rentre le liens j'essais de remplacer l'objet rechercher par mes cellule qui contienne la réf de la pièce cela ne fonctionne pas. De plus j'ai plusieurs réf de pièce dans la même cellule qui sont séparer par des ;  et dans la cellule des liens hypertexte il faudrait qu'il soit sou forme de liste. Je suis débutant
 en VBA j'ai essayer de commencer en fessant une macro mais je ne sait pas par ou commencer.

bin03 · Answer

oui mais si je change la ref de ma pièce et que je crée plan PDF du même nom il ne me le retrouve pas

bin03 · Answer

en gros elle marche pour la la pièce exemple dans la macro mais pas pour la cellule si je modifie la réf de la pièce il ne me garde l'ancien liens hyper texte

bin03 · Answer

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("J8").Select
    ActiveCell.FormulaR1C1 = "00-P16426-BHL"
    Range("L8").Select
    Application.CommandBars("XML Source").Visible = False
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "search-ms:displayname=Résultats%20de%20la%20recherche%20dans%20000_PLANS%20CAO&crumb=nomdefichier%3A~%3c00-P16426-BHL.pdf%20OU%20System.Generic.String%3A00-P16426-BHL.pdf&crumb=location:H%3A%5CBE%5C000_PLANS%20CAO" _
        , TextToDisplay:= _
        "search-ms:displayname=Résultats%20de%20la%20recherche%20dans%20000_PLANS%20CAO&crumb=nomdefichier%3A~%3c00-P16426-BHL.pdf%20OU%20System.Generic.String%3A00-P16426-BHL.pdf&crumb=location:H%3A%5CBE%5C000_PLANS%20CAO"
    Range("L8").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

bin03 · Answer

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("J8").Select
    ActiveCell.FormulaR1C1 = Range("J8k8")
    Range("L8").Select
    Application.CommandBars("XML Source").Visible = False
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "search-ms:displayname=Résultats%20de%20la%20recherche%20dans%20000_PLANS%20CAO&crumb=nomdefichier%3A~%3c Range("J8k8").pdf%20OU%20System.Generic.String%3A00-P16426-BHL.pdf&crumb=location:H%3A%5CBE%5C000_PLANS%20CAO" _
        , TextToDisplay:= _
        "search-ms:displayname=Résultats%20de%20la%20recherche%20dans%20000_PLANS%20CAO&crumb=nomdefichier%3A~%3c Range("J8k8").pdf%20OU%20System.Generic.String%3A00-P16426-BHL.pdf&crumb=location:H%3A%5CBE%5C000_PLANS%20CAO"
    Range("L8").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End Sub

bin03 · Answer

voici la macro de base et voici la nouvelle mais je n'arrivé pas à intégrer dans ma mon liens qu'il doit prendre comme nom de recherche se que contiens la cellule j8 et k8. l'idéale serais que dans la cellule j8 et k8 je rentre toute mes pièces modifier sous forme de liste et que automatiquement il me sorte les liens hypertexte sous forme de liste dans la cellule l8. J'ai commencer le VBA que depuis vendredi je sais faire que des chose basic comme crée un formulaire, des fenêtres avec des indication et des boutons.

Vba liens hypertexte automatique

7 réponses

Discussions similaires

Newsletters