Ouvrir fichier Excel VBA

vola je viens de tester le nouveau code que nvous m'avez renvoyer

ici il me surligne la partie code "cachelecteur"

en fin de code vous noter ""wmaLecteur.URL = Chemin & Fichier"

je ne retrouve pas "chemin" en variable plus haut

ou faut il que j'y note a la place le chemin du fichier audio ex "C:\Documents and Settings\Utilisateur\Mes documents\nantes\jingle prun"

merci de votre aide

Bonjour,

c'est mon erreur, voici le bon code:

Private Sub ListBox2_change() 
    Dim Extension As String 
    Dim Fich As String 
    Dim rep As String 

    Extension = UCase(Right(Me.ListBox2, 3)) 
    Fich = Me.ListBox2 
    rep = "C:\Documents and Settings\Utilisateur\Mes documents\nantes" 
    CacheLecteur 

    Select Case Extension 
        Case "XLS" 
            Workbooks.Open rep & "\" &Fichier 

        Case "PDF" 
            Shell "C:\Program Files\Adobe\Acrobat 7.0\reader\AcroRd32" & _ 
                " " & rep & "\" & Fich, vbMaximizedFocus 
        Case "DOC" 
            Set Ole = CreateObject("Word.Application") 
            Ole.Documents.Open (rep & "\" & Me.ListBox2) 
            Ole.Visible = True 

        Case Is = "wav" 
            wmaLecteur.Visible = True 
            wmaLecteur.URL = rep & "\" &Fichier 
    End Select 

End Sub

bonne journée

BONSOIR

JE VIENS DE rectifier le code,mais lorsque lorsque je clic sur le nom du fichier "wma" de la listbox il se passe une erreur au niveau du code sur "cachelecteur" qui est surbrille

qu'en pensez vous

merci

Salut le forum

Math, avec des API's il y a moyen d'ouvrir des fichiers, pas le temps de tester en entier.

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub OuvrirFichier()
    Dim NomFichier As String
    Dim x As Long

    x = FindWindow("XLMAIN", Application.Caption)
    NomFichier = "C:testPDF.pdf"

    ShellExecute x, "open", NomFichier, "", "", 1
End Sub

Mytå

Bonjour a tous,

syl118 , CacheLecteur est une fonction que j'ai écrite pour éviter de répéter plusieurs fois les mêmes ligne de code, tu devrais l'avoir à la suite des autres codes dans le fichier que je t'ai fournis plus tot

https://www.excel-pratique.com/~files/doc/eLla7copie_fichier.xls

la fonction ressemble a ça:

Public Sub CacheLecteur()
    wmaLecteur.Visible = False
    wmaLecteur.URL = ""
End Sub

wmaLecteur est le nom que j'ai donné au lecteur sur le userform, si tu l'a changés de nom, il faut le changer dans le code aussi : NouveauNom.Visible = false , etc... l'erreur peut venir de l'a ou bien la fonction n'est pas présente dans ton code. Si tu pars du fichier que je t'ai envoyé, il ne devrait pas avoir de problème.

Merci Myta pour le tuyau sur les API