L
lolitobalmito
Guest
Bonjour,
Je souhaite créer un nouveau fichier avec un nom autre que Classeur 1, mais cela ne marche pas. Est ce possible de le faire directement ouvrir sous le nom désiré ?
Voilà ce que j'ai essayé ...
Nom = Format(Date, "yyyymmdd") & "_" & Range("c17") & ".xls"
...
Workbooks.Add
If MsgBox("Voulez-vous enregistrer le fichier sous le nom " & Nom & " ?", 4) = 6 Then
On Error Resume Next
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Nom 'Enregistre dans le même dossier
If Err Then MsgBox "Le nom proposé contient des caractères interdits", 48: Range("A1").Select
End If
Je souhaite créer un nouveau fichier avec un nom autre que Classeur 1, mais cela ne marche pas. Est ce possible de le faire directement ouvrir sous le nom désiré ?
Voilà ce que j'ai essayé ...
Nom = Format(Date, "yyyymmdd") & "_" & Range("c17") & ".xls"
...
Workbooks.Add
If MsgBox("Voulez-vous enregistrer le fichier sous le nom " & Nom & " ?", 4) = 6 Then
On Error Resume Next
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Nom 'Enregistre dans le même dossier
If Err Then MsgBox "Le nom proposé contient des caractères interdits", 48: Range("A1").Select
End If