Ouverture de fichier avec macro

Bonjour !

Je ne suis pas spécialiste de VBA, mais j'utilise pas mal les macros pour me faciliter la vie (Excel 2003).

J'ai fait un tableau récapitulatif de fichiers figurant dans divers dossiers du disque dur, et j'ai fait des macros permettant d'ouvrir chaque dossier en activant un bouton :

Sub Ouvrir_PDF()

'

' Ouvrir_PDF Macro

' Macro enregistrée le 16/03/2014 par Moi

'

ChDir "D:\Mes Documents\Dossier1\Fichier.pdf"

Application.GetOpenFilename

End Sub

Ça fonctionne très bien, mais mon problème est qu'ensuite, une fois que la fenêtre "Ouvrir" avec la liste des fichiers est affichée, le fichier à ouvrir ne s'ouvre pas (je fais comme normalement avec l'explorateur Windows, je double-clique sur le fichier ou je sélectionne le fichier et clique sur "Ouvrir"). En passant par l'explorateur Windows directement, ça marche très bien.

Il s'agit principalement de fichiers PDF ou JPG.

Qu'est-ce qui ne va pas dans ma macro ?

Merci d'avance pour votre aide !

Maurice

Tu ne peux pas ouvrir un pdf avec getopenfilename tu peux faire du shell

Dim myShell As Object
Set myShell =  CreateObject("WScript.Shell")
myShell.Run "D:\Mes Documents\Dossier1\Fichier.pdf"

Merci pour cette réponse rapide !

Hélas, je crois que je me suis mal exprimé, et que j'ai fait une erreur en recopiant ma macro. Vraiment désolé !

En fait, la macro sert à ouvrir la fenêtre du dossier (comme avec l'explorateur Windows). Ce que je souhaite, c'est ensuite l'utiliser comme l'explorateur, et, dans le dossier 2 (par exemple, cf. ci-dessous) ouvrir le fichier (PDF ou JPG) en double-cliquant dessus, ou en sélectionnant le fichier et en cliquant sur le bouton "Ouvrir".

Voici ma macro actuelle corrigée :

Sub Ouvrir_PDF()

'

' Ouvrir_PDF Macro

' Macro enregistrée le 16/03/2014 par Moi

'

ChDir "D:\Mes Documents\Dossier1\Dossier2"

Application.GetOpenFilename

End Sub

Et alors, dans la fenêtre du dossier 2 je souhaite ouvrir l'un ou l'autre fichier en double-cliquant dessus... Voilà !

Merci d'avance, et encore désolé pour cette erreur de retranscription !

Getopenfilename te donne le nom du fichier.. il faut lr stocker dans une variablr puis l'ouvrir avec du shell

Sub Ouvrir_PDF()
    Dim myShell As Object
    Set myShell = CreateObject("WScript.Shell")
    ChDir "D:\Mes Documents\Dossier1\Dossier2\"
    x = Application.GetOpenFilename
    myShell.Run x
End Sub