Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel find links

find links

8 réponses
Avatar
freedo
Bonjour =E0 Toutes et Tous et plus particuli=E8rement =E0 Eric Barjot,
Eric,
J'utilise ton programme Find links et je dois avouer qu'il m'a d=E9j=E0
d=E9pann=E9 =E0 maintes reprises.
Serait-il possible d=E9diter dans une feuille la liste des liens avec
leurs chemins complets comme les renseignements qui apparaisse dans le
traitement avec find links.
J'aimerais consulter cette liste sans supprimer les dits liens
directement.
merci de r=E9pondre,
Cordialement,
Freedo
PS: je suis un utilisateur du forum Excel et je n'ai pas trouv=E9 la
solution parmis cette caverne d'ali baba.
Signaler un problème avec ce contenu

8 réponses

Supprimer
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
Avatar
Gaspareau
Bonjour

Depuis quelques années déjà j'utilise la macro complémentaire développée
par Bill Manville disponible ici

http://www.bmsltd.ie/MVP/MVPPage.asp

Très utile et je crois que ça répondra à tes besoins

Bonne journée

Dany
"freedo" a écrit dans le message de
news:
Bonjour à Toutes et Tous et plus particulièrement à Eric Barjot,
Eric,
J'utilise ton programme Find links et je dois avouer qu'il m'a déjà
dépanné à maintes reprises.
Serait-il possible déditer dans une feuille la liste des liens avec
leurs chemins complets comme les renseignements qui apparaisse dans le
traitement avec find links.
J'aimerais consulter cette liste sans supprimer les dits liens
directement.
merci de répondre,
Cordialement,
Freedo
PS: je suis un utilisateur du forum Excel et je n'ai pas trouvé la
solution parmis cette caverne d'ali baba.
Avatar
freedo
Bonsoir Gaspareau,
Merci beaucoup pour la réponse mais c'est le même traitement que la
version de Eric Barjot.
en fait je cherche à lister les liaisons sur une autre feuille afin de
pouvoir gérer les suppressions ou bien les modifier, sans les
supprimer tout de suite.
merci de répondre,
Freedo.

Bonjour

Depuis quelques années déjà j'utilise la macro complémentaire d éveloppée
par Bill Manville disponible ici

http://www.bmsltd.ie/MVP/MVPPage.asp

Très utile et je crois que ça répondra à tes besoins

Bonne journée

Dany
"freedo" a écrit dans le message de
news:
Bonjour à Toutes et Tous et plus particulièrement à Eric Barjot,
Eric,
J'utilise ton programme Find links et je dois avouer qu'il m'a déjà
dépanné à maintes reprises.
Serait-il possible déditer dans une feuille la liste des liens avec
leurs chemins complets comme les renseignements qui apparaisse dans le
traitement avec find links.
J'aimerais consulter cette liste sans supprimer les dits liens
directement.
merci de répondre,
Cordialement,
Freedo
PS: je suis un utilisateur du forum Excel et je n'ai pas trouvé la
solution parmis cette caverne d'ali baba.


Avatar
Gaspareau
Salut

Je ne dois pas bien comprendre ta demande
parce que dans cette macro complémentaire
il y a la possibilité de :
1-Avoir un message pour chaque liens trouvé te demandant si tu veux
le conserver ou remplacer par la valeur
2-créer une nouvelle feuille
avec seulement la liste des liens sans modifications
ni suppression, (no message or delation just list the links found)
3-Pas de message juste remplacer les liens et faire une liste

Je crois que l'Action 2 fait ce que tu demande non ??




"freedo" a écrit dans le message de
news:
Bonsoir Gaspareau,
Merci beaucoup pour la réponse mais c'est le même traitement que la
version de Eric Barjot.
en fait je cherche à lister les liaisons sur une autre feuille afin de
pouvoir gérer les suppressions ou bien les modifier, sans les
supprimer tout de suite.
merci de répondre,
Freedo.

Bonjour

Depuis quelques années déjà j'utilise la macro complémentaire développée
par Bill Manville disponible ici

http://www.bmsltd.ie/MVP/MVPPage.asp

Très utile et je crois que ça répondra à tes besoins

Bonne journée

Dany
"freedo" a écrit dans le message de
news:
Bonjour à Toutes et Tous et plus particulièrement à Eric Barjot,
Eric,
J'utilise ton programme Find links et je dois avouer qu'il m'a déjà
dépanné à maintes reprises.
Serait-il possible déditer dans une feuille la liste des liens avec
leurs chemins complets comme les renseignements qui apparaisse dans le
traitement avec find links.
J'aimerais consulter cette liste sans supprimer les dits liens
directement.
merci de répondre,
Cordialement,
Freedo
PS: je suis un utilisateur du forum Excel et je n'ai pas trouvé la
solution parmis cette caverne d'ali baba.


