Vba liens hypertexte automatique

Réponse 2 / 7

bin03
29 nov. 2021 à 16:14

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 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
29 nov. 2021 à 17:14

as-tu essayé l'enregisteur de macros?

Réponse 3 / 7

bin03
30 nov. 2021 à 10:33

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 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
30 nov. 2021 à 14:08

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
30 nov. 2021 à 16:14

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 22730 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 26 avril 2024 1 477
30 nov. 2021 à 16:20

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
Modifié le 1 déc. 2021 à 08:21

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
1 déc. 2021 à 08:21

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
1 déc. 2021 à 08:27

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