Discussion :

[sweaty2]

Bonjour la communauté.

Je cherche comment à partir d'un bouton, ouvrir un fichier.mht.
J'ai effectué des recherches et mon code ne marche pas.

Pour informations, le nom du fichier recherche l'année dans une cellule et le N° dans une autre.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CommandButton4_Click()
 
Dim oFSO As Scripting.FileSystemObject
Dim oTxt As Scripting.TextStream
'Instanciation du FSO
Set oFSO = New Scripting.FileSystemObject
 
Set oTxt = oFSO.OpenTextFile("C:\Suivi_DLC\Archives_" & Range("C167").Value & "\Batch_BL_N°" & Range("D1677").Value & "\Docsuivicharge.mht", ForReading)
End Sub

Merci par avance

[sweaty2]

J'ai modifié mon code en passant par un hyperlien :

Code :

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

1
2
3
4
 
Private Sub CommandButton4_Click()
DeclencheLien Range("F167")
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Sub DeclencheLien(Cellule As Range)
'Vérifie si la cellule contient un lien
If Cellule.Hyperlinks.Count = 0 Then
    MsgBox "il n'y a pas de lien hypertexte dans la cellule " & Cellule.Address
    Else
    'Déclenche le lien
    Cellule.Hyperlinks(1).Follow NewWindow:=True
End If
End Sub

Cela marche mais si l'hyperlien contenu dans ma cellule F167 change, j'ai toujours la même page mht qui s'ouvre.
Apparemment, il faut que je change la propriété value de la cellule F167 pour que le lien change, mais comment procéder.

Merci

[sweaty2]

Voilà, c'est tout bon :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton4_Click()
 
Dim objLink As Hyperlink
 
Set objLink = ActiveSheet.Hyperlinks.Add(Range("F167"), "C:\Suivi_DLC\Archives_" & Range("C167").Value & "\Batch_BL_N°" & Range("D167").Value & "\Docsuivicharge.mht")
With objLink
    .SubAddress = "A1:C10"
    .Follow NewWindow:=True
End With
 
End Sub

Grâce à : http://excel.developpez.com/faq/?pag...AjoutHyperlink