Vba liens hypertexte automatique

Réponse 2 / 7

bin03

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.

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

as-tu essayé l'enregisteur de macros?

Réponse 3 / 7

bin03

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

veux-tu dire qua la macro enregistrée fonctionne bien?
et qu'elle arrête de fonctionner quand tu la modifies?

Réponse 4 / 7

bin03

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

peux-tu montrer le code enregistré au départ, et le code que tu as adapté?
merci de tenir compte de ceci: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

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

Posez votre question

Réponse 5 / 7

bin03

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

Réponse 6 / 7

bin03

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

Réponse 7 / 7

bin03

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

Votre réponse

Discussions similaires