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

pelerin65

XLDnaute Occasionnel
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
2.png


Je comprends pas pourquoi

Cordialement
JL
 

Pièces jointes

  • Notes1.xlsb
    328.6 KB · Affichages: 4

ChTi160

XLDnaute Barbatruc
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 ,
 

Discussions similaires

Statistiques des forums

Discussions
312 934
Messages
2 093 736
Membres
105 803
dernier inscrit
metroMBP