Sujet Précédent Sujet Suivant

[VBA Excel] Bouton Ouvrir

Résolu/Fermé
schont Messages postés 33 Date d'inscription samedi 14 juillet 2007 Statut Membre Dernière intervention 11 juillet 2013 - 18 juil. 2007 à 09:42
 kev - 21 juil. 2008 à 09:33
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
19 juil. 2007 à 01:26
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 samedi 14 juillet 2007 Statut Membre Dernière intervention 11 juillet 2013 10
19 juil. 2007 à 09:37
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
6 juin 2008 à 11:20
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
21 juil. 2008 à 09:33
Royal
0
Réponse 3 / 3
Kobaya Messages postés 282 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 10 janvier 2008 214
18 juil. 2007 à 11:39
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