Ouvrir un fichier pdf de mon userform

Bonjour à tous,

j'ai un projet dans le quel, lorsque j'importe un fichier dans la textbox1, il n'y a pas de problème. Avant d'enregistrer, je veux ouvrir le fichier en faisant un double clic dans la textbox1. Seulement je n'arrive pas à ouvrir le fichier une fois que je fais un double clic dans la textbox1 car mon code est incorrect.

S'il vous plait, quel est le bon code ?

Bonjour,

Un essai, voir si ça convient ...

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

   ''''Sub OuvertureDeFichier()
   ''''par Excel-Malin.com ( https://excel-malin.com )

   On Error GoTo OuvertureFichierErreur
   Dim MonApplication As Object
   Dim MonFichier As String
   Set MonApplication = CreateObject("Shell.Application")

   MonFichier = TextBox1.Value      '"C:\MonDossier\MonFichier.txt" 'à remplacer par votre fichier
   MonApplication.Open (MonFichier)

   Set MonApplication = Nothing
   Exit Sub

OuvertureFichierErreur:
   Set MonApplication = Nothing
   MsgBox "Erreur lors de l'ouverture de fichier..."

   ''CreateObject("shell.application").ShellExecute Me.TextBox1, "", "", "edit", 1
End Sub

ric

Bonjour,

Il faut juste remplacer le verbe "edit" par le verbe "open"

CreateObject("shell.application").ShellExecute Me.TextBox1, "", "", "open", 1

Salut ric

franchement merci pour ton code. Il est extraordinaire. Il est comme je le souhaite. Merci

Merci à tout le forum

Bonjour,

Merci, mais, celui de thev est bien meilleur, il n'y a que le mot edit à remplacer par open dans ton code d'origine.

ric