Discussion :

[margault]

Bonjour,
J'ai une fonction qui créé un hyperlink à partir du nom du fichier qui est écrit dans la cellule.
Je souhaiterais appliquer un for each sur l'ensemble des cellules de ma current region qui contienne un nom de fichier.


Voici ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub searchfilesandcreatehyperlink()
Dim Current_Region As Range
Dim Column_Number As Integer
Dim Line_Number As Integer
Dim k As Integer
Dim j As Integer
Line_Number = ActiveCell.CurrentRegion.Rows.Count
Column_Number = ActiveCell.CurrentRegion.Columns.Count
Set Current_Region = ActiveCell.CurrentRegion
Dim oFS As Office.FileSearch
Dim i As Integer
Set oFS = Application.FileSearch
 
With oFS
  'for each cell in ActiveCell.CurrentRegion, créer l'hyperlink si le fichier existe     
    .NewSearch
    .FileType = msoFileTypeAllFiles
    .Filename = ActiveCell
    .LookIn = "C:\Documents and Settings\R3282183\Desktop"
        .Execute
    For i = 1 To .FoundFiles.Count
        MsgBox .FoundFiles(i)
                Sheets(1).Hyperlinks.Add anchor:=Cells(k, j), _
                Address:=.FoundFiles(i), SubAddress:=""
    Next i
 
End With
End Sub

Quelqu'un pourrait-il m'aider ?
Merci, cordialement,

Margault

[mayekeul]

bonjour,

moi perso, je ferai un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub searchfilesandcreatehyperlink()
Dim C As Range, P As String
 
P = "C:\Documents and Settings\R3282183\Desktop"
 
For Each C In ActiveCell.CurrentRegion
    If Not Dir(P & C.Text) = "" And Not C.Text = "" Then
        Cells.Hyperlinks.Add C, P & C
    End If
Next C
 
End Sub

ça me parait plus clair... enfin pour moi