Code pour créer lien hypertexte dans fichier excel

Réponse 2 / 10

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

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Oui pour ce code je n'ai pas de problème, je voulais m'en inspirer pour mettre ton code dans ma boucle existante, mais je n'arrive pas à le modifier, peux tu m'aider à le modifier pour qu'il tourne dans ma boucle stp.

Je cherche comment mettre ""PHOTO"" à la place du nom du lien.

Merci.

Pascal

Réponse 3 / 10

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à

Réponse 4 / 10

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

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Oups la je galère je suis novice et je peine à suivre.

Je me suis mal expliqué, je ne veux pas mettre ton code dans cette boucle, celle ci me sert pour sélectionner les ligne avec " Notre Sélection" et elle est dans une boucle générale.

Mon problème est que j'ai fait des boucles dans la boucle à force d'alimenter mon code de départ, comme je suis novice je bidouille comme je peux.

Si tu veux je peux mettre mon fichier en ligne, mais je pense que tu vas prendre peur du développement que j'ai fait.

Je cherche à mettre ton 1er code qui fonctionne à merveille dans ma boucle générale comme celle de " Notre Sélection" qui était juste en exemple pour que tu vois comment cela se présentait.

Je sais que mes explications ne sont pas toujours bien claires, désolé.

Mais c'est génial j'apprends au fur et mesure, une fois que j'ai compris le code...

ci-joint mon fichier c'est le module3 mon code en boucle

https://www.cjoint.com/c/GKjnLV4LEAX

Encore merci pour ta précieuse aide.

Bonne journée.

Pascal

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

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

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bonjour cs_Le Pivert,

Génial ça marche, mais j'ai juste une erreur execution 1004 la methode range de l'objet global a echoue sur cette ligne et je n'arrive pas à solutionner.

Range("M:M,O:O,R:V,AA:AG,AK:AK").EntireColumn.Hidden = True

et j'ai rajouter ActiveSheet.Font.Size = 47 ' taille police ça marchait au début et maintenant ça plante aussi.

je remets ton fichier car j'ai modifié Worksheets(I) je ne sais pas si c'est ça qui plante ?

Et encore une demande, si la cellule n'a pas de lien alors on écrit pas "photo" on la laisse vide.

https://www.cjoint.com/c/GKki734X3SX

Encore merci pour ton aide.

Bonne journée.

Pascal

Réponse 6 / 10

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

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

je n'ai pas regardé le code, mais je génère toutes les semaines mes requêtes, car mon disponible change toutes les semaines, donc je dois refaire à chaque fois mes feuilles pour refaire toutes les macros.

Je regarde ton code et je te dis si je comprends.

Merci.

Pascal

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

j'ai regardé ton code, j'ai besoin du code dans ma boucle afin de tout faire en même temps.

Quand je régénère mes requêtes, toutes les données changes de place et les macros sont à refaire, donc je lance avec mon bouton en 1 seul fois.

Penses tu que le code peut être si il y a "http" alors en fait le lien hypertexte avec "PHOTO" et si c'est vide on met rien ?

je vais essayer avec toutes tes données de le faire, grosses sueurs...

Bon je pense que tu y arriveras avant moi...

Bonne journée.
Pascal

Réponse 7 / 10

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

Réponse 8 / 10

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

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Ok je te remercie je préfères 1 seul bouton pour tout faire , comme j'écrase tout à chaque fois et que j'ai une dizaine de fichier fournisseurs ca va plus vite.

Je vais mettre ton code dans ma boucle et je vois.

Merci pour ton aide.

Bonne soirée.

Pascal

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bon j'ai mis ton code dans module1 :

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(I)
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

et je l’appelle dans mon module3 qui est ma boucle avec Call Module1.creerlienhyper, ca bug, il me dit erreur compilation argument non facultatif.

Je me trompe dans le code call ?

Merci pour ton aide.

Pascal

Réponse 9 / 10

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

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bonjour Le Pivert,

C'est clair je n'y comprends rien, et pourtant je cherche à comprendre, mais la c'est dur pour moi.

J'ai remis ton code dans un fichier tout neuf et j'ai bien le lien hypertexte qui se fait mais ça bug après.

Je joins mon fichier car je n'arrive pas à voir pourquoi il ne fonctionne pas , alors que toi oui.

Dis moi si toi quand tu le lances, il fonctionne chez toi Stp.

https://www.cjoint.com/c/GKllbKwv2fX

Merci.

Pascal

Réponse 10 / 10

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

pascalou83400 Messages postés 277 Date d'inscription Statut Membre Dernière intervention

Bonjour,

Je te remercie pour ton aide précieuse et ta patience, je suis plus que débutant et j'alimente mon code dans tous les sens au feeling.

Je te remercie pour ton code et je vais l'utiliser comme tu me le propose.

Je te souhaite une bon de fin de week-end.

Merci.

Pascal

Code pour créer lien hypertexte dans fichier excel

10 réponses

Votre réponse

Discussions similaires