Bonjour,
Je travaille sur un fichier XLS et impossible de faire des liens hypertexte.
J'ai donc trouvé une macro:
J'ai changé ceci:
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "Le nom de mon fichier XLS.xls"
Ici j'ai créé une feuille vierge, et mis un bouton:
.OnAction = "Feuil4.CommandButton1_Click"
(J'ai bien mis ce code dans le workbook.)
et enfin ici j'ai mis le nom de ma feuille "Feuil1" où je dois créer mes liens hypertexte.
Sheets("Feuil1").Cells(ActiveCell.Row, ActiveCell.Column) = q_Tot
Sheets("Feuil1").Cells(ActiveCell.Row, ActiveCell.Column + 150) = q_Fich
Apres test j'ai une erreur,
Lorsque je clique sur lien hypertexte quand mon fichier est partagé j'ai le message:
The macro "Le nom de mon fichier XLS.xls!Feuil4.CommandButton1_Click" cannot be found
Merci de votre aide
Je travaille sur un fichier XLS et impossible de faire des liens hypertexte.
J'ai donc trouvé une macro:
Code:
'Création d'un module
Module 1 :
'Appel de l'explorateur de fichier par API directement sur "comdlg32.dll"
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
'Dans "ThisWorkbook"
Private Sub Workbook_Open()
' A l'ouverture du fichier, création dans le menu excel clic droit d'un
'nouveau libellé "Lien Hypertexte" avec son icone associée.
With Application.CommandBars("Cell").Controls.Add(msoControlButton)
.Caption = "Lien hypertexte"
.BeginGroup = True
.FaceId = 1576
.OnAction = "Feuil7.CommandButton1_Click"
End With
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'A la fermeture du fichier, on élimine les libellés crées auparavants.
Application.CommandBars("Cell").Reset
End Sub
Dans la feuille
Sub C_Lien()
Dim q_Tot As String
Dim q_chem As String
Dim q_Fich As String
q_Tot = Application.GetOpenFileName()
If q_Tot = "Faux" Then Exit Sub
q_chem = CurDir(q_Tot)
q_Fich = Dir(q_Tot)
Sheets("Suivi général liens cachés").Cells(ActiveCell.Row, ActiveCell.Column) = q_Tot
Sheets("Suivi général liens cachés").Cells(ActiveCell.Row, ActiveCell.Column + 150) = q_Fich
ActiveCell.Formula = "=HYPERLINK('Suivi général lien'!RC,'Suivi général lien'!RC[150])"
End Sub
J'ai changé ceci:
Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "Le nom de mon fichier XLS.xls"
Ici j'ai créé une feuille vierge, et mis un bouton:
.OnAction = "Feuil4.CommandButton1_Click"
(J'ai bien mis ce code dans le workbook.)
et enfin ici j'ai mis le nom de ma feuille "Feuil1" où je dois créer mes liens hypertexte.
Sheets("Feuil1").Cells(ActiveCell.Row, ActiveCell.Column) = q_Tot
Sheets("Feuil1").Cells(ActiveCell.Row, ActiveCell.Column + 150) = q_Fich
Apres test j'ai une erreur,
Lorsque je clique sur lien hypertexte quand mon fichier est partagé j'ai le message:
The macro "Le nom de mon fichier XLS.xls!Feuil4.CommandButton1_Click" cannot be found
Merci de votre aide