[VBA Excel] Bouton Ouvrir [Résolu/Fermé]

Signaler
Messages postés
38
Date d'inscription
samedi 14 juillet 2007
Statut
Membre
Dernière intervention
11 juillet 2013
 -
 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
Afficher la suite

3 réponses

Réponse 1 / 3

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
Merci
5
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57036 internautes nous ont dit merci ce mois-ci

Réponse 2 / 3
Messages postés
38
Date d'inscription
samedi 14 juillet 2007
Statut
Membre
Dernière intervention
11 juillet 2013
 9
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
Signaler

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!!!
Réponse 3 / 3
Messages postés
282
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008
 212
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 !

Posez votre question