Ouvrir fichier Excel VBA

bonsoir a tous

DANS 1 CLASSEUR excel 2003 j'ai une listbox sur un userform. dans CETTE LISTBOX sont notes ,des fichiers (excel,word,pdf)qui sont dans un dossier

je veux ouvrir ces fichiers,avec le code que je vais mettre cidessous?MAIS je ne peux ouvrir que les fichiers "pdf",et les fichiers "word"mais je n'arrive pas a ouvrir les fichiers "excel",je pense que j'ai j'ai des erreurs sur le code pour ce qui est de d'ouvrir les fichiers excel

pouvez m'aider afin que je puisse ouvrir egalement les fichiers "excel" je precise que tous mes fichiers affiches dans la liste box sont dans le meme repertoire mais que le classeur avec ma listbox n'est pas dans ce repertoire

voici mon code et merci de votre aidepour modifier ce code afin d'ouvrir les trois type de fichier(excel,word et pdf

Private Sub ListBox2_change()

Extension = UCase(Right(Me.ListBox2, 3))

Select Case Extension

Case "XLS"

Fich = Me.ListBox2

rep = "C:\Documents and Settings\Utilisateur\Mes documents\nantes\"

Shell "C:\Program Files\Microsoft Office\OFFICE11\EXCEL.exe" & _

" " & rep & "\" & Fich, vbMaximizedFocus

Case "PDF"

Fich = Me.ListBox2

rep = "c:\Documents and Settings\Utilisateur\Mes documents\nantes\"

Shell "C:\Program Files\Adobe\Acrobat 7.0\reader\AcroRd32" & _

" " & rep & "\" & Fich, vbMaximizedFocus

End Select

Extension = UCase(Right(ListBox2, 3))

Select Case Extension

Case "DOC"

rep = "c:\Documents and Settings\Utilisateur\Mes documents\nantes\"

Set Ole = CreateObject("Word.Application" )

