[VBA Excel] Bouton Ouvrir Résolu

Question

J'ai créé un bouton "Ouvrir" dans une userform, dans cette même userform j'ai une textbox dans la laquelle le chemin du fichier à ouvrir est écrit (du style "P:\RDossier\monFichiers.pdf"). Les fichiers à ouvrir sont des .doc, .xls, .pdf, .obd . La pluspart des codes et des exemples que j'ai trouvé n'ouvrent que les .xls ou que les .pdf. Je voudrais savoir si quelqu'un connait un code qui ouvre le fichier juste en connaissant son chemin sans histoire de fichier excel, word ....

Merci

Utilisateur anonyme · Accepted Answer

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
'

Lupin

Kobaya · Answer

salut schont,

utilise la fonction Shell :
Shell "C:\Program Files\Adobe\Acrobat 7.0\Reader\Acrord32.exe C:\homeware\MonFichier.pdf"
Bien sûr, il faudra faire un aiguillage pour lancer le bon exe en fonction du fichier retenu !

schont · Answer

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

[VBA Excel] Bouton Ouvrir

3 réponses

Newsletters