Comment créer un nouveau fichier nommé ?

[lolitobalmito]

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

 

[JNP]

Re : Comment créer un nouveau fichier nommé ?

Bonjour Lolitobalmito 🙂,
Le problème vient du ThisWorkbook.Path qui ne contient rien, puisque le classeur n'est pas encore enregistré... Ce que tu peux essayer, c'est d'indiquer le chemin absolu, ou, pour mettre dans mes documents

ThisWorkbook.SaveAs "C:\Documents and Settings\" & Application.UserName & _
    & "\" & Nom

Bon courage 😎