Webbrowser crash Excel 365 Sur Windows10

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:

---

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:

---

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

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

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

Hello,

Citation:

---

Envoyé par MrCMTueurx

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

Citation:

---

Envoyé par jurassic pork

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,

Hello,
tu peux essayer :

Code:

---

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:

---

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

Bonjour,

Merci pour ton aide, voici ce que j'obtient

Pièce jointe 624703
Pièce jointe 624704

Cordialement

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

Quand j'ouvre le PDF avec Edge tout ce passe bien, il s'ouvre normalement
quand j'ouvre Internet Explorer il se ferme automatique est tout ce bascule sous edge,

Je n'ai pas Chrome

Cordialement

J'ai changer le nom du fichier, par un fichier qui n'existe pas, je sais pas si ca peut nous aider

j'ai ces messages qui apparaissent

Pièce jointe 624706
Pièce jointe 624707

Cordialement

Que veux tu faire avec ton PDF ? le visualiser ? récupérer des données ? contient-il des tableaux ?

juste le visualisé. ce sont des plans avec des cotes

J'ai essayé d'ouvrir le webbrowser dans un nouvel userform,

Code:

---

1 2 3 4 5 6 7 8

Private Sub Txt_Plan_Change() Dim monchemin As String   monchemin = Txt_Plan Debug.Print monchemin   UserForm1.WebBrowser1.Navigate monchemin & "#zoom=24,80,50" UserForm1.Show

---

et j'ai ce message, peut être la source des problème..

Pièce jointe 624712

Cependant, Adobe est bien fermé :/

Cordialement

Citation:

---

Envoyé par MrCMTueurx

juste le visualisé. ce sont des plans avec des cotes

---

Et pourquoi tu ne le visualises pas en lançant une application externe comme acrobat reader ou edge avec le pdf en paramètre ?

Pour détaillé un peu plus l'application,

C'est un fichier pour faire des devis, j'ai environs 4000 outils avec des plans différents rangé dans des dossiers différents ( Environs 100 )

L'Userform me permet de visualisé très rapidement les plans sans ouvrir un dossier etc etc

Cordialement

essaie ce code :

Code:

---

1 2 3 4 5 6

Private Sub Txt_Plan_Change() Dim Shex As Object Dim monchemin As String monchemin = Txt_Plan.Value Set Shex = CreateObject("Shell.Application") Shex.Open (monchemin)

---

Normalement il va t'ouvrir le PDF avec l'application par défaut pour les PDF

Oui ca fonctionne,

Mais c'est plus contraignant, dans mon userform je changer le numéro de l'outil et le plan ce mettrai sur la droite de l'userform.
Comme ca pas besoins de l'afficher en grand,

Mais comme solution temporaire cela me convient.

Cordialement

sinon en lançant msedge comme lecteur PDF on peut spécifier la taille et la position de la fenêtre ouverte dans les paramètres du lancement

Bonjour,

Du coup, pour donner suite a ce sujet, j'ai copier mon Userform, sauf le webbrowser dans un autre Userform, est tout fonctionne..
J'ai remit le webbrowser qui fonctionne lui aussi également.

Merci Microsoft...

Merci a toi JP

Cordialement