Discussion :

[stc074]

Bonjour, j'utilise ShellExecute dans l'espoir d'afficher un PDF:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
           Try
                 filename = "C:\TEST.PDF"
                ret = ShellExecute(0, "Open", filename, "", "", 1)
                 Dim msg As String
                If ret <= 32 Then
                    'There was an error
                    Select Case ret
                        Case SE_ERR_FNF
                            msg = "File not found"
                        Case SE_ERR_PNF
                            msg = "Path not found"
                        Case SE_ERR_ACCESSDENIED
                            msg = "Access denied"
                        Case SE_ERR_OOM
                            msg = "Out of memory"
                        Case SE_ERR_DLLNOTFOUND
                            msg = "DLL not found"
                        Case SE_ERR_SHARE
                            msg = "A sharing violation occurred"
                        Case SE_ERR_ASSOCINCOMPLETE
                            msg = "Incomplete or invalid file association"
                        Case SE_ERR_DDETIMEOUT
                            msg = "DDE Time out"
                        Case SE_ERR_DDEFAIL
                            msg = "DDE transaction failed"
                        Case SE_ERR_DDEBUSY
                            msg = "DDE busy"
                        Case SE_ERR_NOASSOC
                            msg = "No association for file extension"
                        Case ERROR_BAD_FORMAT
                            msg = "Invalid EXE file or error in EXE image"
                        Case Else
                            msg = "Unknown error"
                    End Select
                    MessageBox.Show(msg & CStr(ret), "Exper-PDF", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    MessageBox.Show(CStr(ret), "Exper-PDF", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Catch ex As Exception
                MessageBox.Show(ex.ToString & "ret :" & CStr(ret), "Exper-PDF", MessageBoxButtons.OK, MessageBoxIcon.Error)
           End Try

il me sort un code 2 "File not found", le fichier y est pourtant et avec tout les droits, quelqu'un sait-il d’où peut venir ce dysfonctionnement ?
Merci beaucoup !

[infosam76]

Essayer ceci :

Code :

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

1
2
3
4
5
6
 
        Try
            System.Diagnostics.Process.Start("C:\TEST.PDF")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

[stc074]

Essayer ceci :

Code :

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

1
2
3
4
5
6
 
        Try
            System.Diagnostics.Process.Start("C:\TEST.PDF")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

Merci pour ta réponse, c'est justement parce que process.Start() ne fonctionne pas que j'ai décidé d'utiliser la methode ShellExecute(), je tiens à signaler que process.Start fonctionne avec adobre reader 10 mais pas avec la version 11.
Merci.

[infosam76]

Merci pour ta réponse, c'est justement parce que process.Start() ne fonctionne pas que j'ai décidé d'utiliser la methode ShellExecute(), je tiens à signaler que process.Start fonctionne avec adobre reader 10 mais pas avec la version 11.

Je viens d'installer la version 11 d'acrobat reader, et le code que je t'ai donné fonctionne très bien. Donc à mon avis le problème provient soit de ton PDF, soit de ton installation d'acrobat qui aura foiré quelque part.

[stc074]

Je viens d'installer la version 11 d'acrobat reader, et le code que je t'ai donné fonctionne très bien. Donc à mon avis le problème provient soit de ton PDF, soit de ton installation d'acrobat qui aura foiré quelque part.

Oui ça marche mais pas sur windows 8, c'est pour ça que je dois intervenir sur le code, je suis pas un spécialiste de windows aurais tu des pistes ?
Merci

[infosam76]

Je n'ai pas mon Windows 8 sous la main je ferais le test ce soir.

Par contre je ne sais pas si cela pourrait changer quelque chose, mais essaie peut être en doublant le backslash

Code :

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

1
2
 
System.Diagnostics.Process.Start("C:\\TEST.PDF")

Maintenant il y a peut-être une incompatibilité entre windows 8 et l'Acrobat (note que j'ai ré installer mon portable vendredi passé donc ce serais pas étonnant que j'ai l'acrobat reader 11 cela dépend de quand il est sortis).

Pourrais-tu par hasard m'envoyer ton pdf (si rien de confidentielle ne s'y trouve) en pièce jointe sur la discutions pour que je fasse un test sur mon poste ?

[stc074]

JPar contre je ne sais pas si cela pourrait changer quelque chose, mais essaie peut être en doublant le backslash

Code :

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

1
2
 
System.Diagnostics.Process.Start("C:\\TEST.PDF")

Oui c'était exactement ça, merci encore !

[infosam76]

A voir en C# il existe le @ donc tu aurais :

Code :

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

1
2
 
(@"C:\\TEST.PDF")

Désolé de pas avoir pensé à cela plutôt mais j'ai testé hier et cela marchait aussi bien avec que sans.