Microsoft 365 Problème lors de la création d'un fichier

"nomF = InputBox("Saisir le nom du fichier sans extension", "Ouvrir fichier")

Cliquez pour agrandir...

aujourd'hui le code est 'nomF = Sheets("Tableau de Bord").Range("Q2") '<- adapter éventuellement le nom de la feuille

Cliquez pour agrandir...

Const CHEMIN_FICHIER_TR_BASE = "C:\Notes 2025\00-ESV 702 2025\Notes1.xlsb"
Const CHEMIN_TR = "C:\Notes 2025\01-Tournées realisées\"

Cliquez pour agrandir...

Private Sub CmbAfficher_Click() 'recherche
If IsDate(Me.TxBoxdate.Value) Then madate = CDate(Me.TxBoxdate.Value)
'Unload Me
Me.Hide
If esv1 <> CmBoxESV Then
esv1 = CmBoxESV
PREPARATION.Load_Listview1
End If

Dim nomF As String
Dim fichier As String
Dim wb As Workbook
Dim wb2 As Workbook
Dim VREP As String
Dim Workbook As String

'nomF = Sheets("Tableau de Bord").Range("Q2") '<- adapter éventuellement le nom de la feuille
nomF = InputBox("Saisir le nom du fichier sans extention", "Ouvrir fichier")
If nomF <> "" Then
fichier = Dir(CHEMIN_TR & nomF & ".xls*")
If Left(fichier, Len(nomF)) = nomF Then
VREP = MsgBox("Le Fichier" & " " & [Q2] & " " & "existe, l'ouvrir?", vbYesNo)
If VREP = 6 Then
Set wb = Workbooks.Open(CHEMIN_TR & fichier)
End If
Else
VREP = MsgBox(fichier & "La tournée" & " " & [Q2] & " " & "n'existe pas, création d'un nouveau fichier ?", vbYesNo)
If VREP = 6 Then
Set wb = Workbooks.Open(CHEMIN_FICHIER_TR_BASE)
wb.SaveAs (CHEMIN_TR & nomF & ".xlsb")
End If
End If
End If

PREPARATION.Show (0)
End Sub

Cliquez pour agrandir...