Ouvir un lien
C
Bonjour le forum,
Je souhaite avoir un code pour ouvrir le lien ci dessous, étant donné sa longueur je n'y arrive pas, merci pour votre aide.
http://opms.dhl.com/opms/report/pudStop/index.jsp?guiStatusGZ=z40-f5dQonlP87xJr6Uyq70WbTsKoCBBoSZApOQNc39CszV6hl9vfnoRgjxklB1VdPACeQZ3h5lcd5xdgAt9qOMPiM0001232456789a5bc22deffggghi45jak55lmnkhnkf5lck83filn4jfo4j123245pqhrhrb6qel4ikbc22deffggghi45jak55lmnkhnkf5lck83filn4jfl4ikpshrhrb6qen8bc22deffggghi45jak55lmnkhnkf5lck83filn4jfnj88k35pqhrhrb6qetbc22deffggghi45jak55lmnkhnkf5lck83filn4jftj92kupqhrhrb6qeo4j123245bc22deffggghi45jak55lmnkhnkf5lck83filn4jfo4j123245pqhrhrbv0tewj92kuv0tex7duk55jma6iyktb2j8kzi3anb6mdbAb6B394kbqCbv0v0teDan6jnbdkujmnb6n32kwum8bsrqEpqspqsb6n32kFmbsrqEpqspqsb6j5G39jnb2u4kb6ilnHm52tj7bilnx8d2Ibv0J6EbnIb6KbLo2MAb6qrbsrqEpqspqsbv0v0J6EbnIb6KbL92MAb6qrbsrqEpqspqsbv0v0v0teNu6qsbum42kzlIl9kbv0J6Ebum42kzlIl9kb6KbAb6qrbObv0v0v0qJ6ilnPj8ka5jmabHQPRml32jmab6ilnyknj5d93IbqSbv0qqv0J6Ebd4nzl2uzlmnkb6KbAb6qrbRQb6l3d2jmabRQTxUVNQyWbv0v0v0v0v0o4j123245ePj8ka5jma6Ebd4nz9ml32jmab6KbAb6qrblm4a2uIb6srbOm4a2uIbv0v0o4j123245ex7d3anU492j6qEbHQPRml32jmab6qrbt395kbv0v0l4ikeR3Im426l4ikXnbl4ikbv0l4ikePj8ka5jma5v0l4ikeymg5v0n8eRkBk9ykt62m239b2u3j9jaob6srbHQP6ym42kb6ukn4lknb2u4kb65lmdkbd4nVmmYZd4n1cjdZd4n12mdb6Ebum42kzjnbfv0v0l4ikeOm948a5v0sJ6sEb2u3j9jaob6srbFj8ki3an6ja6Uja42k5b6Eb2j8kzi3anbfv0v0v0l4ikeUk354uk5v0l4ikeD99Pj85v0n8eUk354ukykt6qsyktbd4nz52mdb6srbFm239612md5bfv0v0l4ikeymgPj85v0-S6-Cblm4ujkuznkd3u2z8jab6srbDBo6Om4ujku6Pkd3u26F8bfv0-S6-Cb52k8zm42z8jazk93d5knb6srb12k8pN4268ja42k5bfv0-S6-Cbiuk3Yz8jab6srbVuk3Y68ja42k5bfv0-S6-Cb52k8zjaz8jazk93d5knb6srb12k8pXa68ja42k5bfv0-S6-Cblm4ujkuz3uujB39z8jab6srbDBo6Om4ujku6DuujB396F8bfv0-S6-CbYj9m8k2ku5b6srb_j9m8k2ku5bfv0-S6-Cbmazum3nzcm4ub6srbFm2396ma6um3n6cm4u5bfv0v0v0v0v6n
Bonjour CDB,
si votre lien est en C2, une formule similaire à
=LIEN.HYPERTEXTE(C2;GAUCHE(C2;10))devrait fonctionner, il faut l'adapter à votre tableur (touche F1)
Je crois que dans excel c'est :
=LIEN_HYPERTEXTE(C2;GAUCHE(C2;10))C
Bonjour et merci de votre retour.
Malheureusement le code ne fonctionne pas en essayant les deux méthodes voir ci dessous :
Sheets("Print").Select
=Lien_HYPERTEXTE(X1, Left(X1, 10))