[VBA Excel] Bouton Ouvrir

Résolu
schont Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   -  
 kev -
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
A voir également:

3 réponses

Réponse 1 / 3
Utilisateur anonyme
 
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
5
Réponse 2 / 3
schont Messages postés 33 Date d'inscription   Statut Membre Dernière intervention   10
 
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
1
ZaimePoLesClebs
 
MERCIIII!!!!

Mille fois merci!!!

Ca fait 15 jours que j'essaye d'ouvrir ces foutus liens, et enfin j'ai réussi!!!

Encore merci beaucoup!!!
0
kev
 
Royal
0
Réponse 3 / 3
Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
 
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 !

0