Ole.Documents.Open (rep & "\" & Me.ListBox2)

Ole.Visible = True

End Select

End Sub

bonjour,

vu que t'es dans un fichier excel et qu tu veux ouvrir un autre fichier excel, tu pourrais simplement utiliser workbook.open

Case "XLS" 
Fich = Me.ListBox2 
rep = "C:\Documents and Settings\Utilisateur\Mes documents\nantes\" 
workbooks.open rep & Fich

MERCI VOTRE AIde pour resoudre mon probleme

j'ai rectifier mon code au niveau xls

mais cela me renvoie un message erreur 1004 fichiers "untel" introuvable

j'ai bien revu les noms de mes fichiers sont idem que ceux de ma listbox

le chemin y menant est le bon

pensez vous que j'ai encore une anomalie au niveau du code

et pouvez vous si cela est le cas m'aider a la resoudre

en vous remerciant par avance

quand je clic sur le deboguage cela me surligne la ligne de code

Workbooks.Open rep & Fich

Est-ce que tu pourrais joindre ton fichier, on pourrais y voir plus clair

merci

BONSOIR

ESTCE QUE JE JOINS LE FICHIER DIRECTEMENT SUR LE FORUM?

voila je vous joins le fichier

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

je vous renvoie le fichier

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

VOila CETTE FOIS LE FICHIER EST CORRECTEMENT ENVOYER

la parti du code qui pose probleme est sur "listbox2_change

le code sur listbox_clic n'est pas utilise car ne fonctionnait pas

merci encore de vous pencher sur mon probleme

dans l'exemple que je t'ai donné, le répertoire se termine par \ mais dans ton fichier le répertoire est :

"C:\Documents and Settings\Utilisateur\Mes documents\nantes"

il faut que tu sépare le répertoire du nom du fichier par \ sinon présentement dans ton code excel essai d'ouvrir le fichier

"C:\Documents and Settings\Utilisateur\Mes documents\nantesBUDGET.xls" 

D'après moi c'est la seul erreur car je l'ai testé chez moi et ça fonctionne bien. Une petite chose par contre, tu devrais effacer la procedure ListBox2_Click() si tu ne t'en sers pas car il y a risque de conflit ou de faire en double.

bonne soirée

JUSTE QQ MOTS POUR VOUS REMERCIER EN EFFET MAINTENANT CELA FONCTIONNE CORRECTEMENT,

j'oserai vous poser une autre question pour demain dans ma listebox2 j'aurai le nom d'un fichier media player

estce que je peux rajouter une extension au code de facon a pouvoir 'ouvrir CE FICHIER

DE LA MEME FACON comment ecrire cette extension

faut il rajouter un objet ole sur le userform pour lire ce fichier media player,ou faire appel au logitiel comme on le fait pour word ou pdf

pourriez m'aiguillez sur ce dernier point

en tout cas merci de votre aide

Bonsoir,

c'est quoi le type de ton fichier media player, un mp3, un wma, un mpg , etc... et de quel façon préfère tu ouvrir ce fichier : directement dans ton userform ou bien avec un programme externe, je pense que les deux se font.

En attendant ta réponse.

Bonne soirée

Salut le forum

Je n'aime pas vraiment la fonction Shell

• Shell "C:\Program Files\Adobe\Acrobat 7.0\reader\AcroRd32" & _
  " " & rep & "\" & Fich, vbMaximizedFocus

Si le chemin change la macro ne fonctionne plus.

Mytå

Bonsoir Mytå,

t'as raison c'est un peu fragile, est-ce que tu as une solution?

Moi je mettrais les procedures d'ouverture dans des fonctions à part et je testerais la validiter du chemin. Si le programme est introuvable, je demanderais à l'usager d'indiquer le bon chemin d'accès.

Re le forum

Math, pas vraiment le temps de fouiner mais pour Word

Sub Ouvrir_Word()
'Ne pas oublier d'ajouter Microsoft Word dans les références
  Dim wrdApp As Word.Application
  Dim wrdDoc As Word.Document
  Set wrdApp = CreateObject("Word.Application")
  wrdApp.Visible = True
  Set wrdDoc = wrdApp.Documents.Open("C:\Foldername\Filename.doc")
End Sub

Mytå

BONJOUR

ME VOILA RECONNECTER

alors pour le fichier media ,c'est un fichier "wav",donc 1 fichier "son"

je pense que l'on pourrez faire ouvrir directement "media player"

merci pour votre aide

Bonjour,

je t'envois un petit exemple d'une UserForm qui utilise un controle WMA pour lire le fichier WAV.

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

pour ajouter ce controle, clique avec le bouton de droit sur la boite d'outils dans l'éditeur VBA, où il y a les boutons, les textbox, etc... et choisi controles supplémentaires. Ensuite à la toute fin tu auras Windows Media Player. Le reste est assez simple comme tu peux voir dans le code.

CE LECTEUR FERA SUREMENT L'affaire

a votre avis estce que je peux dans le code lui donner le chemin du fichier wav de la listbox

en fait dans la listbox2 IL Y A DES FICHIERS EXCEL, WORD,PDF CELA EST REGLE DE PUIS HIER GRACE A VOTRE COLLABORATION,et dansla liste des fichiers de cette meme listbox il y a aussi des fichiers wavqui sont dans le meme repertoire que les autres fichiers

l'ideale serait que je puisse lancer le lecteur quand je clic sur le fichier wav de la& listbox

et qu'il puisse aller directeent dans le repertoire

pensez vous que cela soit faisable

Bonjour,

je t'envois ton fichier avec le lecteur WMA intégrer, j'ai un peu changer ta procédure ListBox2_change:

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 & Fich

        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 = Chemin & Fichier
    End Select

End Sub

voici ton fichier

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

dis-moi si ça fait ton affaire

Bonne journée

BONSOIR

EXCUSE MOI POUR MA REPONSE TRES TARDIVE

j'etais absent et viens de reprendre contact

merci pour le fichier avec le code "wma"

je teste et vous tiens au courant

merci beaucoup