Discussion :

[nemog]

Bonjour à tous,

Je ne n'arrive pas,à l'ouverture d'un pdf, à empêcher le pop-up suivant :


malgré le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim nomfich As String
 
DoCmd.SetWarnings False
 
nomfich = DFirst("NomPath", "TabNomPath") & "\REPPBX_Base\REPPBX_Docs\"
nomfich = nomfich & Dir(nomfich & "coq*.*")
 
Application.FollowHyperlink nomfich
 
DoCmd.SetWarnings True

Peut-être est-ce lié à FollowHyperlink - il y a sûrement mieux à faire de ce coté là ? (j'avais trouvé ça facile et pratique )

[tee_grandbois]

bonjour,
étant donné que c'est un message de sécurité Windows utiliser la commande SetWarnings n'aura aucun effet, il serait préférable d'approuver le dossier

[nemog]

Merci Tee_Grandbois,

Mais l' emplacement étant variable d'un utilisateur à l'autre...

Je peux faire autrement, avec, dans un module, la fonction OuvreFichier que j'ai trouvé ailleurs sur ce forum (merciiiiii !)

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
Public Function ouvrefichier(monfichier As String)
 
On Error GoTo OuvreFichierErreur
 
' vérifie si le fichier existe
 
If Len(Dir(monfichier)) = 0 Then
    ouvrefichier = False
    Exit Function
 
    Else
 
 
' ouvre le fichier dans son application
 
    Dim MonApplication As Object
    Set MonApplication = CreateObject("shell.Application")
    MonApplication.Open (monfichier)
    ouvrefichier = True
    Set MonApplication = Nothing
 
    Exit Function
 
 End If
 
OuvreFichierErreur:
 
 Set MonApplication = Nothing
 ouvrefichier = False
 
 
End Function

et

Code :

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

1
2
3
4
5
6
Dim nomfich As String
 
nomfich = DFirst("NomPath", "TabNomPath") & "\REPPBX_Base\REPPBX_Docs\"
nomfich = nomfich & Dir(nomfich & "coq*.*")
 
ouvrefichier (nomfich)

et là, pas de vilain message !

Application.FollowHyperlink est sûrement plus exigeant pour des histoires de sécurité réseau et est un peu "luxueux" pour ouvrir un fichier local

S'il y a moyen de faire plus simple que la fonction dans le module, je serais curieux de savoir

sinon.......... Pb résolu !

[tee_grandbois]

S'il y a moyen de faire plus simple que la fonction dans le module, je serais curieux de savoir

si cela fonctionne, à quoi bon ?

[nemog]

Bon, problème résolu !