contenus dans un tableau excel 2000.
J'aiu une base de liens qui pointent vers un serveur obsolète que je dois
remplacer alors j'aimerais faire l'inventaire des liens mais je ne suis pas
un pro de la macro ! Merci pour le coup de main...
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
Bonsoir Fredgaub,
Ceci devrait te donner une liste complète des liens hypertextes de ton classeur
à copier dans un module standard '-------------------------------------- Sub LienHypertexte()
Dim Sh As Worksheet Dim Ht As Hyperlink, S As Worksheet
On Error Resume Next Application.DisplayAlerts = False Application.DisplayAlerts = False Worksheets("Liens Hypertextes").Delete Application.DisplayAlerts = True If Err <> 0 Then Err = 0 Set S = Worksheets.Add S.Name = "Liens Hypertextes"
For Each Sh In Worksheets If Sh.Name <> S.Name Then For Each Ht In Sh.Hyperlinks A = A + 1 Range("A" & A) = Ht.Range.Parent.Name
Range("B" & A) = Ht.Range.Address Range("C" & A) = Ht.Range Range("D" & A) = Ht.Address Next End If Next S.Columns("A:D").EntireColumn.AutoFit Set Sh = Nothing: Set Ht = Nothing: Set S = Nothing End Sub '--------------------------------------
Salutatioins!
"Fredgaub" a écrit dans le message de news:ciq6dr$1ud$ contenus dans un tableau excel 2000. J'aiu une base de liens qui pointent vers un serveur obsolète que je dois remplacer alors j'aimerais faire l'inventaire des liens mais je ne suis pas un pro de la macro ! Merci pour le coup de main...
Bonsoir Fredgaub,
Ceci devrait te donner une liste complète des liens hypertextes de ton classeur
à copier dans un module standard
'--------------------------------------
Sub LienHypertexte()
Dim Sh As Worksheet
Dim Ht As Hyperlink, S As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Application.DisplayAlerts = False
Worksheets("Liens Hypertextes").Delete
Application.DisplayAlerts = True
If Err <> 0 Then Err = 0
Set S = Worksheets.Add
S.Name = "Liens Hypertextes"
For Each Sh In Worksheets
If Sh.Name <> S.Name Then
For Each Ht In Sh.Hyperlinks
A = A + 1
Range("A" & A) = Ht.Range.Parent.Name
Range("B" & A) = Ht.Range.Address
Range("C" & A) = Ht.Range
Range("D" & A) = Ht.Address
Next
End If
Next
S.Columns("A:D").EntireColumn.AutoFit
Set Sh = Nothing: Set Ht = Nothing: Set S = Nothing
End Sub
'--------------------------------------
Salutatioins!
"Fredgaub" <fredgaub@DONTSPAM.com> a écrit dans le message de news:ciq6dr$1ud$1@news.tiscali.fr...
contenus dans un tableau excel 2000.
J'aiu une base de liens qui pointent vers un serveur obsolète que je dois
remplacer alors j'aimerais faire l'inventaire des liens mais je ne suis pas
un pro de la macro ! Merci pour le coup de main...
Ceci devrait te donner une liste complète des liens hypertextes de ton classeur
à copier dans un module standard '-------------------------------------- Sub LienHypertexte()
Dim Sh As Worksheet Dim Ht As Hyperlink, S As Worksheet
On Error Resume Next Application.DisplayAlerts = False Application.DisplayAlerts = False Worksheets("Liens Hypertextes").Delete Application.DisplayAlerts = True If Err <> 0 Then Err = 0 Set S = Worksheets.Add S.Name = "Liens Hypertextes"
For Each Sh In Worksheets If Sh.Name <> S.Name Then For Each Ht In Sh.Hyperlinks A = A + 1 Range("A" & A) = Ht.Range.Parent.Name
Range("B" & A) = Ht.Range.Address Range("C" & A) = Ht.Range Range("D" & A) = Ht.Address Next End If Next S.Columns("A:D").EntireColumn.AutoFit Set Sh = Nothing: Set Ht = Nothing: Set S = Nothing End Sub '--------------------------------------
Salutatioins!
"Fredgaub" a écrit dans le message de news:ciq6dr$1ud$ contenus dans un tableau excel 2000. J'aiu une base de liens qui pointent vers un serveur obsolète que je dois remplacer alors j'aimerais faire l'inventaire des liens mais je ne suis pas un pro de la macro ! Merci pour le coup de main...
Fredgaub
Merci beaucoup, j'essaye dès que possible ! Fred
"michdenis" a écrit dans le message de news:
Bonsoir Fredgaub,
Ceci devrait te donner une liste complète des liens hypertextes de ton classeur
à copier dans un module standard '-------------------------------------- Sub LienHypertexte()
Dim Sh As Worksheet Dim Ht As Hyperlink, S As Worksheet
On Error Resume Next Application.DisplayAlerts = False Application.DisplayAlerts = False Worksheets("Liens Hypertextes").Delete Application.DisplayAlerts = True If Err <> 0 Then Err = 0 Set S = Worksheets.Add S.Name = "Liens Hypertextes"
For Each Sh In Worksheets If Sh.Name <> S.Name Then For Each Ht In Sh.Hyperlinks A = A + 1 Range("A" & A) = Ht.Range.Parent.Name
Range("B" & A) = Ht.Range.Address Range("C" & A) = Ht.Range Range("D" & A) = Ht.Address Next End If Next S.Columns("A:D").EntireColumn.AutoFit Set Sh = Nothing: Set Ht = Nothing: Set S = Nothing End Sub '--------------------------------------
Salutatioins!
"Fredgaub" a écrit dans le message de news:ciq6dr$1ud$ contenus dans un tableau excel 2000. J'aiu une base de liens qui pointent vers un serveur obsolète que je dois remplacer alors j'aimerais faire l'inventaire des liens mais je ne suis pas un pro de la macro ! Merci pour le coup de main...
Merci beaucoup, j'essaye dès que possible !
Fred
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OwK16WDoEHA.2808@TK2MSFTNGP10.phx.gbl...
Bonsoir Fredgaub,
Ceci devrait te donner une liste complète des liens hypertextes de ton
classeur
à copier dans un module standard
'--------------------------------------
Sub LienHypertexte()
Dim Sh As Worksheet
Dim Ht As Hyperlink, S As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Application.DisplayAlerts = False
Worksheets("Liens Hypertextes").Delete
Application.DisplayAlerts = True
If Err <> 0 Then Err = 0
Set S = Worksheets.Add
S.Name = "Liens Hypertextes"
For Each Sh In Worksheets
If Sh.Name <> S.Name Then
For Each Ht In Sh.Hyperlinks
A = A + 1
Range("A" & A) = Ht.Range.Parent.Name
Range("B" & A) = Ht.Range.Address
Range("C" & A) = Ht.Range
Range("D" & A) = Ht.Address
Next
End If
Next
S.Columns("A:D").EntireColumn.AutoFit
Set Sh = Nothing: Set Ht = Nothing: Set S = Nothing
End Sub
'--------------------------------------
Salutatioins!
"Fredgaub" <fredgaub@DONTSPAM.com> a écrit dans le message de
news:ciq6dr$1ud$1@news.tiscali.fr...
contenus dans un tableau excel 2000.
J'aiu une base de liens qui pointent vers un serveur obsolète que je dois
remplacer alors j'aimerais faire l'inventaire des liens mais je ne suis
pas
un pro de la macro ! Merci pour le coup de main...
Ceci devrait te donner une liste complète des liens hypertextes de ton classeur
à copier dans un module standard '-------------------------------------- Sub LienHypertexte()
Dim Sh As Worksheet Dim Ht As Hyperlink, S As Worksheet
On Error Resume Next Application.DisplayAlerts = False Application.DisplayAlerts = False Worksheets("Liens Hypertextes").Delete Application.DisplayAlerts = True If Err <> 0 Then Err = 0 Set S = Worksheets.Add S.Name = "Liens Hypertextes"
For Each Sh In Worksheets If Sh.Name <> S.Name Then For Each Ht In Sh.Hyperlinks A = A + 1 Range("A" & A) = Ht.Range.Parent.Name
Range("B" & A) = Ht.Range.Address Range("C" & A) = Ht.Range Range("D" & A) = Ht.Address Next End If Next S.Columns("A:D").EntireColumn.AutoFit Set Sh = Nothing: Set Ht = Nothing: Set S = Nothing End Sub '--------------------------------------
Salutatioins!
"Fredgaub" a écrit dans le message de news:ciq6dr$1ud$ contenus dans un tableau excel 2000. J'aiu une base de liens qui pointent vers un serveur obsolète que je dois remplacer alors j'aimerais faire l'inventaire des liens mais je ne suis pas un pro de la macro ! Merci pour le coup de main...
