code pour créer lien hypertexte dans fichier excel

Question

Bonjour, 

Je récupérer via une requête des liens URL dans un fichier excel, mais je voudrai les mettre en hypertexte.

J'ai déjà une boucle dans ce fichier qui me permet d’exécuter différentes macros, mais je ne sais pas comment faire pour que ma colonne avec les URL devienne hypertexte.

Merci pour votre aide.

Pascal



Configuration: Windows / Chrome 61.0.3163.100

cs_Le Pivert · Answer

Bonjour,

Voilà un code à adapter à la feuille et à la colonne :

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long
Dim derniereLigne
Dim var As String
Sub creerlien() 'lien hypertexte
Set FL1 = Worksheets("Feuil1") 'a adapter
    NoCol = 1 'lecture de la colonne A
    derniereLigne = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne
   For NoLig = 1 To derniereLigne
   var = FL1.Cells(NoLig, NoCol)
   FL1.Cells(NoLig, NoCol).Select
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        var _
        , TextToDisplay:= _
var
      Next
    Set FL1 = Nothing
End Sub
Sub supprimer() 'supprimer lien hypertexte
Set FL1 = Worksheets("Feuil1") 'a adapter
    NoCol = 1 'lecture de la colonne A
    derniereLigne = Range("A" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne
   For NoLig = 1 To derniereLigne
   var = FL1.Cells(NoLig, NoCol)
       FL1.Cells(NoLig, NoCol).Select
      Selection.Hyperlinks.Delete
      Next
    Set FL1 = Nothing
End Sub

cs_Le Pivert · Answer

Les liens sont où par rapport à la cellule "Notre Sélection" ?

cs_Le Pivert · Answer

Ce n'est pas possible ta boucle sert pour récupérer les cellules qui ont
 " Notre Sélection" pour changer de couleur et de police.
Pour ce que tu veux faire il y a 2 manières

Tu mets:

Je récupérer via une requête des liens URL dans un fichier excel, 

1: tu peux ajouter a ce code le code des  liens hypertextes

Tu mets aussi ceci:

 j'ai plusieurs feuilles à traiter. 

2: voila donc une macro qui te servira pour toute tes feuilles, il suffira de l'appeler avec le nom de la feuille et de la colonne à traiter:

Sub creerlienhyper(ByVal mafeuille As String, colonne As Integer)  'lien hypertexte
Dim FL1 As Worksheet
Dim NoLig As Long
Dim derniereLigne
Dim var As String
Dim lettre As String
lettre = Split(Cells(, colonne).Address, "$")(1) 'numero colonne en  lettre
Set FL1 = Worksheets(mafeuille)
     derniereLigne = Range(lettre & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne
   For NoLig = 1 To derniereLigne
   var = FL1.Cells(NoLig, colonne)
   FL1.Cells(NoLig, colonne).Select
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        var _
        , TextToDisplay:= _
var
      Next
    Set FL1 = Nothing
End Sub

et pour l'appeler:

Call creerlienhyper("Feuil2", "5") 'adapter nom de la feuille et de la colonne


Voilà

cs_Le Pivert · Answer

je voulais m'en inspirer pour mettre ton code dans ma boucle existante,

Par contre si tu ne veux qu'une commande, il suffit de mettre ton appel de macro après la boucle .

Je cherche comment mettre ""PHOTO"" à la place du nom du lien. 

change:

  , TextToDisplay:= _
var

par :

  , TextToDisplay:= _
  "PHOTO"



 
@+ Le Pivert

cs_Le Pivert · Answer

Voilà, je t'ai mis 

  Application.ScreenUpdating = False

pour éviter que cela saute car c'est une usine à gaz cela prend beaucoup de temps, il faut être patient:

http://www.cjoint.com/c/GKjulj5TIIQ

cs_Le Pivert · Answer

Ce n'est pas une bonne idée de mettre la création des liens à chaque fois que tu cliques sur le bouton.
Je t'ai fait 2 boutons supplémentaires: création du lien avec le Nom "PHOTO" et suppression pour que tu retrouves le chemin du lien sinon tu le perds quand tu mets "PHOTO":

http://www.cjoint.com/c/GKkkwVCttlQ

cs_Le Pivert · Answer

Chez moi le classeur fonctionne très bien, je ne peux pas faire plus.

Je te donne le code pour ne mettre le lien que dans le cellule avec du texte:

Sub creerlien() 'lien hypertexte
Application.ScreenUpdating = False
Set FL1 = Worksheets("PM Tarif_T3") 'a adapter
    NoCol = 14 'lecture de la colonne N
    derniereLigne = Range("N" & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne
   For NoLig = 18 To derniereLigne
   var = FL1.Cells(NoLig, NoCol)
   If var = "" Then
'on ne met rien c'est simple!!!!!!!
   Else
   FL1.Cells(NoLig, NoCol).Select
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        var _
        , TextToDisplay:= _
"PHOTO"
End If
      Next
    Set FL1 = Nothing
  Application.ScreenUpdating = True
End Sub

Bon courage 
 
@+ Le Pivert

cs_Le Pivert · Answer

Je t'avais donné la solution ici: 

https://forums.commentcamarche.net/forum/affich-34985166-code-pour-creer-lien-hypertexte-dans-fichier-excel#5

donc mettre ce code dans le module2 à la place de l'autre. Tu creeras tes liens sur toutes les feuilles et ensuite tu pourras cliquer sur ton bouton:

Option Explicit
Dim FL1 As Worksheet, NoCol As Integer
Dim NoLig As Long
Dim derniereLigne
Dim var As String
Dim lettre As String
Sub creerlienhyper(ByVal mafeuille As String, colonne As Integer)  'lien hypertexte
Application.ScreenUpdating = False
lettre = Split(Cells(, colonne).Address, "$")(1) 'numero colonne en  lettre
Set FL1 = Worksheets(mafeuille)
     derniereLigne = Range(lettre & Rows.Count).End(xlUp).Row 'n° de la dernière ligne non vide de la colonne
   For NoLig = 18 To derniereLigne
   var = FL1.Cells(NoLig, colonne)
    If var = "" Then
'on ne fait rien
   Else
   FL1.Cells(NoLig, colonne).Select
     ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        var _
        , TextToDisplay:= _
"PHOTO"
End If
Next
    Set FL1 = Nothing
     Application.ScreenUpdating = True
End Sub
Sub creerlien()
Dim f As Worksheet
    For Each f In ActiveWorkbook.Worksheets
    If f.Name = "Données commerciales" Then
    'on ne fait rien
    Else
         Sheets(f.Name).Activate
Call creerlienhyper(f.Name, "14") 'adapter nom de la feuille et de la colonne
End If
    Next f
    Worksheets("PM Tarif_T3").Activate
End Sub
 
 
@+ Le Pivert

cs_Le Pivert · Answer

Tu n'as pas tout recopier dans le dernier code que je t'ai donné!
Il manque la Sub creerlien()

Il faut quand même essayer de comprendre ce que l'on fait.

Il y a une macro pour créer les liens et une autre qui parcourt toutes les feuilles pour lancer cette macro!

Ensuite il faut mettre la macro creerlien avant la boucle, comme ceci:

Sub Rognerunrectangleavecuncoindiagonal3_Cliquer()

' Variables globales
    Dim nbWS As Integer
    Dim totalRows As Integer
    Dim totalCols As Integer
    Dim CheminFichier As String
    Dim NomFichier As String

nbWS = ActiveWorkbook.Worksheets.Count

CheminFichier = "chemin"

creerlien ' on cree les liens hypertextes avant la boucle
    
    For I = 1 To nbWS - 1

voici le classeur:

http://www.cjoint.com/c/GKlg3zIf1cQ

cs_Le Pivert · Answer

Pourquoi avoir supprimer ceci:

 Application.ScreenUpdating = False

ce n'est pas un gadget!

https://docs.microsoft.com/fr-FR/office/vba/api/Excel.Application.ScreenUpdating 
 

Maintenant je vais être clair: ou tu te sers de 2 boutons comme je te le suggère depuis le début et tu perds 2 secondes et tout fonctionnent. Ou tu te  sers d'un bouton comme tu y tiens, alors il faudra supprimer cette ligne:

Range("M:M,O:O,R:V,AA:AG,AK:AK").EntireColumn.Hidden = True

et la mettre en commentaire comme ceci:

'Range("M:M,O:O,R:V,AA:AG,AK:AK").EntireColumn.Hidden = True

Ce code ce n'est pas moi qu'il l'ait fait, je réponds à la question qui est posé:

Code pour créer lien hypertexte dans fichier excel

je n'ai ni le temps, ni l'envie de me pencher dessus.

Bon courage 
@+ Le Pivert

Code pour créer lien hypertexte dans fichier excel

10 réponses

Discussions similaires

Newsletters