Suppression message d'alerte impossible

Version imprimable

Bonjour,

J'espère que le confinement se passe bien pour vous. ;)

Je travaille actuellement sur un projet et j'ai un petit problème (sans doute facile à régler). A force d'avoir trop la tête dans les lignes de codes, on en perd la raison... 8O
Mon codage actuel me permet depuis un Userform d'ouvrir un fichier sous format pdf (après avoir tapé le nom du fichier dans un textbox). Mon codage réalise un test pour savoir si le fichier existe ou pas.
Mon problème est le suivant : si le message existe, il m'affiche un message d'alerte pour m'informer que certains fichiers risquent d'endommager mon ordinateur :massacre: (en gros). Je voudrai supprimer cette alerte car un opérateur peut paniquer en voyant ce message d'alerte...

Voici mon code qui peut vous donner une idée :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub CommandButton1_Click() Nom = TextBox1.Text MonFichier = "C:/Donnees/PDF/" & Nom & ".pdf" If Len(Dir(MonFichier)) > 0 Then 'Application.DisplayAlerts = False ThisWorkbook.FollowHyperlink MonFichier Else MsgBox "Fichier " & Nom & " inexistant." End If End Sub
Merci par avance pour votre aide. :D

27/04/2020, 18h18
Menhir

Sans trop de conviction (et sans avoir testé), tu peux tenter de faire précéder la ligne FollowHyperlink d'un Application.DisplayAlert = False et de repasser cette instruction à True juste après la ligne FollowHyperlink.
Lire ceci : https://docs.microsoft.com/fr-fr/off....displayalerts
27/04/2020, 21h57
xaviou99

Bonjour,

Merci pour ta réponse.
En revanche, si tu regardes bien, j'ai déjà essayé cette ligne de code et cela ne marche pas... :( Le message d'alerte apparaît encore...

Je suis donc preneur d'autres réponses.

Bonjour,

Au lieu d'utiliser le lien, tu pourrais simplement ouvrir le fichier avec le shell :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
Dim obj As Object
 
Nom = TextBox1.Text
MonFichier = "C:/Donnees/PDF/" & Nom & ".pdf"
 
If Len(Dir(MonFichier)) > 0 Then
    On Error GoTo LpErreur
    Set obj = CreateObject("Shell.Application")
    obj.Open MonFichier
    On Error GoTo 0
    Set obj = Nothing
Else
    MsgBox "Fichier " & Nom & " inexistant."
End If
 
Exit Sub
 
LpErreur:
   Set obj = Nothing
   MsgBox "Erreur à de l'ouverture du fichier " & Nom
End Sub

27/04/2020, 22h42
anasecu

Bonjour,

Citation:

Envoyé par xaviou99

Je voudrai supprimer cette alerte car un opérateur peut paniquer en voyant ce message d'alerte...

La solution est ici : Microsoft Activer ou désactiver les messages d’avertissement de lien hypertexte mais si tu as de nombreux opérateurs il faudra intervenir sur leurs postes.
28/04/2020, 08h05
xaviou99

Bonjour,

Merci pour vos réponses si rapide. ;)

Patrice740, je viens d'essayer ta proposition, la procédure fonctionne si le fichier n'existe pas. En revanche, si le fichier existe, ce dernier ne m'ouvre pas le fichier... Quand je fais ligne par ligne, tout fonctionne mais la ligne n’exécute pas l'ouverture :

Code:

obj.Open MonFichier

Si tu vois le problème, je suis preneur... :)

Anasecu,

Mon but est de supprimer le message d'alerte dans ce cas de figure et non dans l'ensemble du fichier...

Bonne journée et je suis impatient d'entendre vos suggestions ;)
28/04/2020, 08h47
Menhir

Essaye ça après le If :

Code:

Set obj = GetObject(MonFichier)
28/04/2020, 09h43
xaviou99
Bonjour,

Merci pour ta réponse.

Je viens d'essayer et mon fichier ne s'ouvre pas... On passe donc directement à l'étape :
Code:

1 2 Set obj = Nothing MsgBox "Erreur à de l'ouverture du fichier " & Nom

Bonjour,

Oups,
il faut des antislash :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
Dim obj As Object
 
Nom = TextBox1.Text
MonFichier = "C:\Donnees\PDF\" & Nom & ".pdf"
 
If Len(Dir(MonFichier)) > 0 Then
    On Error GoTo LpErreur
    Set obj = CreateObject("Shell.Application")
    obj.Open MonFichier
    On Error GoTo 0
    Set obj = Nothing
Else
    MsgBox "Fichier " & Nom & " inexistant."
End If
 
Exit Sub
 
LpErreur:
   Set obj = Nothing
   MsgBox "Erreur à de l'ouverture du fichier " & Nom
End Sub

28/04/2020, 10h10
xaviou99

Bonjour,

Tu as résolu mon problème. Je t'en remercie.
Pour répondre à ma curiosité, qu'est que les antislashs changent?

Bonne semaine à vous tous! ;)
28/04/2020, 10h40
Patrice740
Citation:

Envoyé par xaviou99

Pour répondre à ma curiosité, qu'est que les antislashs changent?

Avec VBA, le bon séparateur de chemin est fourni par Application.PathSeparator :
- Pour Unix c'est /
- Pour Windows c'est officiellement \, cependant la plupart des commandes acceptent aussi le /
Pour l'explication, il faut remonter à l'origine des OS :
- Sous Unix ça à toujours été /
- Sous le premier DOS (l'ancêtre de Windows), il n'y avait pas de répertoire, le / était utilisé comme switch des commandes.
  Lors de l'ajout des répertoires dans DOS, il a été décidé d'utiliser le \, vu que le / servait de commutateur.
- Sous Windows, au fur et à mesure des évolutions, de nombreuses commandes ont été modifiées pour accepter les 2 (/ et \), ceci pour assurer une certaine compatibilité avec Unix.
  Mais, ce n'est pas appliqué à toutes les commandes car il faut garder la compatibilité avec les versions antérieures de l'OS.