Application file search, active workbook, sheet select

Bonjour,

Mon entreprise est passé sur la nouvelle version office et je me retrouve avec des macros qui ne fonctionne plus, il me semble que l'erreur vient du file search... qlqun peut m'aider? :)


Dim repertoire As String
repertoire = ThisWorkbook.Path

Dim nomfichier As String
nomfichier = Range("M1").Value

Set fs = Application.FileSearch
With fs
.LookIn = repertoire
.Filename = nomfichier
If .Execute > 0 Then
found = MsgBox("Le nom de fichier existe déjà, renommez le ou supprimez le fichier existant", vbOKOnly, "Error")

Exit Sub
End If
End With

'copie d'une feuille dans un fichier csv
Sheets("Import").Visible = True
Sheets("Import").Select
Sheets("Import").Copy

ActiveWorkbook.SaveAs Filename:= _
repertoire & "\" & nomfichier & ".csv", FileFormat _
:=xlCSV, CreateBackup:=False, local:=True


Application.DisplayAlerts = False

ActiveWorkbook.Close
Application.DisplayAlerts = False

Sheets("Import").Protect
Sheets("Import").Visible = False

MsgBox ("Fichier d'import: " & nomfichier & " enregistré dans le repertoire suivant: " & repertoire)

Sheets("5-2 Indicateurs Dechets").Select
Range("M1").Select
Selection.ClearContents
Namefile.Hide


End Sub