Lien hypertexte via une macro VBA

4

Bonjour, je veux améliorer mon code suivant et je dois faire un lien hypertexte entre la cellule est son fichier. Merci d'avance

Sub fichedeviemoule()
	Dim NomFicheM As String, i As Integer, ligne As Integer
	Dim Xl As Excel.Application, Wbk As Excel.Workbook
	Dim Fiche As String
	Dim Chemin As String, Fichier As String
	ligne = Cells(Rows.Count, 6).End(xlUp).Row
	Fiche = "C:\Users\Dream\Desktop\fiche de vie Moule\Fiche.xlsx"
	Set Xl = New Excel.Application
	Xl.Visible = False 
	Set Wbk = Xl.Workbooks.Open(Fiche) 
	Chemin = "C:\Users\Dream\Desktop\fiche de vie Moule" 
	For i = 2 To ligne
		NomFicheM = Cells(i, 6) 
		Fichier = Chemin & "\" & NomFicheM & ".xls" 
		If dir(Fichier) = "" Then Wbk.SaveAs Filename:=Fichier 'l'enregistrement de fichier
	Next i
	Wbk.Close 
	Xl.Quit
End Sub
elyane Posté le 14 août 2014, 17:53
par elyane
Répondre
  • Il faudrait préciser ce que tu veux faire, parce que là je ne crois pas qu'on pourra t'aider. – Vince 14 août 2014, 23:28
2

Salut!

Je vois à peu près ce que tu veux faire.

Voici un exemple :

Sub myLien()
	For i = 1 To 5
		ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 1), Address:= _
		"C:\fichier" & Trim(Str(i)) & ".txt", TextToDisplay:= _
		"Mon lien vers fichier " & Trim(Str(i))
	Next i
End Sub

Tu crée 5 fichiers sur c:/

Fichier1.txt

Fichier2.txt, etc...

Tu colles la macro dans Excel et tu la lance

Dans les 5 première cellules de la colonne A tu auras les cinq liens vers les cinq fichiers, à toi d'adapter :-)

Tchuss!

mariowilli Posté le 15 août 2014, 07:08
par mariowilli

Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :