Je n'arrive pas à demander le chemin de mon fichier

Bonjour,

J'ai récupéré ce code pour demander à l'utilisateur de sélectionner son fichier à modifier.

Dim fichier As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
On Error Resume Next
fichier = .SelectedItems.Item(1)
MsgBox fichier
On Error GoTo 0
End With
End Sub

J'ai créer un classeur vide pour tester et ça fonctionne sans problème ! Je veux le rajouter dans mon application cependant au moment où je copie colle et que je test j'ai comme erreur "Erreur de compilation : Membre de méthode ou de données introuvable"

Voici mon code

Sub Creation_Fichier_Finale2()
    Dossier_Ecriture = Workbooks(ActiveWorkbook.Name).Path
    MsgBox Dossier_Ecriture
    Dim Mon_Fichier As String, Fichier As String
    Mon_Fichier = "test.xls"
    ' D:\Gestion fichiers\Fichier modifie

    With Application.FileDialog(msoFileDialogFilePicker)
    .Show
    On Error Resume Next
    Fichier = .SelectedItems.Item(1)
    MsgBox Fichier
    On Error GoTo 0
    End With

    ' Ouverture du fichier
    Workbooks.Open "D:\Gestion fichiers\Fichier modifie\" & Mon_Fichier
    Workbooks(Mon_Fichier).Activate
    Sheets(Worksheets(1).Name).Select
    Sheets(Worksheets(1).Name).Copy After:=Workbooks("Applicationv2.xlsm").Sheets(1)
    Workbooks(Mon_Fichier).Close
    Workbooks("Applicationv2.xlsm").Sheets(2).Activate

    Call Deplacement
    Call Decoupe
    Call TriBP

    ' Sauvegarde dans un autre dossier
    ActiveWorkbook.Worksheets(Worksheets(2).Name).Copy
    ' Nom du dossier avec modifier avec le dossier de destination
    Call RépertoireExiste("C:\Users\Admin\Desktop\")
    ActiveWorkbook.SaveAs Filename:="C:\Users\Admin\Desktop\" & Mon_Fichier & "_OK.xls", FileFormat:=xlWorkbookNormal, CreateBackup:=False
    ActiveWorkbook.Close
    Sheets(2).Delete

    ' Message de fin du programme
    MsgBox ("Les fichiers ont bien été traités.")
End Sub

J'ai même tout mis en commentaire sauf ce code et ça ne veut pas aussi

Voici mon fichier

Merci de m'avoir lu

Slt,

renomme ton module Application !!!!!

même pas un petit retour?

sais tu aumoins pourquoi il fallait le renommer?

Hello !

Désolé un peu occupé ! Je voulais juste prévenir que le problème avait été résolu !

Merci pour ta réponse !

Cependant je n'ai rien renommé et ça fonctionne je devais mal lancer mon module !

Encore merci