VBA et liens hypertexe variable

[sebastien450]

Bonjour,

je cherche a ouvrir le lien vba situé en D4, puis récupérer son nom de fichier pour en définir une variable (utilisée aprés de multiple fois)

J'ai plusieurs fichiers pour lesquels je souhaite faire la même chose, mais l'ouverture du liens en vba ne marche plus ? (!)

Un bout de fichier joint

 

[CPk]

Re : VBA et liens hypertexe variable

Bonjour une proposition...

Sub rgxp()
Dim b(), n, nn, tb
Dim reg As Object

Set reg = CreateObject("vbscript.regexp")

reg.Global = True
reg.ignorecase = True
reg.Pattern = "\\+(.*)+xls\w?"

For a = 1 To Feuil1.UsedRange.Rows.Count
On Error Resume Next
If Feuil1.Cells(a, 4) <> "" Then
Set nn = reg.Execute(Feuil1.Cells(a, 4))
For Each n In nn
tb = tb + 1
ReDim Preserve b(1 To tb)
b(tb) = Right(n, Len(n) - 1)
Next n
End If
Next a
End Sub

les noms des classeurs sont dans le tableau b().

Cela peu peut-être convenir...

 

[job75]

Re : VBA et liens hypertexe variable

Bonjour sebastien450, CPk,

S'il s'agit d'ouvrir les fichiers des liens hypertexte :

Sub SecondeEtape()
Dim h As Hyperlink
Application.ScreenUpdating = False
On Error Resume Next 'si le fichier est introuvable
For Each h In ThisWorkbook.ActiveSheet.Hyperlinks
  ThisWorkbook.FollowHyperlink h.Address
Next
ThisWorkbook.Activate
End Sub

Edit : si la macro n'est pas dans le classeur actif :

Sub SecondeEtape1()
Dim wb As Workbook, h As Hyperlink
Set wb = ActiveWorkbook
Application.ScreenUpdating = False
On Error Resume Next 'si le fichier est introuvable
For Each h In wb.ActiveSheet.Hyperlinks
  wb.FollowHyperlink h.Address
Next
wb.Activate
End Sub

Bonne journée.

 

[sebastien450]

Re : VBA et liens hypertexe variable

Merci!

Aprés analyse mon problème vient du lien en lui même il manque la syntaxe C/... je mettrais le code une fois fini

 

[job75]

Re : VBA et liens hypertexe variable

Re,

Aprés analyse mon problème vient du lien en lui même il manque la syntaxe C/...

Oui l'adresse du lien ne l'indique pas quand ce n'est pas nécessaire.

C'est pour cela qu'il faut utiliser le lien et non pas Workbooks.Open pour ouvrir le fichier.

A+