Ouvrir un fichier MP4 avec chemin d'accès variable

Bonjour,

J'utilise un code permettant d'aller récupérer des fichiers excel en variabilisant le chemin d'accès. Je souhaite l'adapter en allant cette fois chercher un fichier au format MP4. Mais je bloque... Je pense que le problème vient de "Application.Workbooks.Open" mais je ne sais pas par quoi le remplacer...

Dim NF As String 'déclare la variable NF (Nom du Fichier)
Dim CO As Workbook 'déclare la variable CO (Classeur Original)
Dim CA As String 'déclare la variable CA (Chemin d'Accès)
Dim DA As Integer 'déclare la variabler DS (Dernier Anti-slash)
Dim DP As String 'déclare la variable DP (Dossier Parent)
Dim EF As Object 'déclare la variable EX (Explorateur de Fichiers)
Dim DI As Object 'déclare la variable DI (Dossier Initial)
Dim SD As Object 'déclare la variable SD (Sous Dossier)
Dim DT As Object 'déclare la variable DT (Dossier de Travail)
Dim FS As Object 'déclare la variable FS (FichierS)
Dim F As Object 'déclare la variable F (Fichier)
Dim CR As Workbook 'déclare la variable CR (Classeur Recherché)

NF = "tuto_balance.mp4" 'définit le nom du fichier NF
Set CO = ThisWorkbook 'définit le classeur original CO
CA = CO.Path 'définit le chemin d'accès CA
DA = InStrRev(CA, "\") 'définit la position DA du dernier anti-slash dans CA
DP = Mid(CA, 1, DA - 1) 'définit le dossier parent DP
Set EF = CreateObject("Scripting.FileSystemObject") 'définit l'explorateur de fichiers EF
Set DI = EF.GETFolder(DP) 'définit le dossier initial DI
For Each DT In DI.SubFolders 'boucle 1 : sur tous les dossiers de travail DT, sous-dossier de DI
    Set FS = DT.Files 'définit l'ensemble des fichiers FS du dossier de travail DT
    For Each F In FS 'boucle sur tous les fichiers F de FS
        If F.Name = NF Then 'condition: si le nom du fichier F est égal à NF
           Set CR = Application.Workbooks.Open(F) 'définit le classeur recherché CR en l'ouvrant
            'GoTo suite 'va à l'étiquette "suite"
        End If 'fin de la condition
    Next F 'prochaine fichier de la boucle 2
Next DT 'prochain dossier de la boucle 1

Merci par avance de votre aide

bonjour,

essaie ceci

set cr=CreateObject("Shell.Application").Open (F)

Bonjour,

Merci pour ton aide mais cela ne fonctionne pas. Quand j'utilisais "Application.Workbooks.Open" le fichier s'ouvrait mais sur excel, là la macro plante.

Merci par avance,

Bonjour,

quel message d'erreur ?

essaie ceci alors

CreateObject("Shell.Application").Open (F.name)

Le résultat est le même.

Le message est "Erreur d'exécution '424': Objet requis "

Merci,

Bonjour,

chez moi cette instruction fonctionne sans problème.

qu'y a-t-il dans F ?

mets une instruction

msgbox f.name 

juste avant l'instruction que j'ai proposée

La msgbox renvoie le nom du fichier à ouvrir "tuto_balance.mp4". Cela devrait renvoyer également le chemin d'accès?

Encore merci de ton aide,

Re,

Je viens de réussir.

J'ai supprimé le " SET CR" et j'ai laissé uniquement

   CreateObject("Shell.Application").Open (F)

Merci de ton aide et bonne soirée,