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...
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 (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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.