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

[pelerin65]

Bonjour le forum,
Voilà, j'ai un fichier donc j'utilise actuellement.
Aujourd'hui, j'ai refait complètement le fichier
Le soucis est que je n'arrive pas à renommer le nouveau fichier lors de sa création
s'il existe, dans le dossier désigné il l'ouvre l'archive sinon
S'il n'existe pas, il en crée un nouveau
soit en utilisant imputbox

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

soit, l'idéal serait qu'il crée un nouveau fichier avec le nom de la tournée (Label Tournée dans l'userfrom "PREPARATION"

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

Voilà le code que j'ai voulu adapter
Avec de const

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\"

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

il me mets ce message d'erreur

Je comprends pas pourquoi

Cordialement
JL

 

[ChTi160]

Bonjour Jean Luc , le Fil , Le Forum

as tu un Fichier exemple de ce que tu veux créer comme fichier.
J'ai tenté d'utiliser ce que tu as proposé (modifié) j'obtiens une copie du Fichier Notes1 renommé si le fichier n'existe pas ?
Jean marie ,

 

[pelerin65]

Bonjour Jean Luc , le Fil , Le Forum

as tu un Fichier exemple de ce que tu veux créer comme fichier.
J'ai tenté d'utiliser ce que tu as proposé (modifié) j'obtiens une copie du Fichier Notes1 renommé si le fichier n'existe pas ?
Jean marie ,

 

[TooFatBoy]

Bonjour,

Juste comme ça en passant : t'as t'y essayé avec l'extension ?

 

[ChTi160]

pas de réponse a ma demande

as tu un Fichier exemple de ce que tu veux créer comme fichier? #2

est ce Un fichier crée a partir de la feuille "Journal" (renommée) ?

jean marie