Bonjour à tous

J'ai un petit problème,

Sur mon ordinateur perso mon webbrowser fonctionne super bien, et sur l'ordinateur pro cela ne fonctionne pas,

Quand je fais appelle au webbrowser il me fait crash Excel

Voici un code qui fonctionne..

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Private Sub UserForm_Initialize()
 
Dim monchemin As String
monchemin = Worksheets("COÛT ANNEXE").Range("E4")
Me.WebBrowser1.Navigate monchemin & "#zoom=24,80,50"
End Sub
Et celui ci ne fonctionne pas et me fait crash

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Txt_NumOutil_Change()
Dim vrech As Range
Set vrech = Worksheets("COÛT ANNEXE").Columns("D:D").Find(Me.Txt_NumOutil.Value, LookIn:=xlValues)
If Not vrech Is Nothing Then
Txt_Plan.Value = vrech.Offset(0, 1)
 
--------------------------------------
 
Private Sub Txt_Plan_Change()
Dim monchemin As String
monchemin = Txt_Plan
Me.WebBrowser1.Navigate monchemin & "#zoom=24,80,50"
Je sais plus si il y a des compléments a ajouté,

Je suis sur win10

Merci par avance de votre aide

Cordialement