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

[MrCMTueurx]

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

[MrCMTueurx]

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




Cordialement

[jurassic pork]

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

[MrCMTueurx]

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

[MrCMTueurx]

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

Code :

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

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



Cependant, Adobe est bien fermé :/

Cordialement

[jurassic pork]

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 ?

[MrCMTueurx]

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

[jurassic pork]

essaie ce code :

Code :

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

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

[MrCMTueurx]

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

[jurassic pork]

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

[MrCMTueurx]

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