Salut schont,

utilise la fonction Shell :

Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\Acrord32.exe C:\homeware\MonFichier.pdf"

Bonjour,

À défaut d'autres suggestions :

Option Explicit
'

Sub OuvrirFichier()

    Dim NomsFichiers(10) As String, Boucle As Integer
    
    NomsFichiers(0) = "C:\Document\Test.doc"
    NomsFichiers(1) = "C:\Document\Test.htm"
    NomsFichiers(2) = "C:\Document\Test.mdb"
    NomsFichiers(3) = "C:\Document\Test.pdf"
    NomsFichiers(4) = "C:\Document\Test.pps"
    NomsFichiers(5) = "C:\Document\Test.txt"
    NomsFichiers(6) = "C:\Document\Test.xls"
    '...

    For Boucle = 0 To 6
        MsgBox "En attente du prochain : " & NomsFichiers(Boucle)
        RunExe (NomsFichiers(Boucle))
    Next Boucle
    
End Sub
'

Sub RunExe(Command)

    On Error Resume Next
    Dim objShell As Variant
    Set objShell = CreateObject("WScript.Shell")
    objShell.Run Command, 1, True
    Set objShell = Nothing

End Sub
'

Merci à tous,
j'ai trouvé une facon plus simple pour ouvrir mes fichiers :

Private Sub CommandButton5_Click()
' le nom de mon fichier à ouvrir est UserForm3.TextBox11.Text
Shell "explorer.exe " & UserForm3.TextBox11.Text
End Sub