J'ai récupéré un fichier Excel dans lequel j'ai une colonne qui contient un
BMP pour chaque ligne, cette image bmp représente un disquette et au delà un
lien hypertexte qui me renvoi sur differents site web.
Je veux récupérer le lien hypertexte pour le mettre dans la colonne
suivante. Faire la manip ligne par ligne va me prendre un temps fou.
Existe-t-il un moyen pour récuperer la totalité des liens hypertextes cachés
derriere ces images pour les avoir en clair dans la colonne suivante ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour BlackStorm,
Tu peux essayer ceci :
Dans ma procédure, j'ai pris pour acquis que tes images étaient insérées dans des contrôles "image" de la boîte outils Contrôle.
Si tu as inséré directement tes images à partir du menu insertion / image ... je crois que le nom des objets est "Picture" en lieu et place de "Image"... tu devras modifier alors cette ligne de code :
If UCase(Left(N, 5)) = "IMAGE" Then Pour If UCase(Left(N, 7)) = "PICTURE" Then
et si tous tes images ont des préfixes différents, revient et on adaptera la procédure !
'------------------------------ Sub Hypertextes()
Dim h As Hyperlink With Worksheets("Feuil1") 'Nom Feuille à adapter For Each h In .Hyperlinks N = h.Parent.Name If UCase(Left(N, 5)) = "IMAGE" Then .Range(.Shapes(N).TopLeftCell.Address).Offset(, 1) = _ h.Address End If Next End With
End Sub '------------------------------
Salutations!
"BlackStorm" a écrit dans le message de news:uaHKDi$ Bonjour à vous tous,
J'ai récupéré un fichier Excel dans lequel j'ai une colonne qui contient un BMP pour chaque ligne, cette image bmp représente un disquette et au delà un lien hypertexte qui me renvoi sur differents site web. Je veux récupérer le lien hypertexte pour le mettre dans la colonne suivante. Faire la manip ligne par ligne va me prendre un temps fou.
Existe-t-il un moyen pour récuperer la totalité des liens hypertextes cachés derriere ces images pour les avoir en clair dans la colonne suivante ?
Merci d'avance pour toutes vons infos.
Bonjour BlackStorm,
Tu peux essayer ceci :
Dans ma procédure, j'ai pris pour acquis que tes images étaient insérées dans des contrôles "image" de la boîte outils
Contrôle.
Si tu as inséré directement tes images à partir du menu insertion / image ... je crois que le nom des objets est
"Picture" en lieu et place de "Image"... tu devras modifier alors cette ligne de code :
If UCase(Left(N, 5)) = "IMAGE" Then
Pour
If UCase(Left(N, 7)) = "PICTURE" Then
et si tous tes images ont des préfixes différents, revient et on adaptera la procédure !
'------------------------------
Sub Hypertextes()
Dim h As Hyperlink
With Worksheets("Feuil1") 'Nom Feuille à adapter
For Each h In .Hyperlinks
N = h.Parent.Name
If UCase(Left(N, 5)) = "IMAGE" Then
.Range(.Shapes(N).TopLeftCell.Address).Offset(, 1) = _
h.Address
End If
Next
End With
End Sub
'------------------------------
Salutations!
"BlackStorm" <BlackStorm@Hotmail.com> a écrit dans le message de news:uaHKDi$lEHA.2968@TK2MSFTNGP14.phx.gbl...
Bonjour à vous tous,
J'ai récupéré un fichier Excel dans lequel j'ai une colonne qui contient un
BMP pour chaque ligne, cette image bmp représente un disquette et au delà un
lien hypertexte qui me renvoi sur differents site web.
Je veux récupérer le lien hypertexte pour le mettre dans la colonne
suivante. Faire la manip ligne par ligne va me prendre un temps fou.
Existe-t-il un moyen pour récuperer la totalité des liens hypertextes cachés
derriere ces images pour les avoir en clair dans la colonne suivante ?
Dans ma procédure, j'ai pris pour acquis que tes images étaient insérées dans des contrôles "image" de la boîte outils Contrôle.
Si tu as inséré directement tes images à partir du menu insertion / image ... je crois que le nom des objets est "Picture" en lieu et place de "Image"... tu devras modifier alors cette ligne de code :
If UCase(Left(N, 5)) = "IMAGE" Then Pour If UCase(Left(N, 7)) = "PICTURE" Then
et si tous tes images ont des préfixes différents, revient et on adaptera la procédure !
'------------------------------ Sub Hypertextes()
Dim h As Hyperlink With Worksheets("Feuil1") 'Nom Feuille à adapter For Each h In .Hyperlinks N = h.Parent.Name If UCase(Left(N, 5)) = "IMAGE" Then .Range(.Shapes(N).TopLeftCell.Address).Offset(, 1) = _ h.Address End If Next End With
End Sub '------------------------------
Salutations!
"BlackStorm" a écrit dans le message de news:uaHKDi$ Bonjour à vous tous,
J'ai récupéré un fichier Excel dans lequel j'ai une colonne qui contient un BMP pour chaque ligne, cette image bmp représente un disquette et au delà un lien hypertexte qui me renvoi sur differents site web. Je veux récupérer le lien hypertexte pour le mettre dans la colonne suivante. Faire la manip ligne par ligne va me prendre un temps fou.
Existe-t-il un moyen pour récuperer la totalité des liens hypertextes cachés derriere ces images pour les avoir en clair dans la colonne suivante ?
Merci d'avance pour toutes vons infos.
michdenis
re... Bonjour,
Si au lieu de récupérer l'adresse dans la colonne suivante, tu veux obtenir un lien hypertexte dans la colonne suivante, tu peux modifier la procédure soumise comme ceci :
La remarque a propos des noms des contrôles "Image" ou "Picture" s'applique aussi. '-------------------------------------- Sub Hypertextes()
Dim h As Hyperlink With Worksheets(1) For Each h In .Hyperlinks N = h.Parent.Name If UCase(Left(N, 5)) = "IMAGE" Then .Hyperlinks.Add .Range(.Shapes(N) _ .TopLeftCell.Address) _ .Offset(, 1), h.Address End If Next End With
End Sub '--------------------------------------
Salutations!
"michdenis" a écrit dans le message de news: Bonjour BlackStorm,
Tu peux essayer ceci :
Dans ma procédure, j'ai pris pour acquis que tes images étaient insérées dans des contrôles "image" de la boîte outils Contrôle.
Si tu as inséré directement tes images à partir du menu insertion / image ... je crois que le nom des objets est "Picture" en lieu et place de "Image"... tu devras modifier alors cette ligne de code :
If UCase(Left(N, 5)) = "IMAGE" Then Pour If UCase(Left(N, 7)) = "PICTURE" Then
et si tous tes images ont des préfixes différents, revient et on adaptera la procédure !
'------------------------------ Sub Hypertextes()
Dim h As Hyperlink With Worksheets("Feuil1") 'Nom Feuille à adapter For Each h In .Hyperlinks N = h.Parent.Name If UCase(Left(N, 5)) = "IMAGE" Then .Range(.Shapes(N).TopLeftCell.Address).Offset(, 1) = _ h.Address End If Next End With
End Sub '------------------------------
Salutations!
"BlackStorm" a écrit dans le message de news:uaHKDi$ Bonjour à vous tous,
J'ai récupéré un fichier Excel dans lequel j'ai une colonne qui contient un BMP pour chaque ligne, cette image bmp représente un disquette et au delà un lien hypertexte qui me renvoi sur differents site web. Je veux récupérer le lien hypertexte pour le mettre dans la colonne suivante. Faire la manip ligne par ligne va me prendre un temps fou.
Existe-t-il un moyen pour récuperer la totalité des liens hypertextes cachés derriere ces images pour les avoir en clair dans la colonne suivante ?
Merci d'avance pour toutes vons infos.
re... Bonjour,
Si au lieu de récupérer l'adresse dans la colonne suivante, tu veux obtenir un lien hypertexte dans la colonne suivante,
tu peux modifier la procédure soumise comme ceci :
La remarque a propos des noms des contrôles "Image" ou "Picture" s'applique aussi.
'--------------------------------------
Sub Hypertextes()
Dim h As Hyperlink
With Worksheets(1)
For Each h In .Hyperlinks
N = h.Parent.Name
If UCase(Left(N, 5)) = "IMAGE" Then
.Hyperlinks.Add .Range(.Shapes(N) _
.TopLeftCell.Address) _
.Offset(, 1), h.Address
End If
Next
End With
End Sub
'--------------------------------------
Salutations!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:e0nCJJAmEHA.3608@TK2MSFTNGP09.phx.gbl...
Bonjour BlackStorm,
Tu peux essayer ceci :
Dans ma procédure, j'ai pris pour acquis que tes images étaient insérées dans des contrôles "image" de la boîte outils
Contrôle.
Si tu as inséré directement tes images à partir du menu insertion / image ... je crois que le nom des objets est
"Picture" en lieu et place de "Image"... tu devras modifier alors cette ligne de code :
If UCase(Left(N, 5)) = "IMAGE" Then
Pour
If UCase(Left(N, 7)) = "PICTURE" Then
et si tous tes images ont des préfixes différents, revient et on adaptera la procédure !
'------------------------------
Sub Hypertextes()
Dim h As Hyperlink
With Worksheets("Feuil1") 'Nom Feuille à adapter
For Each h In .Hyperlinks
N = h.Parent.Name
If UCase(Left(N, 5)) = "IMAGE" Then
.Range(.Shapes(N).TopLeftCell.Address).Offset(, 1) = _
h.Address
End If
Next
End With
End Sub
'------------------------------
Salutations!
"BlackStorm" <BlackStorm@Hotmail.com> a écrit dans le message de news:uaHKDi$lEHA.2968@TK2MSFTNGP14.phx.gbl...
Bonjour à vous tous,
J'ai récupéré un fichier Excel dans lequel j'ai une colonne qui contient un
BMP pour chaque ligne, cette image bmp représente un disquette et au delà un
lien hypertexte qui me renvoi sur differents site web.
Je veux récupérer le lien hypertexte pour le mettre dans la colonne
suivante. Faire la manip ligne par ligne va me prendre un temps fou.
Existe-t-il un moyen pour récuperer la totalité des liens hypertextes cachés
derriere ces images pour les avoir en clair dans la colonne suivante ?
Si au lieu de récupérer l'adresse dans la colonne suivante, tu veux obtenir un lien hypertexte dans la colonne suivante, tu peux modifier la procédure soumise comme ceci :
La remarque a propos des noms des contrôles "Image" ou "Picture" s'applique aussi. '-------------------------------------- Sub Hypertextes()
Dim h As Hyperlink With Worksheets(1) For Each h In .Hyperlinks N = h.Parent.Name If UCase(Left(N, 5)) = "IMAGE" Then .Hyperlinks.Add .Range(.Shapes(N) _ .TopLeftCell.Address) _ .Offset(, 1), h.Address End If Next End With
End Sub '--------------------------------------
Salutations!
"michdenis" a écrit dans le message de news: Bonjour BlackStorm,
Tu peux essayer ceci :
Dans ma procédure, j'ai pris pour acquis que tes images étaient insérées dans des contrôles "image" de la boîte outils Contrôle.
Si tu as inséré directement tes images à partir du menu insertion / image ... je crois que le nom des objets est "Picture" en lieu et place de "Image"... tu devras modifier alors cette ligne de code :
If UCase(Left(N, 5)) = "IMAGE" Then Pour If UCase(Left(N, 7)) = "PICTURE" Then
et si tous tes images ont des préfixes différents, revient et on adaptera la procédure !
'------------------------------ Sub Hypertextes()
Dim h As Hyperlink With Worksheets("Feuil1") 'Nom Feuille à adapter For Each h In .Hyperlinks N = h.Parent.Name If UCase(Left(N, 5)) = "IMAGE" Then .Range(.Shapes(N).TopLeftCell.Address).Offset(, 1) = _ h.Address End If Next End With
End Sub '------------------------------
Salutations!
"BlackStorm" a écrit dans le message de news:uaHKDi$ Bonjour à vous tous,
J'ai récupéré un fichier Excel dans lequel j'ai une colonne qui contient un BMP pour chaque ligne, cette image bmp représente un disquette et au delà un lien hypertexte qui me renvoi sur differents site web. Je veux récupérer le lien hypertexte pour le mettre dans la colonne suivante. Faire la manip ligne par ligne va me prendre un temps fou.
Existe-t-il un moyen pour récuperer la totalité des liens hypertextes cachés derriere ces images pour les avoir en clair dans la colonne suivante ?
