Discussion :

[MrCMTueurx]

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

[Belga16]

Question de sécurité ? votre service informatique bloque l'accès aux sites externes ??

[MrCMTueurx]

Effectivement c'est une possibilité, cependant il s'agit de plan en pdf stocker sur le réseau

Donc je sais pas si sa peut venir de cela

[jurassic pork]

Hello,

Quand je fais appelle au webbrowser il me fait crash Excel

Qu'entends-tu par crash ? Excel se ferme ? Il y a un message d'erreur ? Si oui lequel ?

Ami calmant, J.P

[MrCMTueurx]

Hello,


Qu'entends-tu par crash ? Excel se ferme ? Il y a un message d'erreur ? Si oui lequel ?

Ami calmant, J.P

Oui c'est bien cela Excel se ferme, et pas de message d'erreur,

[jurassic pork]

Hello,
tu peux essayer :

Code :

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

1
2
3
4
Private Sub Txt_Plan_Change()
Dim monchemin As String
monchemin = Txt_Plan.Value
Me.WebBrowser1.Navigate monchemin & "#zoom=24,80,50"

Sinon avec ce code :

Code :

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

1
2
3
4
5
Private Sub Txt_Plan_Change()
Dim monchemin As String
monchemin = Txt_Plan.Value
Debug.Print monchemin
Me.WebBrowser1.Navigate monchemin & "#zoom=24,80,50"

mettre un point d'arrêt sur le Me.WebBrowser1.Navigate et nous montrer ce que vaut monchemin


​Ami calmant, J.P

[MrCMTueurx]

Bonjour,

Merci pour ton aide, voici ce que j'obtient




Cordialement

[jurassic pork]

il faut que tu essaies d'ouvrir ton fichier pdf test.pdf :
1 - Avec un navigateur comme Chrome ou Edge
2 - Avec Internet Explorer
et nous dire ce qui se passe