Discussion :

[belgudo]

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.

[amnorian]

Quel est ton code ?

Es-tu sur que tu n'as pas juste créer une variable à partir d'une inputbox te donnant le lien du fichier ? Car apres il faut utiliser le fileopen pour ouvrir le fichier.

[belgudo]

Le code utilisé est le suivant :

Code :

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

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.

[belgudo]

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 :

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
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 ...