Afficher un hyperlien vers fichier Excel dans un fichier Excel
Bonjour,
J'ai créé une UserForm comportant un bouton permettant de sélectionner/afficher des hyperliens vers différentes applications (doc,pdf,jpeg,...).
L'application correspondante s'ouvre at affiche le fichier, quand on ferme l'application on revient à la UserForm d'Excel.
Est-il possible d'afficher de la même manière un fichier Excel à partir d'une UserForm Excel ?
Via une nouvelle instance d'Excel ou ?
Merci d'avance.
Afficher un hyperlien vers fichier Excel dans un fichier Excel
Le code utilisé est le suivant :
Code:
Active.Workbook.FollowHyperlink Address:=HyperlinkText, NewWindow:=True
Le souci que j'ai est que Excel ouvre le fichier dans une nouvelle fenêtre "sous" la UserForm. :?
Afficher un hyperlien vers fichier Excel dans un fichier Excel
Bonjour,
J'ai trouvé la réponse à ma question dans une autre discussion, merci !
Je contrôle l'extension du fichier et si il s'agit d'un fichier Excel, je lance une nouvelle instance d'excel et j'ouvre le fichier hyperlien dans cette instance.
A la fermeture de la nouvelle instance, la procédure continue.
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Sub ShowHyperlink()
Dim appXL As Excel.Application
On Error GoTo ShowHyperlink_Error
If InStr(1, HyperlinkText, "xls", vbTextCompare) > 0 Then
'Génère une nouvelle instance d'Excel
Set appXL = CreateObject("Excel.Application")
'Affiche la fenêtre de la nouvelle instance d'Excel
appXL.Visible = True
' Ouvre le fichier dans cette nouvelle instance d'Excel
appXL.Workbooks.Open HyperlinkText
'La macro VB continue à la fermeture d'Excel
Else
ActiveWorkbook.FollowHyperlink Address:=HyperlinkText, NewWindow:=True
End If
On Error GoTo 0
Exit Sub
ShowHyperlink_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ShowHyperlink of Module Hyperlien"
End Sub |
C'était "trop" simple ... :oops: