Bonjour,
A partir de Windev je génère un fichier Excel avec dans une colonne les adresses Internet. Or je voudrais, soit remplacer ces adresses (texte) par des liens auquels j'accéderait via Excel (LanceAppliAssociée()). Soit, si cela s'avère plus facilement envisageable, créer ces liens à partir des adresses texte.
J'ai essayé à partir d'une macro générée dans Excel, exemple :
Range("E5").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.leroymerlin.fr/v3/p/produits/ampoule-vintage-rustika-flamme-incandescente-e-14-e1400102999? queryredirect=a_fp_ampoule_vintage_rustika_flamme_incandescente__e_14&numpage=1" _
, TextToDisplay:= _
"http://www.leroymerlin.fr/v3/p/produits/ampoule-vintage-rustika-flamme-incandescente-e-14-e1400102999?queryredirect=a_fp_ampoule_vintage_rustika_flamme_incandescente__e_14&numpage=1"
--------------------------------------------------------------
que j'ai traduit après déclaration de l'objet en :
oadClasseur>>Range("E5")>>Select
oadClasseur>>ActiveSheet>>Hyperlinks>>Add... (je ne mets pas la suite qui ne fonctionne pas)
--------------------------------------------------------------
Donc, si quelqu'un a déjà été confronté au problème et l'a résolu... merci d'avance de me montrer un exemple de code.
Cordialement.
Michel
Partager