Ouverture Fichier via VBA

Bonjour,

Merci d'abord pour votre aide.

Private Sub TextBox1_Change()

Me.TextBox2.Value = Left(Me.TextBox1.Text, 4)
Me.TextBox3.Value = TextBox1.Value

TextBox4.Value = "\\dm02\ftapdf\MSP\" & Me.TextBox2.Value & "\" & Me.TextBox3.Value & ".pdf"

End Sub

J'aimerai pouvoir ouvrir un fichier qui se trouve en emplacement TextBox4, pouvez-vous m'aiguiller svp ?

Merci!

Bonjour,

Essai comme ça

Private Sub TextBox1_Change()
Dim MonApplication As Object
Set MonApplication = CreateObject("Shell.Application")
Me.TextBox2.Value = Left(Me.TextBox1.Text, 4)
Me.TextBox3.Value = TextBox1.Value

TextBox4.Value = "\\dm02\ftapdf\MSP\" & Me.TextBox2.Value & "\" & Me.TextBox3.Value & ".pdf"
MonApplication.Open (Me.TextBox4.Value)
Set MonApplication = Nothing
End Sub