Macro, lien hyppertexte

Fermé
yopa - Modifié par yopa le 29/04/2010 à 10:10
Bjr, comment declancher une macro avec un lien hyppertexte, pour que qund j'enregistre mon classseur excl en tant que page web, les macro fonctionne?
En gros, activzer la macro qui suis, lorsque j'ouvre mon fichier en tant que page web.
macro:

Dim Chemin As String
Sub liste_fichiersCOGCPG()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim exten As String
Dim Nbr, i As Long

Call parcourir
exten = InputBox("Saisissez ici l'extension souhaitée pour la recherche. Par ex : xls pour excel, doc pour word, ppt pour powerpoint, pour tous fichiers tapez *.*", "Extension de fichier")
If exten = "" Then
MsgBox "Saisie obligatoire"
Exit Sub
End If
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = Chemin
.SearchSubFolders = True
.Filename = exten
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
Nbr = .Execute
i = 1
For Each NomFic In .FoundFiles
i = i + 1
Sheets("COG-CPG").Cells(i + 6, 1).Value = i - 1
Sheets("COG-CPG").Cells(i + 6, 2).Value = NomFic
Sheets("COG-CPG").Cells(i + 6, 3).Hyperlinks.Add anchor:=Sheets("COG-CPG").Cells(i + 6, 3), Address:=NomFic
Sheets("COG-CPG").Cells(i + 6, 4).Value = FileDateTime(NomFic)
Sheets("COG-CPG").Cells(i + 6, 5).Value = Right(NomFic, Len(NomFic) - InStr(NomFic, "."))

Next
End With

End Sub

Sub parcourir()
Dim objShell As Object, objFolder As Object, oFolderItem As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
On Error Resume Next
Set oFolderItem = objFolder.Items.Item
Chemin = oFolderItem.Path
End Sub
A voir également: