Ajout lien hyper texte VBA

Le 01/09/2014 à 09:07

'on cherche les informations dans la feuille Fiche P et on les place dans les variables

numero = ThisWorkbook.Sheets("Fiche P").Range("B" & num_ligne)

ville = ThisWorkbook.Sheets("Fiche P").Range("D" & num_ligne)

rue = ThisWorkbook.Sheets("Fiche P").Range("C" & num_ligne)

nom_p = ThisWorkbook.Sheets("Fiche P").Range("E" & num_ligne)

prenom_p = ThisWorkbook.Sheets("Fiche P").Range("F" & num_ligne)

contact = ThisWorkbook.Sheets("Fiche P").Range("G" & num_ligne)

'on compte le nombre de feuille, on copie la feuille Type et on la renomme

nb_feuille = ThisWorkbook.Sheets.Count

ThisWorkbook.Sheets("Fiche RT").Copy after:=ThisWorkbook.Sheets(nb_feuille)

nouveau_nom_feuille = numero & "_" & rue & "_" & nom_p

ThisWorkbook.Sheets("Fiche RT (2)").Name = nouveau_nom_feuille

'on écrit dans la nouvelle feuille les variables

ThisWorkbook.Sheets(nouveau_nom_feuille).Range("C12") = numero

ThisWorkbook.Sheets(nouveau_nom_feuille).Range("E13") = ville

ThisWorkbook.Sheets(nouveau_nom_feuille).Range("E12") = rue

ThisWorkbook.Sheets(nouveau_nom_feuille).Range("C16") = nom_p

ThisWorkbook.Sheets(nouveau_nom_feuille).Range("E16") = prenom_p

ThisWorkbook.Sheets(nouveau_nom_feuille).Range("C18") = contact

Next

End Sub

Alors voici quelques ligne vba qui me permettent de crée une copie d'une feuille type excel et de la nommer en fonction d'information contenu dans un tableau.

je voudrais ajouter la création d'un lien hypertexte a ce programme mais reste bloqué

Sachant que dans mon tableau une numérotation est déjà en place a7=1 a8=2.......

Merci de l'attention portée à ma demande

Le 01/09/2014 à 21:05

Bonsoir,

Avec un fichier en exemple, on pourra sûrement trouver une solution

Bouben

Rechercher des sujets similaires à "ajout lien hyper texte vba"