Avatar
DesseJ
Bonsoir,

J'ai ceci en stock qui liste les cellules avec des liens externes, si
cela vous dit.

Cordialement,
Steph. D.

'Liaisons Externes : affichage des cellules liées
Sub AfficheLiaisonsExternes()
Dim MaFeuille As Worksheet
Dim MaCellule As Range, MaPlage As Range
Dim MesLiensExternes
Dim Reponse
Dim LxFin#, CxFin#, i#
i = 1
Application.ScreenUpdating = False
On Error Resume Next
ReDim MesLiensExternes(1 To 2000, 1 To 3) 'maximum 2000 liens à
adapter Reponse = MsgBox("Affiche les liaisons externes dans une
nouvelle feuille (maxi 2000).", vbYesNo + vbDefaultButton1, "Affichage
des Liaisons Externes")
If Reponse = vbYes Then
For Each MaFeuille In ActiveWorkbook.Sheets
MaFeuille.Activate
If Application.WorksheetFunction.CountA(MaFeuille.Cells) <>
0 Then
With Cells
LxFin = .Find("*", [A1], , , xlByRows,
xlPrevious).Row
CxFin = .Find("*", [A1], , , xlByColumns,
xlPrevious).Column
End With
Set MaPlage = MaFeuille.Range(Cells(1, 1), Cells(LxFin,
CxFin))
For Each MaCellule In MaPlage
If MaCellule.HasFormula = True And InStr(1,
MaCellule.Formula, "[", 0) > 0 Then
MesLiensExternes(i, 1) = MaFeuille.Name
MesLiensExternes(i, 2) = MaCellule.AddressLocal

MesLiensExternes(i, 3) = "'" &
MaCellule.FormulaLocal
i = i + 1
End If
Next MaCellule
End If
Next MaFeuille
Sheets.Add
ActiveSheet.Range("A1:C" & i).Value = MesLiensExternes
End If
Set MaPlage = Nothing
Application.ScreenUpdating = True
End Sub
Avatar
freedo
Bonjour Gaspareau,
Je dois avouer que moi et la langue anglaise c'est deux, mais c'est
parfaitement ce que je cherchais comme solution; Merci beaucoup
Cordialement
Freedo

Salut

Je ne dois pas bien comprendre ta demande
parce que dans cette macro complémentaire
il y a la possibilité de :
1-Avoir un message pour chaque liens trouvé te demandant si tu veux
le conserver ou remplacer par la valeur
2-créer une nouvelle feuille
avec seulement la liste des liens sans modifications
ni suppression, (no message or delation just list the links found)
3-Pas de message juste remplacer les liens et faire une liste

Je crois que l'Action 2 fait ce que tu demande non ??




"freedo" a écrit dans le message de
news:
Bonsoir Gaspareau,
Merci beaucoup pour la réponse mais c'est le même traitement que la
version de Eric Barjot.
en fait je cherche à lister les liaisons sur une autre feuille afin de
pouvoir gérer les suppressions ou bien les modifier, sans les
supprimer tout de suite.
merci de répondre,
Freedo.

Bonjour

Depuis quelques années déjà j'utilise la macro complémentaire d éveloppée
par Bill Manville disponible ici

http://www.bmsltd.ie/MVP/MVPPage.asp

Très utile et je crois que ça répondra à tes besoins

Bonne journée

Dany
"freedo" a écrit dans le message de
news:
Bonjour à Toutes et Tous et plus particulièrement à Eric Barjot,
Eric,
J'utilise ton programme Find links et je dois avouer qu'il m'a déjà
dépanné à maintes reprises.
Serait-il possible déditer dans une feuille la liste des liens avec
leurs chemins complets comme les renseignements qui apparaisse dans le
traitement avec find links.
J'aimerais consulter cette liste sans supprimer les dits liens
directement.
merci de répondre,
Cordialement,
Freedo
PS: je suis un utilisateur du forum Excel et je n'ai pas trouvé la
solution parmis cette caverne d'ali baba.




Avatar
freedo
Bonjour Steph.D.,
merci pour ta solution et bien que Gaspareau m'ai ouvert les yeux, je
vais essayer aussi la macro que tu me propose.
Cordialement,
Freedo


Bonsoir,

J'ai ceci en stock qui liste les cellules avec des liens externes, si
cela vous dit.

Cordialement,
Steph. D.

'Liaisons Externes : affichage des cellules liées
Sub AfficheLiaisonsExternes()
Dim MaFeuille As Worksheet
Dim MaCellule As Range, MaPlage As Range
Dim MesLiensExternes
Dim Reponse
Dim LxFin#, CxFin#, i#
i = 1
Application.ScreenUpdating = False
On Error Resume Next
ReDim MesLiensExternes(1 To 2000, 1 To 3) 'maximum 2000 liens à
adapter Reponse = MsgBox("Affiche les liaisons externes dans une
nouvelle feuille (maxi 2000).", vbYesNo + vbDefaultButton1, "Affichage
des Liaisons Externes")
If Reponse = vbYes Then
For Each MaFeuille In ActiveWorkbook.Sheets
MaFeuille.Activate
If Application.WorksheetFunction.CountA(MaFeuille.Cells) <>
0 Then
With Cells
LxFin = .Find("*", [A1], , , xlByRows,
xlPrevious).Row
CxFin = .Find("*", [A1], , , xlByColumns,
xlPrevious).Column
End With
Set MaPlage = MaFeuille.Range(Cells(1, 1), Cells(LxFin,
CxFin))
For Each MaCellule In MaPlage
If MaCellule.HasFormula = True And InStr(1,
MaCellule.Formula, "[", 0) > 0 Then
MesLiensExternes(i, 1) = MaFeuille.Name
MesLiensExternes(i, 2) = MaCellule.AddressLocal

MesLiensExternes(i, 3) = "'" &
MaCellule.FormulaLocal
i = i + 1
End If
Next MaCellule
End If
Next MaFeuille
Sheets.Add
ActiveSheet.Range("A1:C" & i).Value = MesLiensExternes
End If
Set MaPlage = Nothing
Application.ScreenUpdating = True
End Sub


Avatar
freedo
Bonjour Steph.D.,
merci pour ta solution et bien que Gaspareau m'ai ouvert les yeux, je
vais essayer aussi la macro que tu me propose.
Cordialement,
Freedo


Bonsoir,

J'ai ceci en stock qui liste les cellules avec des liens externes, si
cela vous dit.

Cordialement,
Steph. D.

'Liaisons Externes : affichage des cellules liées
Sub AfficheLiaisonsExternes()
Dim MaFeuille As Worksheet
Dim MaCellule As Range, MaPlage As Range
Dim MesLiensExternes
Dim Reponse
Dim LxFin#, CxFin#, i#
i = 1
Application.ScreenUpdating = False
On Error Resume Next
ReDim MesLiensExternes(1 To 2000, 1 To 3) 'maximum 2000 liens à
adapter Reponse = MsgBox("Affiche les liaisons externes dans une
nouvelle feuille (maxi 2000).", vbYesNo + vbDefaultButton1, "Affichage
des Liaisons Externes")
If Reponse = vbYes Then
For Each MaFeuille In ActiveWorkbook.Sheets
MaFeuille.Activate
If Application.WorksheetFunction.CountA(MaFeuille.Cells) <>
0 Then
With Cells
LxFin = .Find("*", [A1], , , xlByRows,
xlPrevious).Row
CxFin = .Find("*", [A1], , , xlByColumns,
xlPrevious).Column
End With
Set MaPlage = MaFeuille.Range(Cells(1, 1), Cells(LxFin,
CxFin))
For Each MaCellule In MaPlage
If MaCellule.HasFormula = True And InStr(1,
MaCellule.Formula, "[", 0) > 0 Then
MesLiensExternes(i, 1) = MaFeuille.Name
MesLiensExternes(i, 2) = MaCellule.AddressLocal

MesLiensExternes(i, 3) = "'" &
MaCellule.FormulaLocal
i = i + 1
End If
Next MaCellule
End If
Next MaFeuille
Sheets.Add
ActiveSheet.Range("A1:C" & i).Value = MesLiensExternes
End If
Set MaPlage = Nothing
Application.ScreenUpdating = True
End Sub


Avatar
MichDenis
Affiche dans une nouvelle feuille, tous les liens des
feuilles du classeur que l'on retrouve dans les formules
du classeur.

'------------------------------
Sub Afficher_Liens()
Dim Liens, Lien, T()
Dim A As Integer, B As Integer

With ThisWorkbook
Liens = .LinkSources(xlExcelLinks)
B = UBound(Liens)
End With
ReDim T(1 To B)
For Each Lien In Liens
A = A + 1
T(A) = Lien
Next
If A > 0 Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Range("A1").Resize(A) = _
Application.Transpose(T)
End If
End Sub
'------------------------------



"freedo" a écrit dans le message de news:

Bonjour à Toutes et Tous et plus particulièrement à Eric Barjot,
Eric,
J'utilise ton programme Find links et je dois avouer qu'il m'a déjà
dépanné à maintes reprises.
Serait-il possible déditer dans une feuille la liste des liens avec
leurs chemins complets comme les renseignements qui apparaisse dans le
traitement avec find links.
J'aimerais consulter cette liste sans supprimer les dits liens
directement.
merci de répondre,
Cordialement,
Freedo
PS: je suis un utilisateur du forum Excel et je n'ai pas trouvé la
solution parmis cette caverne d'ali baba.